saydaki bigileri textbox aracılığıyla aktarmak

[orkuncan5]

combobox ile sayfada veri almak

Proğram KUMAN Hocama aittir.Sorum ektedir.Proğrama ÜRÜN sayfası ekledim , forma ise ürün kodu textboxu(textbox olmaz ise combobox ilede olabilir) ekledim.Formdaki ürün koduna ürünün kodunu yazdığımda ürünler sayfasındaki bilgileri formdaki ilgili yerlere nasıl aktarırım?
şifre : 555

 

[orkuncan5]

Değerli Hocalar yardımcı olursanız sevinirim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu formunuzun kod bölümüne ekleyip denermisiniz.

Private Sub TextBox5_Change()
    If TextBox5 = "" Then
        ComboBox2 = ""
        TextBox3 = ""
    End If
End Sub
 
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim BUL As Range
    Set BUL = Sheets("ürünler").Range("A:A").Find(TextBox5, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
        ComboBox2 = BUL.Offset(0, 1)
        TextBox3 = Replace(BUL.Offset(0, 3), ".", ",")
    Else
        MsgBox TextBox5 & " kodlu ürün bulunamadı !", vbCritical
        Cancel = True
        TextBox5 = ""
    End If
End Sub

 

[orkuncan5]

Korhan Bey teşekkür ederim.İşime yaradı.Yalnız textboxa ürün kodunu girdiğimde entere basmadan verileri getirmiyor acaba textboxa ürün kodunu yazaryazmaz bilgileri çağırabilirmiyiz

 

[Korhan Ayhan]

Selamlar,

Bu durumda bir önceki önerdiğim kodu silip aşağıdaki kodu uygulayın.

Private Sub TextBox5_Change()
    Dim BUL As Range
    Set BUL = Sheets("ürünler").Range("A:A").Find(TextBox5, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
        ComboBox2 = BUL.Offset(0, 1)
        TextBox3 = Replace(BUL.Offset(0, 3), ".", ",")
    Else
        ComboBox2 = ""
        TextBox3 = ""
    End If
End Sub

 

[orkuncan5]

Korhan Bey Teşekkürler.İşime yaradı.Ancak kaydete basdıktan sonra textbox 5 te yazdığım ürünkodu duruyor bunu nasıl engellerim.Kaydete bastıktan sonra textbox5 in temizlenmesini nasıl yaparım

 

[Korhan Ayhan]

Selamlar,

Kaydetmek için kullandığınız butonun kod bölümündeki alttan üçüncü satırı aşağıdaki şekilde değiştirip kullanabilirsiniz.

TextBox1 = Emty: ComboBox2 = Empty: TextBox3 = Empty: TextBox4 = Empty[COLOR=red]:[/COLOR] [COLOR=red]TextBox5 = Empty[/COLOR]

 

[orkuncan5]

Korhan Bey teşekkür ederim,işime yaradı.Aslında aynı proğramla ilgili müşteri sayfasında toplamlar ile ilgili sorum olacaktı ama yeni konuda sorayım.