ListBox'a hem sayfa adı hemde sayfa içeriği yazdırma

[unforgivenn]

Herkeze merhabalar, şöyle bir konuda yardıma ihtiyacım var. 2 Stundan oluşan bir listbox'ım var, yapmak istediğim 1. stunda sayfa isimlerinin görünmesi 2. stundada sayfalarda bulunan f4 ve f249 arasında bulunan rakkamlarımın toplamının örünmesi. Yani sayfa ismi karşısında sayfadaki belli hücrelerin toplamı. Şimdiden teşekkürler.

 

[dEdE]

Merhaba,
Forumumuza hoş geldiniz.
Aşağıdaki kodu dener misiniz?

Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
    ListBox1.AddItem
    ListBox1.Column(0, ListBox1.ListCount - 1) = Sheets(i).Name
    ListBox1.Column(1, ListBox1.ListCount - 1) = WorksheetFunction.Sum(Sheets(i).Range("F4:F249"))
Next
End Sub

 

[dEdE]

Sayın unforgivenn,
Bir de aşağıdaki linke bakın.

http://www.excel.web.tr/showpost.php?p=658772&postcount=3