Textbox ile sayfalarda arama

[s.savas]

Arkadaşlar herkese iyi hafta sonları diliyorum.
Ekte sunduğum belgede tasarladığım userform için yardımlarınıza ihttiyacım var.
Textbox1' e Malzeme_Listesi isimli sayfada kayıtlı olan malzemelerden herhangi birisinin sıra numarasını girince, o sıra numarasına ait malzmenin adını Textbox2 ye, adetini Textbox3'e, Birimini de Textbox4'e yazdırabilirmiyiz.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz..

Private Sub TextBox1_AfterUpdate()
Set Sml = Sheets("Malzeme_Listesi")
deg = TextBox1.Text + 2
    TextBox2.Text = Sml.Range("B" & deg)
    TextBox3.Text = Sml.Range("C" & deg)
    TextBox4.Text = Sml.Range("D" & deg)
End Sub

.

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox1_Change()
Dim k As Range, sh As Worksheet, sat As Long
Set sh = Sheets("Malzeme_Listesi")
sat = sh.Cells(65536, "A").End(xlUp).Row
TextBox2.Text = ""
TextBox3.Text = 0
TextBox4.Text = 0
If TextBox1.Text = "" Then Exit Sub
Set k = sh.Range("A3:A" & sat).Find(TextBox1.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
    TextBox2.Text = k.Offset(0, 1).Value
    TextBox3.Text = k.Offset(0, 2).Value
    TextBox4.Text = k.Offset(0, 3).Value
End If
End Sub

 

[s.savas]

Teşekkür ederim Ömer hocam.
Textbox5 e fiyat girip, Textbox3 (Birim) ile Textbox5 (Fiyat)'ı çarparak sonucunu Textbox6 ya yazdırıp, aynı sonucu da Textbox7 ye yazıyla yazdırabilirmiyiz.

Özür dilerim hocam, soruma cevap verince hemen ardından yeni bir soru sormak bana da bencillik olarak geliyor, ancak sizin gibi pratik ve hızlı cevap yazan bir hocayı bulunca kaybetmeden daha fazla istifade etmek istiyorum.
Hakkınızı helal ediniz.

Evren hocam sizede çok teşekkür ederim, mesajımı yazarken sizde cevap yazmışsınız. Bu sebeple sadece Ömer hocamın ismini zikrettim.

 

[Orion1]

Bize teşekkür yokmu.

 

[s.savas]

Bize teşekkür yokmu.

Evren hocam sizde o kadar hızlı cevap verdinizki, Ömer hocaya cevap yazarken sizin mesajınızı göremedim bile.

 

[Ömer]

Bu şekilde deneyiniz..

Private Sub TextBox5_AfterUpdate()
Set Sml = Sheets("Malzeme_Listesi")
    If IsNumeric(TextBox5.Text) = False Then
        MsgBox " Sayı Girmelisiniz"
        Exit Sub
    End If
    TextBox6.Text = TextBox5.Text * TextBox3.Text
    TextBox7.Text = yaz(TextBox6.Text)
End Sub

.

 

[s.savas]

Tekrar teşekkür ederim Ömer hocam.