# Want to Delete Date and Data

#### xeeshanxp

##### New Member
I have excel sheet which got 3500 lines of data. I want to delete rows which got date less than 30-06-2010.This macro deleteing some dates but not all of them i change the value of last to 400 but it just delete few in that iteration

Sub Test()
Dim last As Integer
Dim DaTD As Date
DaTD = DateSerial(2010, 6, 30)

last = 100

For c = 1 To last
If Range("L" & c).Value <= DaTD Then
Rows(c).EntireRow.Delete

End If

Next c

End Sub

### Excel Facts

What is =ROMAN(40) in Excel?
The Roman numeral for 40 is XL. Bill "MrExcel" Jelen's 40th book was called MrExcel XL.

#### VoG

##### Legend
You need to loop backwards. Try

Code:
``````Sub Test()
Dim last As Long, c As Long
Dim DaTD As Date
DaTD = DateSerial(2010, 6, 30)

last = Range("C" & Rows.Count).End(xlUp).Row

For c = last To 1 Step -1
If Range("L" & c).Value <= DaTD Then
Rows(c).EntireRow.Delete

End If

Next c

End Sub``````

#### Dan44

##### New Member
If you've got 3500 lines of data then you need to change the "last" variable

last = 3500

The code was only looping 100 times then stopping, so you had 3400 lines still unchecked.

#### xeeshanxp

##### New Member
No that code is not working at all now its not deleting a single row

Dan i know this thanks for letting me know

#### VoG

##### Legend

Sorry, it should be

Rich (BB code):
``last = Range("L" & Rows.Count).End(xlUp).Row``

#### xeeshanxp

##### New Member
I also want to delete some more rows containing texts in column F
What code should i used

#### xeeshanxp

##### New Member
Thanks its sorted

I am using this code where K is column

ElseIf LCase(Left\$(Range("K" & c).Value, 5)) = "khan" Then
Rows(c).EntireRow.Delete

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

1,164,451
Messages
5,837,345
Members
430,496
Latest member
Steph_88

### We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.

### Which adblocker are you using?

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

### Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

### Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back