UserForm_Initialize olayı

[ik]

Değerli Arkadaşlar;

bir formum varç Bu formun initialize olayına aşağıdaki kodu yazıyorum.

Private Sub UserForm_Initialize()
Dim sonhucre

sonhucre = WorksheetFunction.CountA(Worksheets("veri").Range("d1:d15000"))

CmbMüşteri.ListRows = 10
CmbMüşteri.RowSource = "veri!d1:d" & sonhucre
CmbMüşteri.MatchEntry = fmMatchEntryFirstLetter

End Sub

Burada form açıldığında müşterilerin isimleri 'CmbMüşteri' açılan kutusuna yükleniyor.

Buraya kadar bir sorun yok.

benim istediğim ise;

CmbMüşteri'ye tüm müşterilerin değil K kolonunda yanında 1 olmayan müşterilerin yüklenmesi. yani K kolonunda işim biten müşterilere 1 yazıyorum. K kolonunda 1 olmayan müşterilerle işim devam ettiği için sadece onların buraya yüklenmesini istiyorum.

Þimdiden Teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:f5451857cf]Private Sub UserForm_Initialize()
Dim sonhucre
sonhucre = WorksheetFunction.CountA(Worksheets("veri").Range("d1:d15000"))
CmbMüşteri.ListRows = 10
for a=1 to sonhucre
if sheets("veri").cells(a,"k")<>1 then
CmbMüşteri.additem sheets("veri").cells(a,"d")
end if
next
CmbMüşteri.MatchEntry = fmMatchEntryFirstLetter
End Sub
[/vb:1:f5451857cf]

 

[idogus]

Sayın ik,
[vb:1:e8e4efc0d2]
Private Sub UserForm_Initialize()

Dim sonhucre

sonhucre = WorksheetFunction.CountA(Worksheets("veri").Range("d1:d15000"))

CmbMüşteri.ListRows = 10
'CmbMüşteri.RowSource = "veri!d1:d" & sonhucre - yerine
For i=1 to sonhucre
If Sheets("veri").Range("K" & i) = 1 then
CmbMüşteri.AddItem Sheets("veri").Range("D" & i)
End If
Next i
CmbMüşteri.MatchEntry = fmMatchEntryFirstLetter

End Sub
[/vb:1:e8e4efc0d2]
Sanırım işini görür.