VBAWannabee2
New Member
- Joined
- Feb 23, 2022
- Messages
- 28
- Office Version
- 2010
- Platform
- Windows
Good day!
Hi, asking for your little help on this one.
After finding(selecting) the value of "Proj" on the active sheet, I want to delete all rows above it except the row where the "Proj" exist.
The code for it was the only one I'm missing / having trouble to.
Sub Process1()
ActiveSheet.Select
cells.Sort Key1:=Columns("A"), key2:=Columns("B")
cells.Find(What:="Proj", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
---missing---
selection.Delete shift:=xlUp
End Sub
Thank you in advance!
Hi, asking for your little help on this one.
After finding(selecting) the value of "Proj" on the active sheet, I want to delete all rows above it except the row where the "Proj" exist.
The code for it was the only one I'm missing / having trouble to.
Sub Process1()
ActiveSheet.Select
cells.Sort Key1:=Columns("A"), key2:=Columns("B")
cells.Find(What:="Proj", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
---missing---
selection.Delete shift:=xlUp
End Sub
Thank you in advance!