Aktif sayfadan Combobox' a veri almak

[ynmcan]

Hayırlı akşamlar arkadaşlar;
Userform üzerindeki combobox' a, aktif olan sayfanın "G8:G25" aralığındaki enson dolu satıra kadar olan verileri listelemek istiyorum ama yapamadım.
Asağıda görülen kodu bazı değişiklikler yaparak denedim olmadı.
Yardımcı olursanız sevinirim.

s1= ActiveSheet
ComboBox2.RowSource = "s1!G8:G" & s1.[G25].End(xlUp).Row

 

[Orion1]

Private Sub ComboBox1_Change()
i = ComboBox1.Value
Sheets(i).Activate


's1= ActiveSheet
ComboBox2.RowSource = "G8:G" & [G65536].End(xlUp).Row
If ComboBox2.ListCount > 0 Then ComboBox2.ListIndex = 0


End Sub

 

[ynmcan]

Syn. Evren Gizlen ;
Teşekür ederim. Hayırlı akşamlar.

 

[Orion1]

Syn. Evren Gizlen ;
Teşekür ederim. Hayırlı akşamlar.

Rica ederim.
İyi akşamlar.