ComboBox arama çalışmıyor

[jerfinby]

Selamlar değerli hocalarım site yöneticisiyim bir program yaptım ona bazı eklemelerde bulundum farklı userformlardan alıntı yaparak.
Her şey çalıştı fakat combobox arama yapmayı bir türlü çalıştıramadım .
Bu konuda yardımda bulunan olursa sevinirim.

İndir deneme

Dosyayı indir deneme

dosya.co

verilerim data sayfasında.

Private Sub UserForm_Initialize()
Sheets("Data").Activate
ListBox1.ColumnWidths = "92;140;110;65;65;35;40;65;65;115;150;65" 'COLUMN WITH OF LISTBOX
ListBox1.ColumnCount = 12 'COLUMN NUMBER OF LISTBOX
ListBox1.List = Sheets("Data").Range("A2:L" & Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row).Value

'** SEARCH COMBOBOX
ComboBox1.AddItem "Name"
ComboBox1.AddItem "Company"
ComboBox1.AddItem "City"
ComboBox1.AddItem "Estimated Revenue"
'**********************************************
TextBox14.Value = ListBox1.ListCount
TextBox15.Value = 0
With lblDone
.Top = lblRemain.Top + 1
.Left = lblRemain.Left + 1
.Height = lblRemain.Height - 2
.Width = 0
End With
lblPct.Visible = False
End Sub

 

[Muzaffer Ali]

Merhaba.
Formun kodlarında bulunan For a = 1 To 12 satırını bulun, 12 yerine 5 yazın.

 

[jerfinby]

Merhaba.
Formun kodlarında bulunan For a = 1 To 12 satırını bulun, 12 yerine 5 yazın.

Teşekkürler Muzaffer bey
dediğinizi yaptım oldu.

 

[jerfinby]

Teşekkürler Muzaffer bey
dediğinizi yaptım oldu.

Sizi bulmuşken bir soru daha sorabilir miyim?
Userformda kaydet yaparken data sayfasında her satırın renkli eklenmesini istiyorum . Örnek mavi beyaz mavi beyaz şeklinde .böyle bir kod var mı?
Ve nereye eklemem lazım

 

[Muzaffer Ali]

Kod ile yapmaktansa koşullu biçimlendirme ile yapmak daha/kolay doğru olur.

Data sayfasında A, B, C, D sütunlarının tamamını seçin
Giriş / Koşullu Biçimlendirme / Yeni Kural seçin.
Açılan pencerede ".... ... ... ... formül kullan " seçin

Formül kısmına =VE($A1<>"";ÇİFTMİ(SATIR($A1))) formülünü kopyalayın.
Biçim kısmından istediğiniz biçimlendirmeleri yapıp Tamama basın.