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

• #24325 Delila_1 veterán gyu84 #24323

  Új Válasz 2014-11-24 12:11:53 #24325

  Ú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 gyu84 #24323 üzenetére

  A két füzet és a hozzájuk tartozó lapok nevét a B1:B4 tartományba vittem be szövegként.

  Sub másolás()
  Dim WBInnen As String, WSInnen As String
  Dim WBIde As String, WSIde As String
  
  WBInnen = Range("B1") 'füzet neve kiterjesztéssel
  WSInnen = Range("B2") 'lap neve
  WBIde = Range("B3") 'füzet neve kiterjesztéssel
  WSIde = Range("B4") 'lap neve
  
  Workbooks(WBInnen).Sheets(WSInnen).Range("F1:H20").Copy Workbooks(WBIde).Sheets(WSIde).Range("D1")
  End Sub

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