Selecteer en delete laatst gevulde rij

Status
Niet open voor verdere reacties.

goof2808

Gebruiker
Lid geworden
2 feb 2007
Berichten
130
Hi,

Ik heb onderstaande code om de laatst gevulde rij te selecteren.

Code:
Option Explicit

Sub test()

    Dim lRow As Long
    lRow = Cells(Rows.Count, 1).End(xlUp).Row
     
    Dim lCol As Long
    lCol = Cells(lRow, Columns.Count).End(xlToLeft).Column
     
    Range("A" & lRow & ":" & Cells(lRow, lCol).Address).Select
     
End Sub

Nu wordt de hele rij geselecteerd.
Maar ik wil dat alleen kolom A t/m P geselecteerd en gewist wordt.

Kan iemand me helpen?

Thanks, Govi
 
Code:
Sub test()

    Dim lRow As Long
    Dim lCol As Long
    
    lRow = Cells(Rows.Count, 1).End(xlUp).Row
    lCol = Cells(lRow, Columns.Count).End(xlToLeft).Column
     
    Range("A" & lRow & ":" & "P" & lRow).ClearContents
     
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan