Mismatch Error in vba code

[Shen1986]

Hi,

I have created this macro:

Sub Macro

    Dim wsData As Worksheet
    Dim wsResult As Worksheet
  
    Set wsData = ThisWorkbook.Worksheets("DATA")
    Set wsResult = ThisWorkbook.Worksheets("Result")
 

      counter1 = 2
                       

    If wsData.Cells(counter1, 2).Value = "Problem" OR wsData.Cells(counter1, 2).Value = "Bad" Then
          wsSheet1.Cells(wsResult, 4).Value = "NOT"
                             
  
                           End If


End Sub

I always get a mismatch. The goal of the macro is to get from one sheet where are in column 2 are many many words like BAD, PROBLEM, STEVE, ROGER etc.. and only those with BAD and PROBLEM should transfer to the next sheet. The problem is that I get a mismatch in this line: If wsData.Cells(counter1, 2).Value = "Problem" OR wsData.Cells(counter1, 2).Value = "Bad".

The code is actually longer and it works for other parts in other columns where I used the command Like but when I try it for that column it does not work and I get a mismatch even when I use like for only one word example BAD.

I hope someone can help me.

Thank you for reading this and your time.

 

[GWteB]

It's more likely this line will give you a type mismatch, since wsResult is not a Long type variable.

Set wsResult = ThisWorkbook.Worksheets("Result")
wsSheet1.Cells(wsResult, 4).Value = "NOT"

 

[jasonb75]

What do you define as a mismatch? Is it a type mismatch error as @GWteB has identified or is it simply not doing as expected?

One thing to bear in mind, noting the differing cases of the examples in your post is that If in vba is case sensitive so "Bad" and "BAD" are not the same.

 

[Shen1986]

Thanks for the replies figured it out, stupid me.

It only needed to be changed from Value to Text and now it works perfectly.

Thanks a lot for the replies once more sorry for that stupid mistake.

 

[Fluff]

That would suggest that you have error values in col B, such as #N/A, #VALUE etc.

 

[jasonb75]

It only needed to be changed from Value to Text and now it works perfectly.

If it doesn't work with Value then you have done something wrong.