Combobox isim kontrolü

[mars2]

İyi Günler;

Userform1 üzerinde bulunan comboboxa isim yazdığımda, H12 hücresine aktarılmakta olup H12 hücresine isim girmmeye başlayınca ve bu isimle ilgili bir kişi bulunmaması ve her harf girdiğimde, MsgBox UserForm1.ComboBox1.Text & Chr(13) & Chr(13) & " ARADIĞINIZ KİŞİ BULUNAMADI," VbInformation mesajı vermektedir.

Örneğin: Comboboxa Hasan Kaçar isminin soyadının K harfı yazmaya başladığımda, "Aradığınız kişi bulunamadı" mesajı gelmekte, ben ise İsmi combobox yazdığımda bu isim bulunmması halinde bu mesajı almak istiyorum.

İsimleri Liste sayfasında almaktadır.

Private Sub Worksheet_Change(ByVal Target As Range)
For Each bul In s2.Range("C2:C5000")
If bul = Target.Value Then SAT = bul.Row
Next

If SAT = "" Then
MsgBox UserForm1.ComboBox1.Text & Chr(13) & Chr(13) & " ARADIĞINIZ KİŞİ BULUNAMADI.", vbInformation, "BİLGİ"

Exit Sub
End If
end sub

 

[muygun]

Merhaba;
Örnek dosya olmadan yapılabilecek:

Kodlarınızı;
Private Sub Worksheet_Change(ByVal Target As Range)
yerine;
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

altına yazın.
İyi çalışmalar.

 

[Korhan Ayhan]

Merhaba,

Açtığınız konu başlığını bir kez daha okumanızı rica edeceğim.

 

[mars2]

Sayın Korhan bey;

Evet, başlığı yazarken bir yanlışlık olmuş,

Combobox1 e yazdığımız isim Liste sayfanın C sutunundaki isimlerden bulunmaması halinde, combobox1 de mesaj vermesini istiyorum.
Teşekkürler.

 

[mars2]

Sayın muygun;

İlginize teşekkürler.

Kodlarınızı;
Private Sub Worksheet_Change(ByVal Target As Range)
yerine;
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Altına yazmama rağmen combobox1 de, exit olayında Listede ismi olmamasına rağmen mesaj çıkmamaktadır.


Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

On Error Resume Next

If Intersect(Target, [G12]) Is Nothing Then Exit Sub
If Target.Value = Empty Then Exit Sub

Set s1 = Sheets("Zarf")
Set s2 = Sheets("liste")

Range("G12").ClearContents
Range("C40").ClearContents
Range("C41").ClearContents

For Each bul In s2.Range("C2:C5000")
If bul = Target.Value Then SAT = bul.Row
Next

If SAT = "" Then
MsgBox UserForm1.ComboBox1.Text & Chr(13) & Chr(13) & " ARADIĞINIZ KİŞİ BULUNAMADI.", vbInformation, "BİLGİ"

Exit Sub
End If

s1.Cells(12, "L").Value = s2.Cells(SAT, "D").Value
s1.Cells(9, "H").Value = s2.Cells(SAT, "B").Value

s1.Cells(14, "G").Value = s2.Cells(SAT, "F").Value & " Mahallesi"
s1.Cells(16, "G").Value = s2.Cells(SAT, "E").Value
s1.Cells(18, "G").Value = s2.Cells(SAT, "G").Value & "/" & s2.Cells(SAT, "H").Value

Set s1 = Nothing

Set s2 = Nothing

UserForm1.Show 0


End Sub

 

[muygun]

Merhaba;
Eki inceleyin.
Kodları kendinize uyarlayın.
İyi çalışmalar.

NOT: Sorularınızı örnek dosya ile desteklerseniz daha çabuk sonuç alırsınız.

 

[mars2]

Sayın muygun;

İlgi ve alakanız için teşekürler.

sayın Korhan Ayhan;
Konu başlığı olatrak
"Combobox isim kontrolü" olarak değiştirilmesi konunun daha anlaşılır hale gelmiştir.