comboxtan çıkınca sayfaya kayıt

[Fuat Şirin]

Private Sub ComboBox1_change()

Set s1 = Sheets("ürün")
sat = ComboBox1.ListIndex + 2
TextBox1 = s1.Cells(sat, "b")
TextBox2 = s1.Cells(sat, "c")
TextBox3 = s1.Cells(sat, "d")
TextBox4 = s1.Cells(sat, "e")
End

Sub
bu kodları kullanarak sayfan veri alıyorum

Private Sub CommandButton1_Click()
On Error Resume Next
Dim i As Integer
For i = 2 To 32000
    If (Sayfa1.Cells(i, 1) = "") Then 'yeni giriş yapan kodlar
        Sayfa1.Cells(i, 1) = ComboBox1.Text
        Sayfa1.Cells(i, 2) = TextBox1.Text
        Sayfa1.Cells(i, 3) = TextBox2.Text
        Sayfa1.Cells(i, 4) = TextBox3.Text
        Sayfa1.Cells(i, 5) = TextBox4.Text
        CommandButton4_Click
        CommandButton2_Click
        userform_Initialize
        Exit Sub
    End If
Next i
End Sub

bu kodları kullanarakta seçtiğim veriyi sayfaya atıyorum
istediğimtan
comboboxtan seçtiğim anda sayfaya atması
seçimi barkodla yapıyorum nasıl yaparım
şimdiden teşekkür

 

[Levent Menteşoğlu]

Comboboxtaki koda aşağıdaki kırmızı renkli satırı ilave ederek deneyin.

Private Sub ComboBox1_change()
Set s1 = Sheets("ürün")
[LEFT]sat = ComboBox1.ListIndex + 2
TextBox1 = s1.Cells(sat, "b")
TextBox2 = s1.Cells(sat, "c")
TextBox3 = s1.Cells(sat, "d")
TextBox4 = s1.Cells(sat, "e")[/LEFT]
[B][COLOR=red]CommandButton1_Click[/COLOR][/B]
End

 

[Fuat Şirin]

hocam bunu yaptım
ama
combobox1 in içinde
combobox4 var
buda
textbox1.text = ""
gibi temizleme kodları yazılı
barkodu okutunca
5 6 tane kayıt giriyor

 

[Fuat Şirin]

dosya ekte hocam

dosya ekte hocam bir ilgilenirseniz

 

[Orion1]

Sayın parlemen verileriniz 32.000'den fazla olursa kodlar çalışmayacaktır.

 

[Fuat Şirin]

hocam dediğiniz gibi yapıyorum ama olmadı
bir ilgilenirseniz sevinirim