Açılan kutu makrosu

[iaydin20]

arkadaşlar açılan kutu nesnesine değerin baş harfini yazdığımda misal a yazdığımda ismi a ile başlayanların gelmesini istiyorum eğer o kişi yoksa kişi bulunamadı diye bir uyarı gelmesini istiyorum , şimdiden teşekkürler

Ekli dosyayı görüntüle 19417

 

[Orion1]

Merhaba.
Açılan kutu değilde , ComboBox Olursa ,Olur.

 

[iaydin20]

teşekürler
ama onu nasıl yapacaz vba olduğunu biliyorum ama kodu nasıl ve nereye yazacağız yardımcı olabilirmisiniz

 

[Orion1]

Ekli dosyayı inceleyiniz.
Textbox ve listbox ile istediğiniz e benzer bir çalışma yaptım.
Tetxbox!a ismi giriyorsunuz listbox'ta listeleniyor.

 

[N.Ziya Hiçdurmaz]

yanıt

Bir örnekte ben yaptım.

Private Sub ComboBox1_Change()
ListBox1.Clear
ListBox1.ColumnCount = 1
For suz = 1 To [I65536].End(3).Row
If Range("I" & suz) Like ComboBox1 & "*" Then
ListBox1.AddItem
s = s + 1
ListBox1.List(s - 1, 0) = Range("I" & suz)
End If
Next
End Sub


Private Sub UserForm_Initialize()
ComboBox1 = "1"
ComboBox1 = ""
End Sub

 

[iaydin20]

arkadaşlar ikinizede teşekkür ederim

 

[N.Ziya Hiçdurmaz]

yanıt

Gerekli değişiklik yapılmıştır.

Private Sub ComboBox1_Change()
ListBox1.Clear
ListBox1.ColumnCount = 1
For suz = 1 To [B65536].End(3).Row
If Range("B" & suz) Like ComboBox1 & "*" Then
ListBox1.AddItem
s = s + 1
ListBox1.List(s - 1, 0) = Range("B" & suz)
End If
Next
End Sub
Private Sub ListBox1_Click()
Sheets("PBF").[C3] = ListBox1.Text
Unload Me
End Sub

Private Sub UserForm_Initialize()
ComboBox1 = "1"
ComboBox1 = ""
End Sub

 

[Orion1]

arkadaşlar ikinizede teşekkür ederim

Rica ederim.
İyi çalışmalar.

 

[N.Ziya Hiçdurmaz]

yanıt

İstenilen değişiklik yapılmıştır.

 

[iaydin20]

hocam şimdi tam istediğim gibi oldu çok teşekkür ederim sayenizde bişeylerdaha öğrenmiş olduk proğramı tamamlayıca siteye ekleyeceğim mutlaka