VBA How to verify if a selection of cells corresponds to a certain value?

[Klash Ville]

Hello everyone, I have the following problem where I need to verify if a selection of cells corresponds to a certain value.

Here's the screenshot of the problem, and when I run that code, it doesn't work as supposed to, although, I don't know other alternatives:

Ignore the fact I have = "B", it's supposed to be <> "B", I just placed = for the sake of testing...
The problem is in the "ActiveCell.Value" because I got a selection, so, what should I use instead?

 

[My Aswer Is This]

You have been on this forum a while.

You should have seen how we like code shown here.

Post the code here and not as a image.

 

[Klash Ville]

You have been on this forum a while.

You should have seen how we like code shown here.

Post the code here and not as a image.

The problem of the code is clearly on a single line;
The screenshots helps seeing the whole picture of the situation way more easier including the excel cells itself in the context of the code, which is right next to the code itself;

But sure, I can post it:

With ActiveSheet.ListObjects("Table2")        
      .Range.AutoFilter Field:=.ListColumns("Type").Index, Criteria1:="=B"
End With
    
Range("Table2[Type]").Select
If ActiveCell.Value <> "B" Then
      MsgBox "No results have been found in the filtering of 'B' in Column 'Type'..."
Else
      Selection.Value = "Battery"
End If

 

[My Aswer Is This]

Well you did not provide the whole script.
And have not said what your trying to do so I will let someone else help you.
Take care.

 

[Klash Ville]

Well you did not provide the whole script.
And have not said what your trying to do so I will let someone else help you.
Take care.

Why should I provide a whole script with like 700 lines when my problem happens in 1 line?

It's not my fault that you are in a bad mood, but I HAVE explained my problem in my post, care to read this time?

"Hello everyone, I have the following problem where I need to verify if a selection of cells corresponds to a certain value."

I literally have the debugger on the line that throws away the unexpected result (Yellow arrow), and I even mentioned in that same post and line that the problem is clearly on the ActiveCell.Value

If you don't want to help me, and instead wish to waste my time on this chit-chat, then get lost buddy.

 

[Klash Ville]

Since you have failed in providing an asnwer of any kind, I just found myself a even better solution among all the some sources I decided to mix up into this final result, which actually even improves the overall perfomance:

This also increases my flexibility among multiple sheets and how many values or strings I wish to detect into a even better and more dinamyc IF filter

    If Evaluate(WorksheetFunction.CountIf(Sheets("Calculation").Range("Table2[Type]"), "B")) > 1 Then
        MsgBox "No results have been found in the filtering of 'B' in Column 'Type'..."
    Else
        Selection.Value = "Battery"
    End If

Thanks for nothing