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

• #30526 Delila_1 veterán alfa20 #30525

  Új Válasz 2016-02-11 14:08:44 #30526

  Ú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 alfa20 #30525 üzenetére

  Sub Masolas()
  Dim WSInnen As Worksheet, WSIde As Worksheet, usor As Long
  
  Set WSInnen = Workbooks("Innen.xlsm").Sheets("Munka1")
  Set WSIde = Workbooks("Ide.xlsx").Sheets("Munka1")
  
  usor = WSInnen.Range("A" & Rows.Count).End(xlUp).Row
  WSInnen.Range("A2:B" & usor).Copy WSIde.Range("A2")
  End Sub

  Látod, véletlenül sem találsz Active... hivatkozást. Bármelyik füzeten állva indíthatod a makrót.

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