Combobox yardımı

[cihangirkara]

arkadaşlar dosyada 3 adet userform var benim isteğim userform1(FİRMA RİSK)

buradaki Combobox ların hepsinde sayfa1 C sütünu gözüksün istiyorum ama sütünda aynı olanları sadece bir defa göstersin

örneğin 018y01 C sütünunda 3 defa yazılı ama Combobox larda 1 defa gözüksün

 

[hamitcan]

UserForm1 içindeki UserForm_Initialize olayını aşağıdaki ile değiştirin.

Private Sub UserForm_Initialize()
For i = 1 To Sheets("Sayfa1").Cells(65536, 1).End(xlUp).Row
    If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("c2:c" & i), Sheets("Sayfa1").Cells(i, 3)) = 1 Then
       For j = 1 To 18
        Controls("ComboBox" & j).AddItem Sheets("Sayfa1").Cells(i, 3)
       Next
    End If
Next i
TextBox1 = "."
TextBox1 = ""
End Sub

 

[cihangirkara]

baba teşekkürler

bir isteğim daha olsa olurmu

yine userform1 de textbox 1 e isimyazmaya balayınca listbox1 de firmalar çıkıyor listbox1 de firmaya tıklayınca textbox1 e atabilirmi

 

[hamitcan]

Listbox1 içinde bir satıra tıklayınca hangi TextBox nesnesine hangi bilgiler geleceğini belirtin.

 

[cihangirkara]

hocam biraz geçiktim

isteğim listbox1 de firmalar çıkıyor orada tıklayınca firma textbox1 e gitsin

birde hocam 2 koşullu süzme nasıl yaparım olay şu sayfa1 e gidecek orada B sütünunda firma isimleri C sütünunda krei kodları var D sütünu ise tutarlar

listbox2 ye şunu yazsın textbox 1 deki firmaya ve combobox 1 deki kredi koduna uyan tutarları sıralasın örneğin dosya userform1 i incelersen daha iyi olur

selamlar

 

[hamitcan]

hocam biraz geçiktim

isteğim listbox1 de firmalar çıkıyor orada tıklayınca firma textbox1 e gitsin

Private Sub ListBox1_Click()
TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
End Sub

Diğer sorularınızı ayrı ayrı sorun. Yada sitede daha önce çözülmüş benzer örneklerden faydalanın.