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

• #22875 Fferi50 Topikgazda greenface #22869

  Új Válasz 2014-08-13 13:14:34 #22875

  Ú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

  

  Fferi50

  Topikgazda

  válasz greenface #22869 üzenetére

  Szia!

  Próbáld ki a következőt:

  Sub kepletszun()
  Dim sh As Worksheet
  For Each sh In ActiveWorkbook.Worksheets
  if sh.name<>"törölni kell" then
  sh.UsedRange.Value = sh.UsedRange.Value
  endif
  Next
  application.displayalerts=false
  sheets("törölni kell").delete
  application.displayalerts=true
  End Sub

  Ha csak képletek és értékek vannak, akkor menni fog. Ha kimutatás is van a munkalapokon, akkor viszont a kimutatásnál hibával leáll. (Természetesen lehet a hibát kezelni, de most csak gyorsan ezt dobtam fel, ha szükséges, szívesen átírom arra is.)

  Üdv.

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