Modify a Loop to take N/A Values into Account.

Thank you AB33 for this!


I'm not the best with coding, so my question is: is your reply an amendment to my original code? if so where should I incorporate it.
OR is it a completely new module.

Thanks!

I have only added a single line to skip the row if it has an error-N/A

Please Login or Register  to view this content.

Hi AB33,

Thanks again,
However I incorporated your code into my worksheet, and the macro still runs an error when it gets to a cell that is #N/A.
When I am debugging, the code higlights the following line:


Dim columnValues As Range, i As Long, c As Integer
Dim cellend As Integer
cellend = ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row

For c = 1 To 6 'column numbers
For i = 3 To cellend - 1
If Not IsError(Cells(i, c).Value) Then
If Cells(i, c).Value <> "" And Cells(i + 1, c).Value = "" Then '<----error still occurring!
Cells(i + 1, c).Value = Cells(i, c).Value
End If
End If
Next i
Next c

My question in this case would be is there a way to copy the #N/A and paste it to the next cell in the bottom.

Okay, I did not see, you are comparing to next row.

Please Login or Register  to view this content.

That did the trick!

Thanks so much!!!!!