Delete a row based on user selection
I want to delete the row if a user select "Reject It" from a drop down list. I coded it like this: Which is not working for me, please help
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ThisWorkbook.Activate
Worksheets("AllDeps").Activate
With Worksheets("AllDeps")
Dim i As Integer
For i = 2 To 19
If .Range("M" & i) = "Reject it" Then
Rows(i).EntireRow.Delete
End If
Next
End With
End Sub
Code tags are required when displaying code, please use them.Originally Posted by vivekchha
...
Please Login or Register to view this content.
Your code is in the worksheet module, there would be no reason to activate the workbook because you are already in the workbook, same goes for activating the sheet.
Give this a try..... Put it in a regular module, see my signature if you don't know where the code goes.
Please Login or Register to view this content.
Try this as a sheet specific macro,
Right click on the sheet name at the bottom of excel
Paste this there.
Delete your existing code.
Please Login or Register to view this content.
Hi mehmetcik,
Would you not have to start at the bottom to delete rows in your loop?
Hi Dave you are right it would be slightly faster to go from bottom to top.
Please Login or Register to view this content.
Thanks all. I got it. In fact I put "Reject It" in drop down list whereas "Reject it" in codes.
Some times so small mistakes take so much time.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
,
Bookmarks