Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #31458 tgumis tag
    Új Válasz #31458
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    tgumis

    tag

    Sziasztok
    Szeretnék egy makrót arra hogy ha bezárom az Excel munkafüzetemet akkor mentse másként. A mentéskor kérdezze meg, hogy milyen néven kívánom menteni. Nekem annyit sikerült amit a rögzítővel vettem fel, hogy folyton azon a néven akarja elmenteni.
    Sub Makró2()
    '
    ' Makró2 Makró
    '

    '
    ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\tgumis\Desktop\Munkafüzet1.xlsm", FileFormat:= _
    xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    End Sub

    Persze előtte még van egy makró amit szeretném ha lefuttatna
    Sub osszetett_összesito()
    Sheets("ért_és_anyagkiad_lap").Unprotect Password:="Jelszo81"
    Sheets("ért_és_anyagkiad_lap").Range("$L$1:$L$763").AutoFilter Field:=1
    Sheets("összesítő").Unprotect Password:="Jelszo81" 'felold

    'Dim oszlop As Integer
    oszlop = Sheets("Kezdőlap").Range("C9") + 4 '>>>>>ITT HATÁROZZUK MEG A BEILLESZTÉS OSZLOPÁT Sheets("Kezdőlap")Range("C9") + 4
    Sheets("ért_és_anyagkiad_lap").Range("G15:G423").Copy Sheets("összesítő").Cells(11, oszlop) '>>>>>CELLS (11, =A BEILLESZTÉS HANYADIK SORBAN KEZDŐDJÖN >>>>>Sheets("adat").Range("B2:B5") A MÁSOLANDÓ TERÜLET MEGHATÁROZÁSA
    Sheets("összesítő").Select
    Range("E11:AI419").Select
    Selection.Locked = True ' cellatulajdonságra vonatkozik
    Selection.FormulaHidden = True ' cellatulajdonságra vonatkozik
    Sheets("összesítő").Protect Password:="Jelszo81", UserInterfaceOnly:=True _
    , AllowFiltering:=True _
    , AllowFormattingColumns:=True
    Sheets("ért_és_anyagkiad_lap").Protect Password:="Jelszo81", UserInterfaceOnly:=True _
    , AllowFiltering:=True _
    , AllowFormattingColumns:=True '>>>>>munkalap lekódolása
    Sheets("összesítő").Activate
    Sheets("ért_és_anyagkiad_lap").Unprotect Password:="Jelszo81"
    Sheets("ért_és_anyagkiad_lap").Range("$L$1:$L$763").AutoFilter Field:=1
    Sheets("összesítő_műanyag_élelmiszer").Unprotect Password:="Jelszo81" 'felold

    'Dim oszlop As Integer
    oszlop = Sheets("Kezdőlap").Range("C9") + 4 '>>>>>ITT HATÁROZZUK MEG A BEILLESZTÉS OSZLOPÁT Sheets("Kezdőlap")Range("C9") + 4
    Sheets("ért_és_anyagkiad_lap").Range("F456:F461").Copy Sheets("összesítő_műanyag_élelmiszer").Cells(3, oszlop) '>>>>>CELLS (11, =A BEILLESZTÉS HANYADIK SORBAN KEZDŐDJÖN >>>>>Sheets("adat").Range("B2:B5") A MÁSOLANDÓ TERÜLET MEGHATÁROZÁSA
    Sheets("összesítő_műanyag_élelmiszer").Select
    Range("A1:AJ261").Select
    Selection.Locked = True ' cellatulajdonságra vonatkozik
    Selection.FormulaHidden = True ' cellatulajdonságra vonatkozik
    Sheets("összesítő_műanyag_élelmiszer").Protect Password:="Jelszo81", UserInterfaceOnly:=True _
    , AllowFiltering:=True _
    , AllowFormattingColumns:=True
    Sheets("ért_és_anyagkiad_lap").Protect Password:="Jelszo81", UserInterfaceOnly:=True _
    , AllowFiltering:=True _
    , AllowFormattingColumns:=True '>>>>>munkalap lekódolása
    Sheets("összesítő_műanyag_élelmiszer").Activate

    Sheets("ért_és_anyagkiad_lap").Unprotect Password:="Jelszo81"
    Sheets("ért_és_anyagkiad_lap").Range("$L$1:$L$763").AutoFilter Field:=1
    Sheets("összesítő_műanyag_élelmiszer").Unprotect Password:="Jelszo81" 'felold

    'Dim oszlop As Integer
    oszlop = Sheets("Kezdőlap").Range("C9") + 4 '>>>>>ITT HATÁROZZUK MEG A BEILLESZTÉS OSZLOPÁT Sheets("Kezdőlap")Range("C9") + 4
    Sheets("ért_és_anyagkiad_lap").Range("F499:F740").Copy Sheets("összesítő_műanyag_élelmiszer").Cells(9, oszlop) '>>>>>CELLS (11, =A BEILLESZTÉS HANYADIK SORBAN KEZDŐDJÖN >>>>>Sheets("adat").Range("B2:B5") A MÁSOLANDÓ TERÜLET MEGHATÁROZÁSA
    Sheets("összesítő_műanyag_élelmiszer").Select
    Range("A1:AJ261").Select
    Selection.Locked = True ' cellatulajdonságra vonatkozik
    Selection.FormulaHidden = True ' cellatulajdonságra vonatkozik
    Sheets("összesítő_műanyag_élelmiszer").Protect Password:="Jelszo81", UserInterfaceOnly:=True _
    , AllowFiltering:=True _
    , AllowFormattingColumns:=True
    Sheets("ért_és_anyagkiad_lap").Protect Password:="Jelszo81", UserInterfaceOnly:=True _
    , AllowFiltering:=True _
    , AllowFormattingColumns:=True '>>>>>munkalap lekódolása
    Sheets("összesítő_műanyag_élelmiszer").Activate


    End Sub

Új hozzászólás Aktív témák