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

• #21522 Delila_1 veterán lenkei83 #21521

  Új Válasz 2014-05-09 18:29:06 #21522

  Ú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 lenkei83 #21521 üzenetére

  Próbálkoztam, de nem jön össze.

  Sub lapok()
  Dim lap%, szoveg$
  
  For lap% = 1 To Worksheets.Count
  If Right(Sheets(lap%).Name, 1) = "x" Then
  szoveg$ = szoveg$ & Sheets(lap%).Name & """" & ","
  End If
  Next
  
  szoveg$ = Left(szoveg$, Len(szoveg$) - 2)
  Sheets(Array(szoveg$)).Select
  End Sub

  Az utolsó sornál túlcsordulást jelez. Talán kiindulásnak jó.

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