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

• #2474 vilag tag sztanozs #2473

  Új Válasz 2014-07-03 22:12:58 #2474

  Ú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

  

  vilag

  tag

  válasz sztanozs #2473 üzenetére

  Van előtte On Error, de pont ez a lényege.

  A kód:
  On Error GoTo vege
  ActiveSheet.ShowAllData
  Range("a" + Trim(ActiveSheet.Range("a14").End(xlDown).Row)).Select
  Exit Sub
  
  vege:
  If sorbeszur = True Then Exit Sub
  uzenet = MsgBox("Már minden tétel látható!", 64, "Rendszerüzenet")
  
  End Sub

  A kérdés sokkal inkább az, hogy miért van az, hogy az egyik gépen működik, a másikon pedig nem???
  Elvileg azonos futtatási környezet...

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