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

• #5681 Delila_1 veterán ffxgabor #5680

  Új Válasz 2009-11-21 14:40:11 #5681

  Ú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 ffxgabor #5680 üzenetére

  Futtatás előtt add meg az útvonalat és a fájl nevét, kiterjesztését az idézőjelek között.

  Sub Tartomany_masolas()
  Dim UtvonalAndNev As String
  
  Application.DisplayAlerts = False
  
  UtvonalAndNev = "Ide jön az útvonal és a fájlnév kiterjesztéssel"
  Workbooks.Open Filename:=UtvonalAndNev
  Sheets("db").Select
  Range("C10:V2000").Copy
  ActiveWindow.Close False
  Sheets("db").Select
  Range("C10").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  
  Application.DisplayAlerts = True
  
  End Sub

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