VBA vraag

[Hylas]

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 ?

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

 

[VenA]

Gebruik codetags en geef aan welke cellen leeggemaakt moeten worden. Bepaalde cellen is nogal onbepaald.

 

[edmoor]

Dit?

Range("B7, B8, B10, B11, B14, B23, B24, C10, C11") = ""

Als dat de cellen zijn die je bedoelt.
En wat is je ActiveSheet? Data? Registratieblad? Een andere?

 

[Hylas]

ja maar waar moet ik de code zetten ??

Dit?

Range("B7, B8, B10, B11, B14, B23, B24, C10, C11") = ""

Als dat de cellen zijn die je bedoelt.
En wat is je ActiveSheet? Data? Registratieblad? Een andere?

 

[edmoor]

Dat zei je zelf al:

dat er bepaalde cellen op het eind van de opdracht leeggemaakt kunnen worden

 

[VenA]

Quoten is niet nodig. Je kan de code het best plaatsen in het niet geplaatste voorbeeldbestand.

 

[Hylas]

Weer gelukt mannen, dank voor jullie bijdrage, heb er echt zoveel plezier van