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

• #40913 Pakliman tag visit #40908

  Új Válasz 2019-04-27 09:42:59 #40913

  Ú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

  

  Pakliman

  tag

  válasz visit #40908 üzenetére

  Szia!

  Az utolsó használt cella egy adott oszlopban:
  Worksheets("Munkalap_Neve").Cells(Worksheets("Munkalap_Neve").Cells.Rows.Count, oszlop_száma).End(xlUp).Row
  (A Worksheets("Munkalap_Neve"). elhagyható, ha nem egy konkrét munkalapon, hanem az éppen aktívon akarod futtatni a makrót.)
  pl.:

  Sub x()
Dim us As Long
Dim o As Long

o = 1
us = Cells(Cells.Rows.Count, o).End(xlUp).Row
Cells(us + 1, o) = Application.Sum(Range(Cells(2, o), Cells(us, o)))
End Sub

  Kellemes további kísérletezést

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