Ú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

• #40909 Mutt senior tag visit #40908

  Új Válasz 2019-04-26 19:56:09 #40909

  Ú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

  

  Mutt

  senior tag

  válasz visit #40908 üzenetére

  Szia,

  ... munkalap adott oszlopaiban szereplő számokat összeadni az oszlop alatti cellában, az első üres sorban...

  Ehhez nem kell VBA. Alakítsd át táblázattá a tartományt és be tudod állítani, hogy a táblázat utolsó sorában legyen összegzés vagy más.

  

  üdv

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