Is there a VBA code that looks for a cell in a column that contains a specific number?

Asked Aug 02 '21 at 14:46

Active Aug 02 '21 at 14:46

Viewed 57 times

I am fairly new to VBA, and I'm trying to write a code that checks a column to see if it contains a specific number. For example, let's say I have cells A1:A15 filled out with random numbers 1-9. I want to write a code that looks at each cell and prints out a message box that says True if any of the cells contains the value of 1. This is what I've tried to come up with, but it doesn't work and I'm not sure why:

Sub Macro1()
'
' Macro1 Macro

'
If Range("A1:A15").Value = 1 Then
MsgBox "True"
End If
End Sub

I've also tried using ==1 just in case. It seems like it doesn't like using an = unless referring to a word. However, I'm still pretty new to VBA, so I'm not sure if my logic is correct. Any help would be highly appreciated.

asked Aug 02 '21 at 14:46

Pinka

1

`If WorksheetFunction.CountIf(Range("A1:A15"), 1) > 0 Then` – BigBen Aug 02 '21 at 14:47
2

Or `If Not IsError(Application.Match(1,Range("A1:A15"),0)) Then` – Scott Craner Aug 02 '21 at 14:48
Or `If IsNumeric(Application.Match(1,Range("A1:A15"),0)) Then` – VBasic2008 Aug 02 '21 at 15:37

Is there a VBA code that looks for a cell in a column that contains a specific number?

0 Answers0