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

• #22562 Delila_1 veterán slashing #22561

  Új Válasz 2014-07-24 10:12:39 #22562

  Ú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 slashing #22561 üzenetére

  Nem írtad, csak feltételezem, hogy a másolandó adatok a D6 cellától lefelé helyezkednek el.

  Sub nn()
  Dim Innen As Worksheet, Ide As Worksheet, usorInnen As Long, oszlopIde
  
  Set Innen = Workbooks("Innen.xls").Sheets("ErrolALaprol")
  Set Ide = Workbooks("Ide.xls").Sheets("ErreALapra")
  
  usorInnen = Innen.Range("D" & Rows.Count).End(xlUp).Row + 1
  oszlopIde = Ide.Cells(6, Columns.Count).End(xlToLeft).Column + 1
  
  Innen.Range("D6:D" & usorInnen).Copy Ide.Cells(6, oszlopIde)
  End Sub

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