textboxa bir sayı veya metin girince ilgili çalışma sayfasında karşılık gelen fiyat

[olymposss]

arkadaşlar iyi günler iyi çalışmalar

yapmaya çalıştığım bir userform da iki textbox var birine bir veri girdiğim zaman diğer textboxa bu verinin fiyatını vermesini istiyorum. veriler bir çalışma sayfasında kayıtlı bulunuyor. yani 1. textboxa girdiğim ismin karşısında fiyatını çalışma sayfasından alıp yazmasını istiyorum
yardımlarınız için şimdiden teşekkürler
elinize sağlık:yardim:

 

[Mahmut Kök]

verilerinizin bulunduğu sayfa ve hücrelere ait bilgileri verirseniz, yardımcı olmaya çalışalım.

şunu da inceleyebilirsiniz:

http://www.excel.web.tr/showthread.php?t=21457&highlight=d%FC%FEeyara

 

[olymposss]

ilginize teşekkürler

dosya ektedir

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu userformunuzun kod bölümüne uygulayıp denermisiniz.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim Say As Long
    Set SV = Sheets("veriler")
    If TextBox1 = "" Then Exit Sub
    If Not IsNumeric(TextBox1) Then
    MsgBox "GİRDİĞİNİZ DEĞER SAYISAL BİR DEĞER DEĞİLDİR." & Chr(10) & "LÜTFEN ARANACAK PARÇA NUMARASINI GİRİNİZ.", vbExclamation, "DİKKAT !"
    TextBox1 = ""
    Cancel = True
    Exit Sub
    End If
    Say = WorksheetFunction.CountIf(SV.[A:A], TextBox1)
    If Say > 0 Then
    SATIR = SV.[A:A].Find(What:=TextBox1, LookAt:=xlWhole).Row
    TextBox2 = SV.Cells(SATIR, 2)
    Else
    MsgBox "ARADIĞINIZ PARÇA NUMARASI BULUNAMAMIŞTIR.", vbCritical, "DİKKAT !"
    Cancel = True
    TextBox1 = ""
    End If
End Sub

 

[olymposss]

tek kelimeyle mükemmel

çok teşekkürler harika çalışıyor elinize sağlık:hey:

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki koda küçük bir ekleme yaptım lütfen son halini kullanınız.