fiyat gör kodu

[Fuat Şirin]

arkadaşlar
userformumda
fiyat gör mantığı kurmak istiyorum

text1 cinsi
text2 renk
text3 no
bunları girince

textbox4 fiyat vermesi lazım

veriler sayfa1 de

erkek atlet / beyaz / 3 / 5,50
erkek atlet / beyaz / 4 / 5,60

gibi yazacak

bu konuda yardımcı olursanız sevinirim

 

[Fuat Şirin]

arkadaşlar yardımcı olacak yok mu

 

[Fuat Şirin]

arkadaşlar yardım lütfen

 

[Fuat Şirin]

yardım edilirse sevinirim

 

[Orion1]

Dosyanız ekte.

Private Sub fiyat()
Dim hcr As Range, ilk_satir As String
On Error Resume Next
For Each hcr In Range("A2:E" & Cells(65536, "A").End(xlUp).Row)
    If UCase(Replace(Replace(hcr.Value, "ı", "I"), "i", "İ")) = _
    UCase(Replace(Replace(TextBox1.Value, "ı", "I"), "i", "İ")) And _
    UCase(Replace(Replace(hcr.Offset(0, 1).Value, "ı", "I"), "i", "İ")) = _
    UCase(Replace(Replace(TextBox2.Text, "ı", "I"), "i", "İ")) And _
    hcr.Offset(0, 2).Value = CDbl(TextBox3.Text) Then
        TextBox4.Text = Format(hcr.Offset(0, 3).Value, "#,##0.00")
    End If
Next hcr
End Sub