combobox1 e bağlı olarak combobox2 nin değer alması

[enes2000eren]

selamlar.combobox 1 deki veri kitaptaki sayfaların adını göstermekte.
combobox2 nin ise combobox 1 in değerine göre o sayfadan veri almasını istiyorum.acaba nasıl bir çözüm bulabilirim?

 

[Orion1]

Ekli dosyadaki gibimi istiyorsunuz?
Aşağıdaki kodlar boş bir modüle yazılacak

Sub sayfalar()
Dim syf As Worksheet
Set s1 = Sheets("Sayfa1")
s1.Select
s1.ComboBox1.Clear
For Each syf In Worksheets
    s1.ComboBox1.AddItem syf.Name
Next
s1.ComboBox1.ListIndex = 0
End Sub

Sub Auto_Open()
Call sayfalar
End Sub

Aşaığdaki kodlar sayfa1'in kod bölümüne yazılacak.

Private Sub ComboBox1_Click()
ComboBox2.Value = Sheets(ComboBox1.Value).Range("A1").Value
End Sub

Private Sub Worksheet_Activate()
Call sayfalar
End Sub