VBA, Office 2007, dynamisch bereik pagina-einde

[jackfish]

Ik heb een excel bestand met meerdere tabbalden waarop rijen staan. Met dank aan snb heb ik een mooie code om rijen te verplaatsen van het ene blad naar het andere. Dat werkt perfect.

Sub Blad2()
ActiveCell.EntireRow.Cut Sheets("Blad2").Cells(Rows.Count, 2).End(xlUp).Offset(1, -1)
ActiveCell.EntireRow.Delete
End Sub

Nu doet zich alleen een probleem voor met de pagina-eindes. Na een aantal keren bewerken 'vallen' verplaatste rijen van de pagina. Is er een mogelijkheid met VBA om het printbereik te definieren door de breedte vast te zetten (Kolom L is bij mij vast) en het aantal gevulde rijen variabel te houden?

Gr jackfish

 

[jackfish]

Ik heb het antwoord gevonden hier op Helpmij, een reactie van WiGi uit 21-08-2077

Sub VariabelPrintbereik()

Dim lLaatsteRegel As Long

lLaatsteRegel = Range("A" & Rows.Count).End(xlUp).Row

ActiveSheet.PageSetup.PrintArea = Range("A1:H" & lLaatsteRegel).Address(1, 1)

End Sub

Hulde aan dit forum! jackfish