Ú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

• #9684 bugizozi őstag radam #9683

  Új Válasz 2011-03-19 11:25:20 #9684

  Ú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

  

  bugizozi

  őstag

  válasz radam #9683 üzenetére

  Próbáld a Worksheets(nev).Select, bár szvsz az Activate-vel is működnie kellene

  ui: vagy csak simán Sheets(nev).Select/Activate...

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