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

• #47953 eszgé100 őstag eszgé100 #47952

  Új Válasz 2021-12-06 04:48:47 #47953

  Ú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

  

  eszgé100

  őstag

  válasz eszgé100 #47952 üzenetére

  találtam egy szebb megoldást:

  If manualcheck = True Then
For Each wb In Workbooks
Windows(wb.Name).Visible = True
Next

ma.Activate
Range("A1").Select

MsgBox "Update and print the sheets manually"
Else: MsgBox "Done!"

End If

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