iki combobox bağlam

[igultekin2000]

iyi günler; PAY_DGLM çalışma sayfasına Firma ünvan ve firma ortaklarının bilgisini giriyorum. HISSE sayfasına bilgi girişi yapacağımda PAY_DGLM çalışma sayfasına girdiğim ortakların isimlerini tekrar girmekek için COMBOBOX2' ye isimleri getirmek istiyorum. çeşitli örnekleri denememe rağmen yapamadım.

 

[Ömer BARAN]

Merhaba.

Combobox1_Change kodunun End Sub satırının hemen üstüne aşağıdaki satırları ekleyin.
.

If ComboBox1 <> "" Then
ComboBox2.Clear
ilk = WorksheetFunction.Match(ComboBox1, Sheets("PAY_DGLM").[A:A], 0)
son = ilk + WorksheetFunction.CountIf(Sheets("PAY_DGLM").[A:A], ComboBox1) - 1
For ort = ilk To son
    ComboBox2.AddItem Sheets("PAY_DGLM").Cells(ort, "C")
Next
End If

 

[askm]

Combo1 kodları;

Private Sub ComboBox1_Change()
On Error Resume Next
Dim ara As String
ara = ComboBox1.Value
getir = Application.WorksheetFunction.VLookup(ara, Sheets("FORMUL").Range("A2:C65536"), 2, False)
TextBox2.Value = getir
getir = Application.WorksheetFunction.VLookup(ara, Sheets("FORMUL").Range("A2:C65536"), 3, False)
TextBox6.Value = getir
Dim son As Long
son = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To son
    If Cells(i, 1) = ComboBox1.Text Then
        ComboBox2.AddItem Cells(i, 3)
    End If
Next i
End Sub

Combo2 kodları;

Private Sub ComboBox2_Change()
Dim son As Long
son = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To son
    If Cells(i, 1) = ComboBox1.Text And Cells(i, 3) = ComboBox2.Text Then
        TextBox2.Text = Cells(i, 4)
        TextBox3.Text = Cells(i, 5)
        TextBox4.Text = Cells(i, 6)
        Exit For
    End If
Next i
End Sub

 

[igultekin2000]

sorun çözüldü

Merhaba.

Combobox1_Change kodunun End Sub satırının hemen üstüne aşağıdaki satırları ekleyin.
.

If ComboBox1 <> "" Then
ComboBox2.Clear
ilk = WorksheetFunction.Match(ComboBox1, Sheets("PAY_DGLM").[A:A], 0)
son = ilk + WorksheetFunction.CountIf(Sheets("PAY_DGLM").[A:A], ComboBox1) - 1
For ort = ilk To son
    ComboBox2.AddItem Sheets("PAY_DGLM").Cells(ort, "C")
Next
End If

Elinize sağlık çok pratik bir çözüm olmuş. Çok teşekkür ederim.