Combobox başlangıç değeri ve Hücreye değer atama

[brod12]

Merhaba. Herkesin Ramazan bayramı mübarek olsun. Sizlere yapamadığım iki işlem hakkında sorum bulunmakta, cevaplarsanız sevinirim.
1. Userform içerisinde bir combobox bulunmakta ve ben oradan şeçtiğim bir değeri ekle butonuna basıp ekledikten sonra bir sonraki değere geçsin istiyorum. Örnek Combobox değerleri A, B, C, D, E olsun. Ben "C" değerini seçip eklediğimde bir sonraki değer olan "D" değeri seçilsin istiyorum.
2. Son olarakta dosyanın içerisinde hücre rengine göre değer yazdırma işlemi bulunmakta ama değeri renklendirdiğim hücre içerisine yazıyor. Ben bir yan hücreye yazdırmak istiyorum.

 

[Korhan Ayhan]

Merhaba,

1. Sorunuzun cevabı;

Dim son As Variant

Private Sub CommandButton1_Click()
    son = WorksheetFunction.CountA(Worksheets("Sayfa1").range("f:f")) + 1
    Cells(son, 6) = ComboBox1.Value
    If ComboBox1.ListIndex + 1 > ComboBox1.ListCount - 1 Then
        ComboBox1.ListIndex = 0
    Else
        ComboBox1.ListIndex = ComboBox1.ListIndex + 1
    End If
End Sub

2. Sorunuzun cevabı;

Kod içinde bulunan aşağıdaki satırı bir sonraki satır ile değiştirip deneyin. Diğer renkler için olan satırlarıda aynı mantıkla değiştirin.

Eski hali;

hcr.Value = 1

Yeni hali;

hcr.Offset(0, 1).Value = 1

 

[brod12]

Teşekkür ederim.