Userform Düşeyara Sorunu

[emrebengul]

merhaba arkadaşlar
excelde sayfa 1 deki A Sütunundaki veriyi combobox1de açılır şekilde görüyorum fakat oradan bir numara seçmek istediğim zaman combobox2'de görmek istiyorum destek olur musunuz?
Yani Örneğin combobox1de 3 numarasını seçtiğim zaman combobox2de veli yazsın istiyorum. Destekleriniz için teşekkür ederim.
dosya ektedir.

 

[Trilenium]

Private Sub ComboBox1_Change()
sonsatir = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To sonsatir

If ComboBox1.Text = Range("A" & i).Value Then
ComboBox2.Text = Range("b" & i).Value
End If

Next i

End Sub


Lütfen forumda arama yapın, binlerce örnek var bu tür konular hakkında.

Sorgu için arama sonuçları: combobox ara bul

excel.web.tr

 

[ÖmerFaruk]

Örnek dosyanızda Combobox1 ve Combobox2 olduğunu varsayarak
Userform içine aşağıdaki kodları yapıştrdırğınızda olacaktır.
Varsa ilgili eski kodları silmeli ya da birleştirmelisiniz.

Private Sub UserForm_Initialize()
    ComboDoldur
End Sub
Private Sub ComboBox1_Click()
    Me.ComboBox2.ListIndex = Me.ComboBox1.ListIndex
End Sub
Private Sub ComboBox2_Click()
    Me.ComboBox1.ListIndex = Me.ComboBox2.ListIndex
End Sub
Sub ComboDoldur()
    Me.ComboBox1.RowSource = "Sayfa1!A2:A" & Worksheets("Sayfa1").Range("A1").End(xlDown).Row
    Me.ComboBox2.RowSource = "Sayfa1!B2:B" & Worksheets("Sayfa1").Range("A1").End(xlDown).Row
End Sub

 

[emrebengul]

ömer bey teşekkür ederim çok sağ olun.
örneğin bir adet daha combobox eklediğim zaman sonrasında kaydet dediğimde sayfa2ye atmasını istiyorum. ama eklediğim combobox boş ise excelde o sütun kırmızı renk ile boyansın istiyorum. Bununla alakalı yardımcı olur musunuz?

 

[ÖmerFaruk]

Private Sub CommandButton1_Click()
    'Kaydet butonunuz bu buton varsayarak
    With Worksheets("Sayfa2")
        SonSat = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Range("A" & SonSat) = Me.ComboBox1.Value
        .Range("B" & SonSat) = Me.ComboBox2.Value
        .Range("C" & SonSat) = Me.ComboBox3.Value
        If Me.ComboBox3 = "" Then Range("C" & SonSat).Interior.Color = vbRed
    End With
End Sub