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

• #31458 tgumis tag

  Új Válasz 2016-05-03 21:15:04 #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