| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Modify to delete row
LastRow = Cells(Rows.Count, "AJ").End(xlUp).Row
For i = LastRow To 1 Step -1 If Cells(i, "AJ").Value = "1" Then Cells(i, 1).Range("B1").ClearContents End If Next The above will clear content only, what change is needed to delete the entire row. Pat |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Modify to delete row
Hi Pat,
LastRow = Cells(Rows.Count, "AJ").End(xlUp).Row For i = LastRow To 1 Step -1 If Cells(i, "AJ").Value = "1" Then Cells(i, 1).Range("B1").Entirerow.Delete End If Next -- HTH RP (remove nothere from the email address if mailing direct) "Pat" wrote in message ... LastRow = Cells(Rows.Count, "AJ").End(xlUp).Row For i = LastRow To 1 Step -1 If Cells(i, "AJ").Value = "1" Then Cells(i, 1).Range("B1").ClearContents End If Next The above will clear content only, what change is needed to delete the entire row. Pat |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I delete or modify an existing drop down list? | Excel Discussion (Misc queries) | |||
| Modify a UDF please? | Excel Worksheet Functions | |||
| i am unable to add, delete or modify in excel or word. | Setting up and Configuration of Excel | |||
| Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below | Excel Programming | |||
| How would I modify the following? | Excel Programming | |||
Linear Mode
