how do i keep it all rows from deleting

[rholdren]

Sorry if this has been answered before I searched and did find some similarities but nothing quite the same and wasn't able to use what i found to fix my problem. I get a spreadsheet at the start of each month that has employee turnover by manager and department problem is that i want to be able to keep the rows equal to Account Management located in column F. The code below deletes everything in column F but it deletes the Account Management as well (it deletes everything else first and then Account Management last) It also deletes the column headers located in row three Any help would be greatly appreciated.

Sub ACCT_MGMT()
'


'
Dim lr As Long





For lr = Range("f" & Rows.Count).End(xlUp).Row To 2 Step -1
If Range("f" & lr).Value <> "Account Management" Then
Rows(lr).EntireRow.Delete
End If
Next lr




'
End Sub

 

[James006]

Hello,

Your macro is fine ...

Sub ACCT_MGMT()
Dim lr As Long
For lr = Range("f" & Rows.Count).End(xlUp).Row To 2 Step -1
  If Range("f" & lr).Value <> "Account Management" Then
    Rows(lr).EntireRow.Delete
  End If
Next lr
End Sub

Just make sure the spelling of Account Management is exactly identical.... both in your sheet and in your macro ..

HTH

 

[Fluff]

Along with what James006 has said you'll need to make this change, to prevent the header row being deleted.

For lr = Range("f" & Rows.Count).End(xlUp).Row To [COLOR=#ff0000]4[/COLOR] Step -1

 

[rholdren]

That worked thanks

 

[Fluff]

Glad we could help & thanks for the feedback