Activecell in sütunundaki Dolu hucrelerin sayısı

[aurer]

Secime bağlı olarak activecell in yeri sürekli olarak değişebilmektedir, activecell in olduğu sütündaki dolu hücrelerin sayısını nasıl bulabiliriz. yardımcı olursanız sevinirim.

 

[Ömer BARAN]

Merhaba.

Sorularınızı gerçek belgeyle aynı yapıda örnek belge üzerinden sorarak,
sonuca daha hızlı ulaşabilirsiniz diye düşünüyorum.

Örnek belge olmadan verilen cevaplar, ister istemez bazı varsayımlara dayanıyor ve
yeni soru/sorunlara neden olabiliyor.

Aşağıdaki gibi olabilir.
.

    MsgBox WorksheetFunction.CountA(Columns(ActiveCell.Column))

 

[aurer]

Activecell ile listbox rowsource nasıl doldurulur

Cevabınız için teşekkür ederim bir konuda daha yardımınıza ihtiyacım var,

ActiveCell bulunduğu hucredeki dolu hücreleri saydırdık peki bunu listbox2.rowsource'unun kaynağı nasıl yapabiliriz, ben bir çalışma yaptım ama hata veriyor. Amacım listbox1 de sectiğim indeksle ilişkili hücreye gitsin sutündaki verileri saysın ve bunu listbox2 rowsource'una eklemek.
-----------------------------------------
Private Sub ListBox1_Change()
Dim listsayi, dolu As Integer

listsayi = ListBox1.ListIndex + 2
Cells(1, listsayi).Activate

dolu = WorksheetFunction.CountA(Columns(ActiveCell.Column))

ListBox2.RowSource = "veri!Range(Cells(1,listsayi),Cells(1,listsayi+dolu))"
End Sub

 

[askm]

Örnek dosyanızı eklerseniz yardımcı olmaya çalışalım.

 

[aurer]

dosya nerden ekleniyor, ben ekleme yeri bulamadım.
activecell bulundugu huceredeki dolu sutunları saydırayım ve bu verileri listboxın rowsource ına ekleyeyim.

 

[aurer]

arkadaslar kod uzerinde bir sıkıntı var secim yapıyor ama listbox2 row source aktarmıyor. kod uzerinden yardımcı olabilir misiniz.

Private Sub ListBox1_Change()

Dim listsayi, dolu As Integer
listsayi = ListBox1.ListIndex + 2
Cells(1, listsayi).Activate

dolu = WorksheetFunction.CountA(Columns(ActiveCell.Column))
ActiveSheet.Range(Cells(2, ActiveCell.Column), Cells(dolu, ActiveCell.Column)).Select

ListBox2.RowSource = ActiveSheet.Range(Cells(2, ActiveCell.Column), Cells(dolu, ActiveCell.Column)).Text

End Sub

 

[aurer]

arkadaslar sadece su kısmı yapamadım, yardımcı olun lütfen.

ListBox2.RowSource = ActiveSheet.Range(Cells(2, ActiveCell.Column), Cells(dolu, ActiveCell.Column)).Text