Excel vba range contains

' Tests if a range contains a value
Sub TestMe()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets(1)
    If Application.WorksheetFunction.CountIf(ws.Range("A2:A10"), _
           ws.Range("A1")) = 0 Then
        Debug.Print "No match"
    Else
        Debug.Print "Range contains value " & ws.Range("A1").Cells(1, 1).Value
    End If
End Sub

Similar codes

8 votes484 views1 answer
Vba make a short integer from two bytes
VBA
5 votes414 views1 answer
Excel vba first byte from INTEGER
VBA
0 vote400 views1 answer
Get month number from month name vbnet
VBA
0 vote362 views1 answer
Vba type variable
VBA
0 vote350 views1 answer
Label de tableau dans des label.text en VBA
VBA
0 vote366 views1 answer
Search combobox items vb.net
VBA
0 vote354 views1 answer
Vba border weight
VBA
0 vote342 views1 answer
Excel vba hide columns
VBA
1 vote358 views1 answer
How to check is the value enterd is a number or text in vba
VBA
0 vote349 views1 answer
Vba sheet visible
VBA