Jan van Asseldonk
Terugkerende gebruiker
- Lid geworden
- 22 nov 2000
- Berichten
- 1.805
Probeer onderstaande macro eens en sla je sheet daarna op.
Deze reset het gebruikte gebied op elk blad tot hetgeen daadwerkelijk gebruikt wordt.
Probeer maar eens uit door willekeurig een aantal cellen te vullen.
Druk nu op End+Home en de cursor verplaatst zich naar de cel meest rechtsonder.
Maak deze rij en kolom leeg, druk op CTRL+HOME, de cursor gaat naar A1 en weer op END+HOME. De cursor komt nog steeds in de voorheen laatste cel uit.
Nadat je de macro gedraaid hebt komt de cursor in de daadwerkelijk laatst gevulde cel.
Ondanks dat UsedRange eigenlijk volgens de help een alleen-lezen eigenschap is lijkt het erop dat deze toch ergens het gebied reset dat meegenomen wordt in de opslag van je bestand.
Opmerking:
Ik heb hier bewust even Sheet.Select en vervolgens ActiveSheet.UsedRange gebruikt zodat je ziet dat elk blad doorlopen wordt. Hopelijk is het maar een éénmalige actie. Verkort zou je deze 2 regels kunnen vervangen door Sheet.UsedRange.
Code:
Sub RangeReset()
For Each Sheet In ThisWorkbook.Sheets
Sheet.Select
ActiveSheet.UsedRange
Next
End SubDeze reset het gebruikte gebied op elk blad tot hetgeen daadwerkelijk gebruikt wordt.
Probeer maar eens uit door willekeurig een aantal cellen te vullen.
Druk nu op End+Home en de cursor verplaatst zich naar de cel meest rechtsonder.
Maak deze rij en kolom leeg, druk op CTRL+HOME, de cursor gaat naar A1 en weer op END+HOME. De cursor komt nog steeds in de voorheen laatste cel uit.
Nadat je de macro gedraaid hebt komt de cursor in de daadwerkelijk laatst gevulde cel.
Ondanks dat UsedRange eigenlijk volgens de help een alleen-lezen eigenschap is lijkt het erop dat deze toch ergens het gebied reset dat meegenomen wordt in de opslag van je bestand.
Opmerking:
Ik heb hier bewust even Sheet.Select en vervolgens ActiveSheet.UsedRange gebruikt zodat je ziet dat elk blad doorlopen wordt. Hopelijk is het maar een éénmalige actie. Verkort zou je deze 2 regels kunnen vervangen door Sheet.UsedRange.
Laatst bewerkt:
