Sub Ara()
    If [C2].Value = "" Then
        MsgBox "Arama yapmak istediğiniz ili yazınız"
        Exit Sub
    Else
        ' Arama işlemleri
    End If
End Sub
Kopyala

C2

Exit Sub

Sub FindRange()
    Dim xRg As Range
    Dim xFRg As Range
    Dim xStrAddress As String
    Dim xVrt As Variant
    xVrt = Application.InputBox(prompt:="Search:", Title:="www.extendoffice.com")
    If xVrt <> "" Then
        Set xFRg = ActiveSheet.Cells.Find(what:=xVrt)
        If xFRg Is Nothing Then
            MsgBox prompt:="Cannot find this value", Title:="www.extendoffice.com"
            Exit Sub
        End If
        xStrAddress = xFRg.Address
        Set xRg = xFRg
        Do
            Set xFRg = ActiveSheet.Cells.FindNext(After:=xFRg)
            Set xRg = Application.Union(xRg, xFRg)
        Loop Until xFRg.Address = xStrAddress
        If xRg.Count > 0 Then
            xRg.Interior.ColorIndex = 8
        End If
    End If
End Sub
Kopyala