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

• #51069 Delila_1 veterán föccer #51068

  Új Válasz 2023-06-22 18:02:13 #51069

  Ú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 föccer #51068 üzenetére

  
  Eddig jutottam el:

  Sub arr()
    Dim lapszam As Integer, lap As Integer
    Dim tomb(29)
    
    For lap = 2 To 4
        tomb(lap - 2) = Sheets(lap).Name
    Next
    
    lapszam = Sheets("Kezelő").Range("D23")
    For lap = 5 To lapszam + 4
        If Mid(Sheets(lap).Name, 4, 2) * 1 <= lapszam Then
            tomb(lap - 2) = Sheets(lap).Name
        End If
    Next 
End Sub

  Innen valahogy be kell olvasnod az array-ba a tomb neveit, de most el kell rohannom, késésben vagyok.

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