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

• #48535 lappy őstag zseko #48534

  Új Válasz 2022-02-17 21:21:53 #48535

  Ú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

  

  lappy

  őstag

  válasz zseko #48534 üzenetére

  Sub Dosomething()
  Dim xSh As Worksheet
  Application.ScreenUpdating = False
  For Each xSh In Worksheets
  xSh.Select
  Call RunCode
  Next
  Application.ScreenUpdating = True
  End Sub
  Sub RunCode()
  'your code here
  End Sub
  A modulban kell tenni és a kódot beilleszteni

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