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

• #2027 lapa veterán Empityu #1999

  Új Válasz 2007-02-13 18:34:20 #2027

  Ú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

  

  lapa

  veterán

  válasz Empityu #1999 üzenetére

  Sub LastCellInColumn()
  Range(''A65536'').End(xlup).Select
  End Sub
  
  
  ([link])
  
  előtte szükség lehet az uccsó használt cella resetelésére. nem kell külön sub hozzá, elég a másik elé írni.
  
  Sub Reset_lastcell()
  'David McRitchie, http://www.mvps.org/dmcritchie/excel/lastcell.htm
  Dim x As Long 'Attempt to fix the lastcell on the current worksheet
  x = ActiveWorksheet.UsedRange.Rows.Count 'see J-Walkenbach tip 73
  End Sub
  
  
  ([link])

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