Log In
Register
Home
Macro to search and delete
Kavin Cannon
Charlotte NC
New Member
Members
Forum Posts: 1
Member Since:
March 1, 2019
March 1, 2019
Offline1
March 1, 2019 - 11:51 pm
Need a macro that will select the value in A1 on one page and search column A on another page. If it finds a match, delete that row!
First page will have about 30 values to look up. Page two could have 20 to 200 values to search through and the row is six columns wide.
SunnyKow
Puchong, Malaysia
VIP
Members
Trusted Members
Trusted Members
Forum Posts: 1432
Member Since:
June 25, 2016
June 25, 2016
Offline2
March 2, 2019 - 10:21 am
Hi Kavin, welcome to the forum.
Give this a try.
Sub DelRows()
Dim LastRow As Long
Dim i As Long
Dim ValToCompare
'Value to compare
ValToCompare = Sheets("Sheet1").Range("A1").Value
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = LastRow To 1 Step -1
If Cells(i, 1) = ValToCompare Then
'Delete entire row if cell is equal to ValToCompare
Rows(i).Delete Shift:=xlUp
End If
Next
Application.ScreenUpdating = True
End Sub
Good luck
Sunny
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online: Catalin Bombea, John Kobiela, Malcolm Sawyer
Guest(s) 9
Currently Browsing this Page:
1 Guest(s)
1 Guest(s)
Top Posters:
SunnyKow: 1432
Anders Sehlstedt: 873
Purfleet: 414
Frans Visser: 346
David_Ng: 306
lea cohen: 222
Jessica Stewart: 216
A.Maurizio: 202
Aye Mu: 201
jaryszek: 183
Newest Members:
Melanie Ford
Isaac Felbah
Adele Glover
Hitesh Asrani
Rohan Abraham
Anthony van Riessen
Erlinda Eloriaga
Abisola Ogundele
MARTYN STERRY
Rahim Lakhani
Forum Stats:
Groups: 3
Forums: 24
Topics: 6356
Posts: 27793
Member Stats:
Guest Posters: 49
Members: 32324
Moderators: 3
Admins: 4
Administrators: Mynda Treacy, Philip Treacy, Catalin Bombea, FT
Moderators: MOTH Support, Velouria, Riny van Eekelen
© Simple:Press —