Combobox ile dolaylı veri çağırma

[EKREM1661]

Saygıdeğer Arkadaşlar..!Selam ve Saygılarla..

Ne zamandır tasarladığım, fakat foruma şimdi sunabildiğim bir uygulama, ki bana bir konuda çok kolaylık sağlayacak.. Konu; ekteki örnek dosyada daha kolay anlaşılacak..

Şöyleki; Sayfa1 üzerine konmuş bir combobox ile, Sayfa2 B sütununda yer alan verileri, düşey olarak 10'arlı gruplar halinde alarak belirlenen (C2:C11) aralığına yansıtacak.. (kaydır veya dolaylı formülüyle yapılan iş gibi, fakat makrolu çözüm benim için çok ideal olacak)

 

[hamitcan]

Aşağıdaki kodları dener misiniz ?

Private Sub ComboBox1_Change()
    If ComboBox1 = "" Then Exit Sub
    [c2:c11] = Sayfa2.Range("B" & ComboBox1.ListIndex * 10 + 1 & ":B" & ComboBox1.ListIndex * 10 + 10).Value
End Sub

Private Sub Worksheet_Activate()
    ComboBox1.Clear
    For i = 1 To Sayfa2.Cells.SpecialCells(xlCellTypeLastCell).Row
        If Sayfa2.Cells(i, 1) <> "" Then
        ComboBox1.AddItem Sayfa2.Cells(i, 1).Text
    End If
    Next
End Sub

 

[EKREM1661]

Saygıdeğer hocam.. ilk "AA" grubunu yansıtıyor, ancak diğer grupları yansıtmıyor.. Ayrıca Sayfa1 e her gelindiğinde hata veriyor..

 

[hamitcan]

Eki inceleyin.

 

[EKREM1661]

Sn.Hamit hocam..! Konular hakkında olağanüstü olduğunuzu biliyordum. çok teşekkür ediyorum, elinize ve bilginize sağlık..mufaffakiyetler diliyorum. Hoçşa kalın..

 

[hamitcan]

Çok teşekkürler ama biz hala denizde bir damlayız.