Option Explicit

Sub UrunBul()
    Dim ws As Worksheet
    Dim kod As String
    Dim satir As Long, sonSatir As Long
    Dim bulunan As Long, adet As Long

    Set ws = ThisWorkbook.Worksheets("Urunler")
    kod = Trim$(CStr(ws.Range("F4").Value2))
    ws.Range("F6:F7").ClearContents
    ws.Range("F9").ClearContents

    If kod = "" Then
        ws.Range("F9").Value = "Kod girin"
        Exit Sub
    End If

    sonSatir = 10 ' Ornek urun listesinin son satiri
    For satir = 5 To sonSatir
        If StrComp(Trim$(CStr(ws.Cells(satir, "A").Value2)), _
                   kod, vbTextCompare) = 0 Then
            bulunan = satir
            adet = adet + 1
        End If
    Next satir

    If adet = 0 Then
        ws.Range("F9").Value = "Urun bulunamadi"
    ElseIf adet > 1 Then
        ws.Range("F9").Value = "Kod tekrari var"
    Else
        ws.Range("F6").Value = ws.Cells(bulunan, "B").Value
        ws.Range("F7").Value = ws.Cells(bulunan, "C").Value
        ws.Range("F9").Value = "Urun bulundu"
    End If
End Sub
