Warme bakkertje
Meubilair
- Lid geworden
- 13 apr 2008
- Berichten
- 7.551
- Besturingssysteem
- Windows 10
- Office versie
- Office 2016 Prof Plus EN
Gebruik Clear ipv ClearContents
"Dé grootste en gratis computerhelpdesk van Nederland"
-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
VBA vraag ActiveSheet.Copy
- Onderwerp starter oceanrace
- Startdatum
- Status
trucker10
Terugkerende gebruiker
- Lid geworden
- 3 dec 2008
- Berichten
- 2.881
Met dit verschil dat " clear " enkel de cel zuivert van alles en dat jouw delete je ganse sheet zal om zeep zal helpen > delete zal altijd een cel opschuiven .
Na alles wat ik persoonlijk al heb gelezen van jouw antwoorden raad ik je toch een VBA boek aan of een gratis cursus via het www
.
oceanrace
Gebruiker
- Lid geworden
- 14 mei 2008
- Berichten
- 198
Zoiets dan?
.Columns("AC:IV").EntireColumn.Delete
.Rows("49:65000").EntireRow.Delete
Die van warme bakkertje werkt ook, die verwijderd niet echt maar maakt leeg.
Het liefst verwijder ik alles, dan wordt mijn bestand een stuk kleiner.
Ik heb het nu zo opgelost met behulp van Warme bakkertjes code en een toevoeging om ook opmerkingen en objecten (plaatjes) te verwijderen:
.Columns("AC:IV").EntireColumn.Delete
.Rows("49:65000").EntireRow.Delete
Die van warme bakkertje werkt ook, die verwijderd niet echt maar maakt leeg.
Het liefst verwijder ik alles, dan wordt mijn bestand een stuk kleiner.
Ik heb het nu zo opgelost met behulp van Warme bakkertjes code en een toevoeging om ook opmerkingen en objecten (plaatjes) te verwijderen:
Code:
Union(.Range(.Cells(49, 1), .Cells(.Rows.Count, .Columns.Count)), _
.Range(.Cells(1, 29), .Cells(48, .Columns.Count))).Clear
ActiveSheet.Cells.ClearComments
ActiveSheet.DrawingObjects.Visible = True
ActiveSheet.DrawingObjects.Delete
Laatst bewerkt:
- Status
