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

• #33438 Fferi50 Topikgazda Agostino #33437

  Új Válasz 2016-12-13 12:05:05 #33438

  Ú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

  

  Fferi50

  Topikgazda

  válasz Agostino #33437 üzenetére

  Szia!

  Van olyan lehetőség is a makró futtatáskor, hogy lépésenként hajtsa végre (akkor láthatod, hogy melyik sornak mi a következménye.)
  Egyébként a következő a probléma:
  Ha az egész munkalapot másolod paraméter nélkül, akkor a másolat egy új munkafüzetbe kerül át és az lesz egyúttal az aktív munkafüzet is. Így az új munkafüzetet fogod menteni és bezárni, a régi megmarad.
  Ha viszont egy munkalap tartományt másolsz csak, akkor az eredeti munkafüzeted aktív munkalapját fogja elmenteni az új néven és egyúttal a neve is megváltozik, továbbá csak ez az egy munkafüzet lesz és ezt fogja bezárni a makró - bármelyik if ágra is kerül.
  A SaveAs metódus mindig megváltoztatja az elmentett fájl nevét!
  Ha csak egy területet szeretnél menteni, akkor szerintem az a megoldás, hogy a kívánt területet átmásolod egy új munkalapra, majd ezt az új munkalapot helyezed át és mented el csv fájlként:
  InitFileName = ThisWorkbook.Path & "\Kimentett munkafüzet_" & Format(Date, "yyyymmdd")
Set NewSheet = Sheets.Add
Sheets("Munka1").Range("A1:C5").Copy Destination:=NewSheet.Range("A1")
NewSheet.Move
Set wb = ActiveWorkbook stb.

  Üdv.

  [ Szerkesztve ]

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