Combobox1 seçimi combobox2 satır sırasına göre gelmesi

[netvolxxx]

merhaba forumda baktığımda comboboxlar arası veri getirme mantığı hep il ilçe mantığı ile yapılmış örnekler var
benim yapmak istediğim şöyle bir şey userform üzerinde 2 adet combobox var

sayfa1 a2 satırında ahmet a3: mehmet a4:hasan a5:levent yazıyor

a sutun combobox1

b2:c2:d2:e2:f2 bu satırların hepsi a2 ye eşittir yani combobox1 ahmet seçtiğimde 2 satırda yazılı olanlar combobox 2 gelcek
örnek dosyayı ektedir...

bu işlemi nasıl yapabilirim yardımlarınızı bekliyorum....

 

[volki_112]

merhaba forumda baktığımda comboboxlar arası veri getirme mantığı hep il ilçe mantığı ile yapılmış örnekler var
benim yapmak istediğim şöyle bir şey userform üzerinde 2 adet combobox var

sayfa1 a2 satırında ahmet a3: mehmet a4:hasan a5:levent yazıyor

a sutun combobox1

b2:c2:d2:e2:f2 bu satırların hepsi a2 ye eşittir yani combobox1 ahmet seçtiğimde 2 satırda yazılı olanlar combobox 2 gelcek
örnek dosyayı ektedir...

bu işlemi nasıl yapabilirim yardımlarınızı bekliyorum....

2.satırdakiler gelmesi derken 2.sütun demek istediniz galiba. Combobox 2 ye gelecek veriyi biraz daja açıklar mısınız.

 

[netvolxxx]

2.satırdakiler gelmesi derken 2.sütun demek istediniz galiba. Combobox 2 ye gelecek veriyi biraz daja açıklar mısınız.

merhaba
SAYFA1 DE A2:AHMET combobox1 ahmet seçtiğimde
karşılığı b2-c2-d2-e2 bu alanlarda yazanların combobox2 gelmesi
a2 den a1500 e kadar combobox1
a3:mehmet=combobox2 karşılığı b3-c3-d3-e3 bu mantıkla yani...

 

[Ziynettin]

Kodları deneyin

Private Sub UserForm_Initialize()
    Dim sh As Worksheet
    Set sh = Sheets("Sayfa1")
    son = sh.Range("A" & Rows.Count).End(3).Row
    If son < 2 Then Exit Sub
    ComboBox1.RowSource = sh.Name & "!A2:A" & son
End Sub

Private Sub ComboBox1_Change()
    Dim sh As Worksheet, rg As Range
    Set sh = Sheets("Sayfa1")
    son = sh.Range("A" & Rows.Count).End(3).Row
    If son < 2 Then Exit Sub
    rr = ComboBox1.ListIndex + 2
    cc = sh.Cells(rr, Columns.Count).End(1).Column - 1
    If cc <> 0 Then
        Set rg = sh.Range("B" & rr).Resize(, cc)
        ComboBox2.List = Application.Transpose(rg)
    Else
        ComboBox2.Clear
    End If
End Sub

 

[netvolxxx]

Kodları deneyin

Private Sub UserForm_Initialize()
    Dim sh As Worksheet
    Set sh = Sheets("Sayfa1")
    son = sh.Range("A" & Rows.Count).End(3).Row
    If son < 2 Then Exit Sub
    ComboBox1.RowSource = sh.Name & "!A2:A" & son
End Sub

Private Sub ComboBox1_Change()
    Dim sh As Worksheet, rg As Range
    Set sh = Sheets("Sayfa1")
    son = sh.Range("A" & Rows.Count).End(3).Row
    If son < 2 Then Exit Sub
    rr = ComboBox1.ListIndex + 2
    cc = sh.Cells(rr, Columns.Count).End(1).Column - 1
    If cc <> 0 Then
        Set rg = sh.Range("B" & rr).Resize(, cc)
        ComboBox2.List = Application.Transpose(rg)
    Else
        ComboBox2.Clear
    End If
End Sub

günaydın merhaba ustad çok teşekürrr ederim sağolasın istediğim buydu...