If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
macro shortcut help
Hello I have a Macro set up in spreadsheets I have made for multiple people.
I have set it up so they can paste the info needed in a worksheet and then use the shortcut ctr(a) to run the macro below to delete all rows with lab in it. Sub Find_LAB() Dim rng As Range Dim what As String what = "LAB" Do Set rng = ActiveSheet.UsedRange.Find(what) If rng Is Nothing Then Exit Do Else Rows(rng.Row).Delete End If Loop End Sub This worked well for a while but now I find that the shortcut is not working. any idea why this is? thanks for any help! |
#2
|
|||
|
|||
macro shortcut help
I couldn't make sense of your code so I wrote this to do what I think you want:
Sub mcrDelete_If_LAB() Dim rngRow As Range For Each rngRow In ActiveSheet.UsedRange.Rows If Not rngRow.Find("LAB") Is Nothing Then rngRow.Delete End If Next rngRow End Sub Try It Tom |
Thread Tools | |
Display Modes | |
|
|