dynamic range

[dedelkoo]

Hello All;

Hoping someone can help me out with syntax. I'm trying to scan a range (by line) that will kick out if any error are present in the cells.

For X = LR To 2 Step -1
 
If IsError(Range("CD" & X:"CP" & X).Value) Then
        MsgBox "File contains errors, please address and retry CSV creation"
        Range("CD" & X).Select
        ThisWorkbook.Close
        Exit Sub
end if
Next X

However the second part of the range isn't being accepted, I've tried using a comma as separator but that doesn't work either. Any suggestions?

Thanks in advance,

Derek

 

[Jonmo1]

Just a little off in the concatenation of the range...

If IsError(Range("CD" & X:"CP" & X).Value) Then
should be
If IsError(Range("CD" & X & ":CP" & X).Value) Then


Hope that helps.


Also, IsError can't test a multicell range like that...

Try

If IsError(Application.Sum(Range("CD" & X & ":CP" & X))) Then

 

[dedelkoo]

Awesome, thanks. That's twice you've saved me today. I think I owe you a beer.

Derek

 

[Jonmo1]

Glad to help, thanks for the feedback.