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

• #31005 Fferi50 Topikgazda YAN0U #31004

  Új Válasz 2016-03-14 17:05:35 #31005

  Ú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 YAN0U #31004 üzenetére

  Szia!

  A fájlnevet megadhatod így:
  Windows("Terv_HWP_" & Format(date,"yyyy_mm_dd" & ".xlsm").Activate

  De magát a másolást is egyszerűbben tudod megtenni:
  Workbooks("Terv.xlsx").Sheets("Terv").Range("A1:C25").Value=Workbooks("Terv_HWP_" & Format(Date,"yyyy_mm_dd" & ".xlsm").Sheets("Tény").Range("A1:C25").Value

  Mivel a Terv nevű fájlt utoljára nyitod meg, ha csak egy munkalapja van, akkor elég az
  Activesheet.Range("A1:C25").Value=Workbooks("Terv_HWP_" & Format(Date,"yyyy_mm_dd" & ".xlsm").Range("A1:C25").Value

  tekintettel arra, hogy megnyitás után az lesz az aktív munkalap.

  Nem kell ide-oda ugrálni a két munkafüzet között. Figyelj rá, hogy a kódban a workbooks - worksheets forma van és nem a windows!

  Üdv.

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