johandezeeuw
Gebruiker
- Lid geworden
- 2 dec 2002
- Berichten
- 358
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
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.
Sub tst()
With sheets(1)
For Each cl In .Cells.SpecialCells(2)
If cl.Column > c Then c = cl.Column
If cl.Row > r Then r = cl.Row
Next
For Each cl In .Cells.SpecialCells(xlCellTypeFormulas)
If cl.Column > c Then c = cl.Column
If cl.Row > r Then r = cl.Row
Next
.Rows(r + 1).Resize(.Rows.Count - r).Delete
.Columns(c + 1).Resize(, .Columns.Count - c).Delete
End With
Activeworkbook.Close True
End Sub
Draai deze macro. Open het bestand daarna opnieuw
Code:Sub tst() With sheets(1) For Each cl In .Cells.SpecialCells(2) If cl.Column > c Then c = cl.Column If cl.Row > r Then r = cl.Row Next For Each cl In .Cells.SpecialCells(xlCellTypeFormulas) If cl.Column > c Then c = cl.Column If cl.Row > r Then r = cl.Row Next .Rows(r + 1).Resize(.Rows.Count - r).Delete .Columns(c + 1).Resize(, .Columns.Count - c).Delete End With Activeworkbook.Close True End Sub
Sub tst()
With sheets(1)
.UsedRange
.Parent.Close True
End With
End Sub
@Wigi
Kun jij mij vertellen wat de 2e regel doet ? Bij mijn weten is usedrange geen methode (of ben je copy vergeten ?)![]()
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.