Vnesenie v Combobox

[varvar_s]

Vsem privet.Nujna pomosh na4inaiushemu.
Imeiutsia 2 stolbca-
A-----------B
vasia-----petrov
petia---- ivanov
vasia----gusev
ivan------ivanov
petia-----pupkin
fedia-----kulikov
o4en hotelos-bi imet 2 comboboxa:
combobox1:
vasia
petia
ivan
fedia
Pri vybore imeni,vo-vtorom comboboxe poiavlialis tolko sootvetstvuiushie familii etomu imeni.
Zaranee blagodaren.

[lord0n]

Код: Выделить всё


Private Sub Combo1_Click()
    Combo2.ListIndex = Combo1.ListIndex
End Sub


[algol2]

Попробуй


Private Sub ComboBox1_Click()
ComboBox2.Clear
i = 1
While ActiveSheet.Cells(i, 1) <> ""
If ActiveSheet.Cells(i, 1) = ComboBox1.Text Then ComboBox2.AddItem ActiveSheet.Cells(i, 2)
i = i + 1
Wend
End Sub


Удачи