ComBoboxlara veri Almak

[casteneda]

Arkadaslar Merhaba;
Bir sayfada birden fazla ComboBoxum var. Dongu kullanarak, bu ComboBoxlara diğer bir sayfadaki A sutunundaki verileri nasıl alabilirim? sutundaki veriler guncellenince Combolarda otomatik guncellenecek. Ve altta bosluklar gozukmeyecek. Class Module ile daha önce sanırım çözülmüştü. Class Module olmadan bunu çözebilirmiyiz? Teşekkürler, iyi çalışmalar.

 

[Orion1]

Çalışma sayfasının kod modülüne aşağıdaki kodları yapıştırın.
Verielri aldığı sayfayı sayfa2 olarak kabul eettim.Eğer başka bir sayfa ise kodlarda sayfa2 olan yerleri o sayfanın adı ile değiştiriniz..

Private Sub Worksheet_Activate()
Dim sut As Byte
sut = 1
For Each cmb In ActiveSheet.OLEObjects
    If TypeName(cmb.Object) = "ComboBox" Then
    cmb.ListFillRange = "Sayfa2!" & Sheets("Sayfa2").Range(Sheets("Sayfa2"). _
    Cells(1, sut), Sheets("Sayfa2").Cells(Sheets("Sayfa2"). _
    Cells(65536, sut).End(xlUp).Row, sut)).Address
        If cmb.Object.ListCount > 0 Then
            cmb.Object.ListIndex = 0
            sut = sut + 1
        End If
    End If
Next
End Sub

 

[Orion1]

Dosyayıda ekleyim.Şimdi olmadı çalışmıyor kodlar dersin.

 

[casteneda]

Evren Bey Her zamanki gibi yine tam cozumu buldunuz. Bilginiz, ilginiz ve emeginiz icin cok tesekkur ederim. Saygi ve sevgilerimle.

 

[Orion1]

Evren Bey Her zamanki gibi yine tam cozumu buldunuz. Bilginiz, ilginiz ve emeginiz icin cok tesekkur ederim. Saygi ve sevgilerimle.

Rica ederim.
İyi çalışmalar.