combobox exit olayından sonra tekrar comboya dön

[Fuat Şirin]

combobox exit olayına aşağıdaki kodları giriyorum

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim i As Integer
For i = 5 To 32000
    If (Sayfa2.Cells(i, 1) = "") Then
        Sayfa2.Cells(i, 1) = ComboBox1.Text * 1
        Sayfa2.Cells(i, 2) = ComboBox2.Text
        Sayfa2.Cells(i, 3) = ComboBox3.Text
        Sayfa2.Cells(i, 4) = TextBox4.Text
        Sayfa2.Cells(i, 5) = TextBox5.Text * 1
        Sayfa2.Cells(i, 6) = TextBox6.Text * 1
        Sayfa2.Cells(i, 7) = TextBox7.Text * 1
        Sayfa2.Cells(i, 8) = TextBox11.Text * 1
        Sayfa2.Cells(i, 9) = Label12
        ComboBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox7.Text = ""
        Exit Sub
    End If
    Next i
End Sub

istediğim exit olayından sonra yani combobox taki veriyi seçince tekrar
combobox1 e geri dönmesi

 

[Levent Menteşoğlu]

Kodları exit olayı yerine change yada click olayına yazın.

 

[Fuat Şirin]

levent hocam ben bunu barkodda kullanıyorum
barkodu girdiğimde ürün bilgileri çıkıyor
ve bunları sayfaya geçiyor
change olayını zaten bu olayda kullanıyorum

benim barkodu okuttuktan sonra bilgileri sayfaya geçmesi
ve tekrardan yeni bir barkod girilmesi için combobox1 e geri dönmesi gerekiyor

yardımlarınız için şimdiden çok teşekkür

 

[Levent Menteşoğlu]

Bana exit olayı kullanmadan sorun çözülebilir gibi geliyor ancak net fikir belirtmek için konunun bütününe vakıf olmak gerekir.

 

[Mahmut Kök]

levent hocam ben bunu barkodda kullanıyorum
barkodu girdiğimde ürün bilgileri çıkıyor
ve bunları sayfaya geçiyor
change olayını zaten bu olayda kullanıyorum

benim barkodu okuttuktan sonra bilgileri sayfaya geçmesi
ve tekrardan yeni bir barkod girilmesi için combobox1 e geri dönmesi gerekiyor

yardımlarınız için şimdiden çok teşekkür

Yapmak istediğiniz işlemi tam olarak anlayamadım ama...

Combobox1'deki veri her ne şekilde değişirse değişsin, zaten change olayı devreye girecektir. Yani elle seçilmesi gerekmemektedir. Barkod işini nasıl yapıyorsunuz tam olarak bilmiyorum, combobox1'e exit olayı tanımlarsanız, öncesinde change olayı da devreye gireceği için exit tanımlamasına gerek kalır mı bilmiyorum..

 

[Fuat Şirin]

hocam dosya ekte incelerseniz

dosyayı ekledim userform1 de

 

[Levent Menteşoğlu]

exit ve change olaylarındaki kodları aşağıdaki gibi birleştirirseniz istediğiniz sonucu elde edemezmisiniz.

Private Sub ComboBox1_Change()
On Error Resume Next
Dim i As Integer
Set s1 = Sheets("VERİ")
sat = ComboBox1.ListIndex + 2
ComboBox2 = s1.Cells(sat, "B")
ComboBox3 = s1.Cells(sat, "c")
TextBox4 = s1.Cells(sat, "D")
TextBox5 = Format(s1.Cells(sat, "E"), "#,##0.00")
TextBox8 = s1.Cells(sat, "f")
For i = 5 To 32000
    If (Sayfa2.Cells(i, 1) = "") Then
        Sayfa2.Cells(i, 1) = ComboBox1.Text * 1
        Sayfa2.Cells(i, 2) = ComboBox2.Text
        Sayfa2.Cells(i, 3) = ComboBox3.Text
        Sayfa2.Cells(i, 4) = TextBox4.Text
        Sayfa2.Cells(i, 5) = TextBox5.Text * 1
        Sayfa2.Cells(i, 6) = TextBox6.Text * 1
        Sayfa2.Cells(i, 7) = TextBox7.Text * 1
        Sayfa2.Cells(i, 8) = TextBox11.Text * 1
        Sayfa2.Cells(i, 9) = Label12
        CommandButton50_Click
        UserForm_Initialize
        Exit Sub
    End If
    Next i
End Sub

 

[Fuat Şirin]

hocam o zamanda her sayı girdiğinde 8 6 9 gibi
bir giriş yapıyor sayfaya
yani
8
6
9
gibi giriş yapıyor

 

[Levent Menteşoğlu]

Ne demek istediğinizi anlayamadım. Ben giriş yaptığımda böyle bir durumla karşılaşmadım.

 

[Fuat Şirin]

hocam mesela combobox1 e satırı mouse la seçmeyin
klavyeden 8 6 9 gibi yazın bakın
her sayı girişinde sayfaya giriyor

 

[Levent Menteşoğlu]

Bence exit olayı yerine kodları bir butona yazın ve butona basarak işlem yapın. Bunun dışında exit yerine enter tuşuna basınca çalışacak şekilde bir düzenlemede yapılabilir.

 

[Fuat Şirin]

hocam ilgilendiğiniz için teşekkür
işte peşpeşe satış yapmaya çalışıyorum bunun için uğraşıyorum ama
vba bu konuda çözümsüz herhalde

 

[Levent Menteşoğlu]

.....vba bu konuda çözümsüz herhalde

Çözümsüz olduğunu düşünmüyorum. Sadece ben bir mantık kuramadım. Mutlaka çözüm üretecek bir arkadaşımız olacaktır.

 

[Fuat Şirin]

benim dediğm çözecek br ark varsa
comboboxta seçip enter e bsınca sayfaya geçp
tekrar combobox1 e dönmesi

 

[Fuat Şirin]

arkadaşlar bu konuya bir el atsanız

 

[Fuat Şirin]

arkadaşlar bu konuda tavsiyesi olan yok mu?