cOMBOXTA İSTENİLEN VERİLERİN ALINMASI

[taseraydin]

DEĞERLİ ARKADAŞLAR YAPMAYA ÇALIŞIP BAŞARAMADIĞIM cOMBOBOX A VERİ ALDIRAMIYORUM

İKİ ÇEŞİT PERSONEL TÜRÜ VAR (4/B VE 4/C) COMBOBOX 'A SADECE 4/B PERSONELİN İSİMLERİNİN GELMESİ GEREKİYOR

LÜTFEN İLGİLENEBİLİRMİSİNİZ..

 

[sbayyigit]

bu kodlarla işin görülür herhalde...

 

[taseraydin]

İLGİNİZE TEŞEKÜR EDRİM ANCAK UserForm_Initialize() YAZILACAK BASİT BİR KODLA HALLEDİLDİĞİNİ DAHA ÖNCE GÖRMÜŞTÜM GÖNDERMİŞ OLDUĞUM ÖRNEK BİR TANE OYSA BANA BİRDEN FAZLA COMBOX VE SECENEKLERDE KULLANACAM

 

[sbayyigit]

Bu kodlara bakarmısınız?


Private Sub UserForm_Initialize()
Set s = Sheets("DATA")
For i = 5 To s.[B65536].End(3).Row

If s.Range("D" & i).Value = "4/B" Then
ComboBox1.AddItem s.Cells(i, "B").Value
End If
Next i
End Sub

 

[İhsan Tank]

İLGİNİZE TEŞEKÜR EDRİM ANCAK UserForm_Initialize() YAZILACAK BASİT BİR KODLA HALLEDİLDİĞİNİ DAHA ÖNCE GÖRMÜŞTÜM GÖNDERMİŞ OLDUĞUM ÖRNEK BİR TANE OYSA BANA BİRDEN FAZLA COMBOX VE SECENEKLERDE KULLANACAM

merhaba
bir de bu eki inceler misin.
bir de yazarken lütfen küçük harf kullanınız

 

[taseraydin]

ÖNCELİKLE sbayyigit İKİCİ KODLARINIZ İŞİME YARADI
İhsan Tank BEYEDE AYRICA TEŞEKÜR EDERİM ODA ÇOK GÜZEL DÜŞÜNMÜŞ
ÇOK TEŞEKÜR EDERİM ELLERİNİZE EMEĞİNİZE SAĞLIK

 

[İhsan Tank]

ÖNCELİKLE sbayyigit İKİCİ KODLARINIZ İŞİME YARADI
İhsan Tank BEYEDE AYRICA TEŞEKÜR EDERİM ODA ÇOK GÜZEL DÜŞÜNMÜŞ
ÇOK TEŞEKÜR EDERİM ELLERİNİZE EMEĞİNİZE SAĞLIK

rica ederim
iyi çalışmalar :mutlu: