How to use Macro to delete this row??

[kamikazi]

What am I suppose to put this <> section to get the row deleted?
I tried writing < Opp.Offset(0, 1).Selection.EntireRow.Delete>
but it's not working. Please advise.

Dim shC As Object, shD As Object, Opp As Object, BPRole As Object,
As Long, k As Long

Dim ops As Object

Set shC = Sheets("Results")
Set shD = Sheets("New")
'Name of the spreadsheets

For j = shD.Range("B500").End(xlUp).Row To 1 Step -1
Set Opp = shD.Cells(j, 11)
Set BPRole = shD.Cells(j, 7)
If (Opp >= 100000) And (BPRole = "BPA") Then

<>

End If
Next

 

[Melanie Breden]

I tried writing < Opp.Offset(0, 1).Selection.EntireRow.Delete>
but it's not working. Please advise.

Dim shC As Object, shD As Object, Opp As Object, BPRole As Object, j
As Long, k As Long

Dim ops As Object

Set shC = Sheets("Results")
Set shD = Sheets("New")
'Name of the spreadsheets

For j = shD.Range("B500").End(xlUp).Row To 1 Step -1
Set Opp = shD.Cells(j, 11)
Set BPRole = shD.Cells(j, 7)
If (Opp >= 100000) And (BPRole = "BPA") Then

<>

End If
Next j

try this:

If (Opp < 100000) And (BPRole <> "BPA") Then
shD.Rows(j).Delete
End If

--
Regards
Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)

 

[kamikazi]

Awesome! that worked...

Thank you!