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

• #20188 Delila_1 veterán Rihard83 #20185

  Új Válasz 2014-01-22 11:00:27 #20188

  Ú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 Rihard83 #20185 üzenetére

  Tegyél ki egy gombot, ahhoz rendeld a makrót. Kijelölöd a másolandó tartományt, a gombra klikkelve átmásolja a Másik lap A oszlopának aljára.

  Sub Masol()
  Dim sor As Long, WF As WorksheetFunction, WS As Worksheet
  
  Set WF = Application.WorksheetFunction
  Set WS = Sheets("Másik lap")
  sor = WS.Application.WorksheetFunction.CountA(WS.Columns(1)) + 1
  Selection.Copy WS.Range("A" & sor)
  End Sub

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