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

1 vote230 views1 answer
Close form vba
VBA
0 vote233 views1 answer
Xlbycolumns is not declared
VBA
0 vote249 views1 answer
System.Runtime.InteropServices.COMException: 'Call was rejected by callee. (Exception from HRESULT: 0x80010001
VBA
0 vote241 views1 answer
Switch pictures with buttons vb.net
VBA
0 vote255 views1 answer
Excel vba prevent saving workbook
VBA
2 votes270 views2 answers
Excel vba if sunday or staurday
VBA
0 vote244 views1 answer
Search combobox items vb.net
VBA
0 vote255 views1 answer
Excel vba named range exists
VBA
0 vote248 views1 answer
Excel vba calculate
VBA
0 vote243 views1 answer
Type excel.application is not defined vb
VBA