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

• #20318 Delila_1 veterán Rihard83 #20317

  Új Válasz 2014-02-03 08:16:57 #20318

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

  Valószínűleg nincs bekapcsolva a bővítményeknél a 2, Analysis kezdetű bővítményed.

• #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