Hertürlü Aktif Sayfalarda Çalıştırılabilecek Kod

[taseraydin]

öncelikle,
Formda bulunan Tüm Arkadaşlara iyi akşamlar diliyorum.


Aşağıda yazılı olan kod
Aktif sayfanın " Sayfa1 " varsılayalarak hazırlanan Kodu
Farklı isimlerde olabilecek Aktif Sayfalar İçin
kullanılabilir şekilde Nasıl Düzenleyebilirim ?..

----------------------------------------------------------------

say = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A:A"))
ListBox1.RowSource = "Sayfa1!" & "A1" & ":" & "G" & say

 

[Orion1]

öncelikle,
Formda bulunan Tüm Arkadaşlara iyi akşamlar diliyorum.


Aşağıda yazılı olan kod
Aktif sayfanın " Sayfa1 " varsılayalarak hazırlanan Kodu
Farklı isimlerde olabilecek Aktif Sayfalar İçin
kullanılabilir şekilde Nasıl Düzenleyebilirim ?..

----------------------------------------------------------------

say = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A:A"))
ListBox1.RowSource = "Sayfa1!" & "A1" & ":" & "G" & say

aşağıdaki gibi.

say = WorksheetFunction.CountA(Range("A:A"))
ListBox1.RowSource = "A1" & ":" & "G" & say

 

[taseraydin]

Teşekür

Teşekür Ederim
Elinize Sağlık Orion2

 

[Orion1]

Teşekür Ederim
Elinize Sağlık Orion2

Rica ederim.
İyi çalışmalar.