View Single Post
 
Old 12-06-2017, 06:10 AM
Logit Logit is offline Windows 10 Office 2007
Expert
 
Join Date: Jan 2017
Posts: 591
Logit is a jewel in the roughLogit is a jewel in the roughLogit is a jewel in the roughLogit is a jewel in the rough
Default

.
Or maybe :

Code:
Option Explicit

Sub sbDelete_Rows_With_Specific_Data()
Dim lRow As Long
Dim iCntr As Long
Dim iCol As Long
iCol = 26   'add cols here
lRow = 20   'add rows here
For iCol = 1 To 26  'match last col number here with total cols above
    For iCntr = lRow To 1 Step -1
        If Cells(iCntr, iCol) = "loan" Or Cells(iCntr, iCol) = "financial" _
        Or Cells(iCntr, iCol) = "bank" Or Cells(iCntr, iCol) = "equity" Then ' You can change this text
            Rows(iCntr).Delete
        End If
    Next
Next
End Sub
Reply With Quote