kod ile süzme işlemi

[sdegirmenci]

Set ÜS = Sheets("Ürün satış")

Dim f As Long
adısoyadı.Clear
For f = 6 To ÜS.[E65536].End(3).Row
If Application.WorksheetFunction.CountIf(ÜS.Range("E6:E" & f), ÜS.Cells(f, "E")) = 1 And ÜS.Cells(f, "Q") = "satış" Then
adısoyadı.AddItem ÜS.Cells(f, "E")
End If
Next f


Merhaba; Excel 2007 de daha önce alt versiyonlarda kullandığım yukarıdaki Combobox liste için kullandığım kodlar çalışmıyor. Nedeni konusunda yardımcı olabilirseniz sevinirim.Saygılarımla

 

[bkts34]

Merhaba,
adısoyadı yerine Combobox1 yazın, veya da combobox kaç ise artık. Ben bunu anladım burdan.

 

[Korhan Ayhan]

Dosyanızı eklerseniz deneme şansımız olabilir.