Ú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.

• #22873 Delila_1 veterán greenface #22869

  Új Válasz 2014-08-13 12:58:27 #22873

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

  Azonos mappában vannak a fájlok?
  A fájlokon belül minden lapon kell módosítani?
  Minden fájlban azonos annak a lapnak a neve, amit törölni kell?
  Az egyes lapokon azonos területeket kell felülírni az értékükkel?

  Ezeket kell tudni az automatizáláshoz.

• #22870 Bobrooney senior tag greenface #22869

  Új Válasz 2014-08-13 12:02:36 #22870

  Ú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

  

  Bobrooney

  senior tag

  válasz greenface #22869 üzenetére

  Ha minden igaz akkor exportáld csv-ként (elvileg ilyenkor rákérdez, hogy mi legyen, menj az igen-re), azt hiszem ezután eltűnnek a képletek, és copy-zd össze.

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