Nog even een VBA vraag,
kan ik voor onderstaande code nog iets maken dat er bepaalde cellen op het eind van de opdracht leeggemaakt kunnen worden ?
Alvast vriendelijk bedankt voor het meedenken
Gr Ton
kan ik voor onderstaande code nog iets maken dat er bepaalde cellen op het eind van de opdracht leeggemaakt kunnen worden ?
Code:
Sub Overzetten()
With Sheets("Data")
lRow = .Range("A" & Rows.Count).End(xlUp).Offset(1).Row
.Cells(lRow, 1) = Sheets("Registratieblad").Range("B8").Value
.Cells(lRow, 2) = Sheets("Registratieblad").Range("B7").Value
.Cells(lRow, 3) = Sheets("Registratieblad").Range("C11").Value
.Cells(lRow, 4) = Sheets("Registratieblad").Range("B11").Value
.Cells(lRow, 5) = Sheets("Registratieblad").Range("B10").Value
.Cells(lRow, 6) = Sheets("Registratieblad").Range("B12").Value
.Cells(lRow, 7) = Sheets("Registratieblad").Range("B9").Value
.Cells(lRow, 8) = Sheets("Registratieblad").Range("C10").Value
.Cells(lRow, 9) = Sheets("Registratieblad").Range("B14").Value
.Cells(lRow, 10) = Sheets("Registratieblad").Range("B23").Value
.Cells(lRow, 11) = Sheets("Registratieblad").Range("B24").Value
With ActiveSheet
.PageSetup.PrintArea = "$A$1:$c$24"
.PrintPreview
End With
Columns.Hidden = False
End With
End Sub
Alvast vriendelijk bedankt voor het meedenken
Gr Ton
Laatst bewerkt: