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

• #6738 WildBoarTeam senior tag

  Új Válasz 2010-04-01 11:40:29 #6738

  Ú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

  

  WildBoarTeam

  senior tag

  Üdv!

  Makróban, hogyan tudom megírni úgy több lap törlését, hogy...
  1. ne kérdezze meg mindegyik után, hogy törlöm-e.
  2. és másrészről a lapok végéről addig töröljön, amíg el nem ér pl. a "Vége" nevű lapig. (a törölni kívánt lapok száma változhat, viszont az utolsó lap, ami még kell, az a 9.)

  ilyesmire gondoltam elsőre, de a 3. lap törlése után hibára fut:

  vege = 14
  For lap = 10 To vege
  Sheets(lap).Select
  ActiveWindow.SelectedSheets.Delete
  'ide kellene az a rész, ahol igen-t mond a törlés megerősítésre.
  Next

  Az itt a másik baj, hogy ez csak fixen 5 lapot töröl(ne), így gondoltam arra is, hogy a vége értékének az utolsó lap számát adom, de nem tudom hogyan...

  Előre is köszi.

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