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

• #1855 matekmatika tag gonosz yoda #1853

  Új Válasz 2006-12-20 10:52:21 #1855

  Ú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

  

  matekmatika

  tag

  válasz gonosz yoda #1853 üzenetére

  Sub SelAllData()
  Application.ScreenUpdating = False
  Dim myLastRow As Long
  Dim myLastColumn As Long
  Range(''A1'').Select
  On Error Resume Next
  myLastRow = Cells.Find(''*'', [A1], , , xlByRows, xlPrevious).Row
  myLastColumn = Cells.Find(''*'', [A1], , , xlByColumns, xlPrevious).Column
  myLastCell = Cells(myLastRow, myLastColumn).Address
  myRange = ''a1:'' & myLastCell
  Application.ScreenUpdating = True
  Range(myRange).Select
  End Sub
  

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