Option Explicit
Sub KayitSay()
    Dim ws As Worksheet, i As Long, adet As Long
    Dim sehir As String, durum As String
    Set ws = ThisWorkbook.Worksheets("Ornek")
    sehir = Trim$(CStr(ws.Range("F4").Value2))
    durum = Trim$(CStr(ws.Range("F5").Value2))
    ws.Range("F8").ClearContents
    If sehir = "" Or durum = "" Then
        ws.Range("F8").Value = "Iki kosulu da girin"
        Exit Sub
    End If
    For i = 5 To 10
        If StrComp(Trim$(CStr(ws.Cells(i, 1).Value2)), sehir, vbTextCompare) = 0 And _
           StrComp(Trim$(CStr(ws.Cells(i, 2).Value2)), durum, vbTextCompare) = 0 Then
            adet = adet + 1
        End If
    Next i
    ws.Range("F8").Value = adet
End Sub
