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

• #51072 Delila_1 veterán föccer #51071

  Új Válasz 2023-06-23 06:30:13 #51072

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

  Jó ötlet.
  Esetleg a kötelező 3 lap nyomtatása után egy for-next ciklust indíthatnál.

  Db = Sheets("Kezelő").Range("D23")
For lap = 5 To 24
    If Mid(Sheets(lap).Name, 4, 2) * 1 <= Db Then
        'nyomtatás
    Else
        'exit for
    End If
Next

  Biztosan van ennél egyszerűbb VBA-s megoldás az együttes lapok kijelölésére.

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