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

• #38186 morgusz csendes tag

  Új Válasz 2018-06-02 22:46:13 #38186

  Ú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

  

  morgusz

  csendes tag

  Bocsi!

  Az előbb azt nem írtam le, hogy már ott elakadtam, hogy nem tudom, hogyan kellene kijelölnöm másolásra a forrás tábla utolsó sorát.

  Találtam egy ilyen mintát, de nem igazán értem, hogy mire használható, és hogy működtethető?

  "Utolsó használt sor
  példa
  Sub FindLastRow()
  Dim LastRow As Long

  If WorksheetFunction.CountA(Cells) > 0 Then
  ‘Search for any entry, by searching backwards by Rows.
  LastRow = Cells.Find(What:="*", After:=[A1], _
  SearchOrder:=xlByRows, _
  SearchDirection:=xlPrevious).Row
  MsgBox LastRow
  End If
  End Sub"

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