U
u473
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
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