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

• #9686 Delila_1 veterán radam #9683

  Új Válasz 2011-03-19 11:38:51 #9686

  Ú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

  

  Delila_1

  veterán

  válasz radam #9683 üzenetére

  Próbáld ezt:

  Sub ugras()
  Sheets("Munka1").Select
  usor = Range("A1").End(xlDown).Row
  For sor = 1 To usor
  lapnev = Sheets("Munka1").Cells(sor, 1)
  Sheets(lapnev).Select
  MsgBox "Itt vagyok a(z) " & lapnev & " lapon"
  Next
  End Sub

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