Countif in macro

[rdenessen]

Hi,

I have a macro which selects a worksheets, copies it to a new book, removes unneeded rows based on certain criteria and exports it to a txt file.
My knowledge of macro's is limited, so it is mostly thanks to google and you guys here.

Now, I want to add a check at the start of my macro, basically, the condition is:
if COUNTIF(BB7:BB200;1)=1 then Stop the macro else continue with the next step. How would I build this in VB into the macro?

Thanks!

 

[VoG]

Try

If WorksheetFunction.CountIf(Range("BB7:BB200"), 1) = 1 Then Exit Sub

 

[rdenessen]

Thank you! works perfectly!

 

[rdenessen]

Hi, a follow up question:
Is it possible to include a message (pop-up) in this? This to make sure the user acknowledges the error.

Thanks!

 

[VoG]

Try

If WorksheetFunction.CountIf(Range("BB7:BB200"), 1) = 1 Then
    MsgBox "Your message here"
    Exit Sub
End If

 

[rdenessen]

Thanks!