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

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

  Új Válasz 2023-06-22 20:26:15 #51070

  Ú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

  Kicsit tovább vittem az előzőt, de megállt a tudományom. Addig jutottam, hogy összeáll az együttesen kijelölendő lapok listája. Hátha valaki tovább jut, esetleg egészen más úton.

  Sub arr()
    Dim lapszam As Integer, lap As Integer, lapok As String, 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
    
    For lap = 0 To 29
        If tomb(lap) = "" Then Exit For
        lapok = lapok & """" & tomb(lap) & """"
        lapok = lapok & ","
    Next
    
    lapok = Left(lapok, Len(lapok) - 1)
    lapok = """" & lapok
    lapok = Right(lapok, Len(lapok) - 1)
    
    Debug.Print lapok
End Sub

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