I cannot detect my own For Next Error in this code..
Sub SaveTotals()
'
' Detect Phase Total Row from Column I & Save row to Totals Sheet
Dim RowNdx As Long, LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
For RowNdx = LastRow To 13 Step -1
If Cells(RowNdx, "I").Value = "Phase Totals" Then
Cells(RowNdx, "A").Value = Cells(RowNdx, "E7").Value
With Sheets("Totals")
lr = .Cells(Rows.Count, "a").End(xlUp).Row + 1
Rows(c.Row).Copy .Cells(lr, 1)
End With
Next RowNdx
End Sub

Help appreciated,
Celeste

Celeste

Looks like you are missing an End If after your End With.

Good luck.

Ken
Norfolk, Va



On Sep 4, 3:52 pm, u473 wrote:
I cannot detect my own For Next Error in this code..
Sub SaveTotals()
'
' Detect Phase Total Row from Column I & Save row to Totals Sheet
Dim RowNdx As Long, LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
For RowNdx = LastRow To 13 Step -1
If Cells(RowNdx, "I").Value = "Phase Totals" Then
Cells(RowNdx, "A").Value = Cells(RowNdx, "E7").Value
With Sheets("Totals")
lr = .Cells(Rows.Count, "a").End(xlUp).Row + 1
Rows(c.Row).Copy .Cells(lr, 1)
End With
Next RowNdx
End Sub

Help appreciated,
Celeste

The problem is that you're missing an

End If

between

End With

and

Next RowNdx

In article . com,
u473 wrote:

I cannot detect my own For Next Error in this code..
Sub SaveTotals()
'
' Detect Phase Total Row from Column I & Save row to Totals Sheet
Dim RowNdx As Long, LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
For RowNdx = LastRow To 13 Step -1
If Cells(RowNdx, "I").Value = "Phase Totals" Then
Cells(RowNdx, "A").Value = Cells(RowNdx, "E7").Value
With Sheets("Totals")
lr = .Cells(Rows.Count, "a").End(xlUp).Row + 1
Rows(c.Row).Copy .Cells(lr, 1)
End With
Next RowNdx
End Sub

Help appreciated,
Celeste