Hi,
Here's the code that I wrote to delete all the rows that not empty in column V. However, it did not work. Please help. Thanks.
Best regards,
Dim LCell As Range Dim X As Long X = ActiveSheet.UsedRange.Rows.Count For Each LCell In Range("V2:V" & X) If LCell.FormularR1C1 <> "" Then LCell.Select Selection.EntireRow.Select Selection.Activate Selection.Delete Shift:=xlUp End If Next
Matt
Last edited by mattjchen2@gmail.com; 07-08-2013 at 10:48 AM.
Matt,
Please use code tags with your code as per forum's rule.
Do you mean you want to delete a row if column V is EMPTY? Is it entire row?
Here's the X for.
Dim X As Long
X = ActiveSheet.UsedRange.Rows.Count
I like to remove the rows that are not Empty. I was not familiar with the code, so I used "=" for a test. Eventually, I will change it to "Not Equal".
Sorry about the rule. I have to learn it first.
My code attached.
This line shows that you are testing for empty cell.
If LCell.FormularR1C1 = "" Then
Thank you very much AB33. Your code worked perfectly, and provided a lot for me to learn as well.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
mattjchen2@gmail.com 
Register To Reply
Bookmarks