Hello all, I'm having problems with the code below. The purpose of
the code is to check column A cell content for "Delete" which is
populated by a vlookup formula. The problem is if an account is not
found then the cell is populated with #N/A and causes a run-time error
'13: type mismatch. Any ideas on correcting this? Appreciate your
assistance, Ron


Sub DeleteSTBAccounts()
Dim RowNdx As Long
Dim LastRow As Long

application.ScreenUpdating = False
ActiveSheet.Rows.Hidden = False


LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row


For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "A") = "Delete" Then
Rows(RowNdx).EntireRow.Delete
End If

Next RowNdx
range("A1").Select
End Sub

It might not like the redundancy in this line:

Rows(RowNdx).EntireRow.Delete

try:


Rows(RowNdx).Delete



"Ron" <(E-Mail Removed)> wrote in message
news:bfcf572d-e24f-4601-9604-(E-Mail Removed)...
> Hello all, I'm having problems with the code below. The purpose of
> the code is to check column A cell content for "Delete" which is
> populated by a vlookup formula. The problem is if an account is not
> found then the cell is populated with #N/A and causes a run-time error
> '13: type mismatch. Any ideas on correcting this? Appreciate your
> assistance, Ron
>
>
> Sub DeleteSTBAccounts()
> Dim RowNdx As Long
> Dim LastRow As Long
>
> application.ScreenUpdating = False
> ActiveSheet.Rows.Hidden = False
>
>
> LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
>
>
> For RowNdx = LastRow To 1 Step -1
> If Cells(RowNdx, "A") = "Delete" Then
> Rows(RowNdx).EntireRow.Delete
> End If
>
> Next RowNdx
> range("A1").Select
> End Sub

Hi JLGWhiz, the error is coming on this line.... If Cells(RowNdx,
"A") = "Delete" Then. I made the suggested change, but still got the
error. Thanks, Ron


On Aug 21, 1:49*pm, "JLGWhiz" <JLGW...@cfl.rr.com> wrote:
> It might not like the redundancy in this line:
>
> Rows(RowNdx).EntireRow.Delete
>
> try:
>
> Rows(RowNdx).Delete
>
> "Ron" <whasupwit...@verizon.net> wrote in message
>
> news:bfcf572d-e24f-4601-9604-(E-Mail Removed)...
>
>
>
> > Hello all, *I'm having problems with the code below. *The purpose of
> > the code is to check column A cell content for "Delete" which is
> > populated by a vlookup formula. *The problem is if an account is not
> > found then the cell is populated with #N/A and causes a run-time error
> > '13: type mismatch. *Any ideas on correcting this? *Appreciate your
> > assistance, Ron
>
> > Sub DeleteSTBAccounts()
> > Dim RowNdx As Long
> > Dim LastRow As Long
>
> > application.ScreenUpdating = False
> > ActiveSheet.Rows.Hidden = False
>
> > LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
>
> > For RowNdx = LastRow To 1 Step -1
> > * * * *If Cells(RowNdx, "A") = "Delete" Then
> > * * * * * *Rows(RowNdx).EntireRow.Delete
> > * * * *End If
>
> > Next RowNdx
> > range("A1").Select
> > End Sub- Hide quoted text -
>
> - Show quoted text -

Hi Stan, worked perfect. Thank you for your assistance, Ron




On Aug 21, 2:04*pm, Ron <whasupwit...@verizon.net> wrote:
> Hi JLGWhiz, *the error is coming on this line.... If Cells(RowNdx,
> "A") = "Delete" Then. *I made the suggested change, but still got the
> error. *Thanks, Ron
>
> On Aug 21, 1:49*pm, "JLGWhiz" <JLGW...@cfl.rr.com> wrote:
>
>
>
> > It might not like the redundancy in this line:
>
> > Rows(RowNdx).EntireRow.Delete
>
> > try:
>
> > Rows(RowNdx).Delete
>
> > "Ron" <whasupwit...@verizon.net> wrote in message
>
> >news:bfcf572d-e24f-4601-9604-(E-Mail Removed)...
>
> > > Hello all, *I'm having problems with the code below. *The purposeof
> > > the code is to check column A cell content for "Delete" which is
> > > populated by a vlookup formula. *The problem is if an account is not
> > > found then the cell is populated with #N/A and causes a run-time error
> > > '13: type mismatch. *Any ideas on correcting this? *Appreciate your
> > > assistance, Ron
>
> > > Sub DeleteSTBAccounts()
> > > Dim RowNdx As Long
> > > Dim LastRow As Long
>
> > > application.ScreenUpdating = False
> > > ActiveSheet.Rows.Hidden = False
>
> > > LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
>
> > > For RowNdx = LastRow To 1 Step -1
> > > * * * *If Cells(RowNdx, "A") = "Delete" Then
> > > * * * * * *Rows(RowNdx).EntireRow.Delete
> > > * * * *End If
>
> > > Next RowNdx
> > > range("A1").Select
> > > End Sub- Hide quoted text -
>
> > - Show quoted text -- Hide quoted text -
>
> - Show quoted text -