Question

I have a bug in my code (that I found a work around for), but I was hoping you could help me determine what the problem is. Here is the code that doesn’t work:

Sub replacewithnumbers1()

Dim ReplacementRange As Range

Set ReplacementRange = Range("a2:c2")
Set ReplacementRange = Range(ReplacementRange, ReplacementRange.End(xlDown))

ReplacementRange.value = ReplacementRange.value

End Sub

When I run this, it works find for A2:C17, but everything below that gets changed to “#N/A”.

Now here is the code that works:

Dim ReplacementRange As Range

Set ReplacementRange = Range("A2")
Set ReplacementRange = Range(ReplacementRange, ReplacementRange.End(xlDown))

ReplacementRange.value = ReplacementRange.value

Set ReplacementRange = Range("b2")
Set ReplacementRange = Range(ReplacementRange, ReplacementRange.End(xlDown))
ReplacementRange.value = ReplacementRange.value

Set ReplacementRange = Range("c2")
Set ReplacementRange = Range(ReplacementRange, ReplacementRange.End(xlDown))
ReplacementRange.value = ReplacementRange.value

Set ReplacementRange = Range("I2")
Set ReplacementRange = Range(ReplacementRange, ReplacementRange.End(xlDown))

ReplacementRange.value = ReplacementRange.value

All I did was break it down into more steps (one for each column), and then it works. When I do two columns at once I get the same error (either A:B or B:C). It always stops at row 17, and I don’t know why. Care to help me out?

Thanks!

Answer 1

I found out why it was behaving this way (I think). There was a filter on the data set so that row 16 wasn’t visible, and when I take the filter off- it runs correctly. Sorry it was a little anti-climactic.