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

• #41560 Delila_1 veterán Sutyi73 #41559

  Új Válasz 2019-08-13 06:14:29 #41560

  Ú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

  

  Delila_1

  veterán

  válasz Sutyi73 #41559 üzenetére

  Mivel a

  Range("A2:E" & ActiveSheet.UsedRange.Rows.Count).Copy Destination = _ wb.Worksheets("Célmunkalap").Range("A" & wb.Worksheets("Célmunkalap").UsedRange.Rows.Count + 1)

  sorral már megtörtént a másolás, nincs szükség a

  Windows("Órák.xlsm").Activate
Range("A" & wb.Worksheets("Célmunkalap").UsedRange.Rows.Count + 1).Select
ActiveSheet.Paste

  sorokra. Nem programkódként másoltad ide a makrót, így nem látom, hogy a felső utasítás 1 sorban van-e. A "Destination =" után egy szóközzel alsó kötőjelet tettem be az eredeti mögé.

  A mappából megnyitott füzet bezárását így add meg

  Workbooks(fileName).Close False

  akkor nem kérdez rá a mentésre.

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