Combobox kod desteği

[serkanım]

Merhaba

Aşağıda kırmızı ile yazdığım işlemi yapabilmek için kodara ihtiyacım.Yardımlarınızı rica ederim.

Private Sub CommandButton3_Click()

If ComboBox1.Value = "" Then
MsgBox ("No Giriniz") 'Comboboxa değer girilmediyse uyarı veriyor.

Else
''''''''''''''''''''''''''''''''''''''''''
'1Comboboxa girilen değer B sutununda varsa değerin altına satır açıp değeri yazması istiyorum.




'''''''''''''''''''''''''''

End If
Else
Range("B" & [B65536].End(3).Row + 1).Select
ActiveCell.Value = ComboBox1
'Comboboxa girilen değer yoksa son boş hücreye yazıyor.



End If
End Sub

 

[Levent Menteşoğlu]

Bir örnek dosya eklerseniz çözüm bulmak kolaylaşacaktır.

 

[serkanım]

Şarta göre satır sıralama

Merhaba Levent bey,

Yukardaki konuyu zorda olsa formdaki örneklerden yapmayı başarabildim.
Farklı bir soru sormak istiyorum.
Dosyaya açıklama yaptım.Şarta göre satırların sıralanması ve renklendirmesiyle ilgili bir makro hazırlayabilirmiyiz acaba.