Combobox istenilen karakter yazma izini

[Xilaskar]

Selam Arkadaşlar Ben Azeriyim cümlelerimde yalnışlık ola bilir. Bir sorunum var combobox içine yalnız benim istediğim listedeki karakteri yazmak istiyorum. Başka karakter yazında msgbox hatası versin. Bu mümkünmü .Yardımçı olmanızı rica ederim

 

[Haluk]

Qardaş;

Aslında ComboBox içine girip, yazılmaz. ComboBox'lar hazır listeleri görüntülemekte kullanılır. Sen TextBox mı kullanırken bu işi yapmak istiyorsun?

.

 

[Xilaskar]

Qardaş;

Aslında ComboBox içine girip, yazılmaz. ComboBox'lar hazır listeleri görüntülemekte kullanılır. Sen TextBox mı kullanırken bu işi yapmak istiyorsun?

.

Selam Haluk bey, Tesekkur ederim cevap verdiğiniz için. Evet textbox veri kayd ediyorum fakat listede olmayan bir veri deyişdikde texbox veri aynı kalıyor ve combobox ayrı karaktere izin vererek kayd ede biliyor. Benim isteyim bu combox içine yazı yazılsın fakat listede olmasa uyarı versin

 

[Haluk]

Örnek dosyanızı Google Drive gibi bir yere yükleyin, oradan inceleyip ne olduğunu anlamaya çalışalım.

.

 

[Xilaskar]

Örnek dosya

Bu dosya da combox içeriğini sildikde textbox silinsin. Ve ya combox başka bir listede olmayan karakter yazıkda hata versin

 

[Haluk]

Aşağıdakini ilave edip, deneyin..... işinize yarayabilir.

Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = 0
End Sub

 

[Xilaskar]

Aşağıdakini ilave edip, deneyin..... işinize yarayabilir.

Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = 0
End Sub

Haluk Teşekkür ederim fakat bir deyişiklik olmadı. Bu kod ile hiç bir şey yazmak olmuyor.
Benim Listemde olanları yalnız yaza bileyim.

 

[Xilaskar]

Türk kardeşlerim. Yardım eden olursa sevinirim.
Bir daha söylüyorum benim istediyim combobox binlerce ürün kodu arasından el ile yazarak textbox getrirdiyim veri. Eğer combobox listelenmeyen bir ürün kodu varsa yazdıkda hata vermesidir

 

[Haluk]

UserForm modlündeki tüm kodları silin, aşağıdakileri yerleştirip çalıştırın....

Private Sub UserForm_Initialize()
    ComboBox1.List = Sayfa1.Cells(1).CurrentRegion.Value
End Sub
'
Private Sub ComboBox1_AfterUpdate()
    If ComboBox1.MatchFound = False Then
        MsgBox """" & ComboBox1.Text & """" & " Listede yok ..."
        ComboBox1.Text = ""
        For evn = 1 To 4
            Me("TextBox" & evn).Text = ""
        Next
    Else
        For evn = 1 To 4
            Me("TextBox" & evn).Text = ComboBox1.List(ComboBox1.ListIndex, evn - 1)
        Next
    End If
End Sub

.

 

[Xilaskar]

UserForm modlündeki tüm kodları silin, aşağıdakileri yerleştirip çalıştırın....

Private Sub UserForm_Initialize()
    ComboBox1.List = Sayfa1.Cells(1).CurrentRegion.Value
End Sub
'
Private Sub ComboBox1_AfterUpdate()
    If ComboBox1.MatchFound = False Then
        MsgBox """" & ComboBox1.Text & """" & " Listede yok ..."
        ComboBox1.Text = ""
        For evn = 1 To 4
            Me("TextBox" & evn).Text = ""
        Next
    Else
        For evn = 1 To 4
            Me("TextBox" & evn).Text = ComboBox1.List(ComboBox1.ListIndex, evn - 1)
        Next
    End If
End Sub

.

Kardeş formülde hata verdi hep aynı şeyi diyor listede yok uyarısı.
Eğer böyle olmayacaksa belki combobx içeriğini sildikde textbox olanda otamatik silinse olurmu böylece textbox boş olduğu için kayıt da gerçekleşmeyecek böylece hata verse otomatik combobox içeriği sıfırlanmış olacak

 

[Xilaskar]

Haluk Kardeşim teşekkür ederim Artık çok güzel çalışdı super. Türk kardeşlerim Forumda emeği geçen her kese teşekkürler

 

[Haluk]

Ekli dosya bende, istenildiği şekilde çalışıyor....

Asan Gəlir ....

ÖRNEK.xlsm

drive.google.com

.