listboxa veri almak

[hurkanpisirici]

merhaba listbox ıma her sayfanın d3 hücreisndeki verilerini alabiliyorum yalnız,
ilk 4 sayfanınkini almak istemiyorum bunu nasıl halledebilrim.

 

[Orion1]

For i = 5 To Worksheets.Count
    ListBox1.AddItem Sheets(i).[D3]
Next

 

[hurkanpisirici]

Private Sub UserForm_Initialize()
Dim syf As Worksheet
ListBox1.ColumnCount = 2
For Each syf In Worksheets
ListBox1.AddItem
ListBox1.Column(0, ListBox1.ListCount - 1) = syf.Name
ListBox1.Column(1, ListBox1.ListCount - 1) = syf.Range("D1").Value
Next syf
End Sub



hocam bu koda ilave edebilirmiyim yada revize edebilirmiyim?

 

[Orion1]

Private Sub UserForm_Initialize()
Dim i As Integer
ListBox1.ColumnCount = 2
For i = 5 To Worksheets.Count
ListBox1.AddItem
ListBox1.Column(0, ListBox1.ListCount - 1) = Sheets(i).Name
ListBox1.Column(1, ListBox1.ListCount - 1) = Sheets(i).Range("D1").Value
Next i
End Sub

 

[hurkanpisirici]

elinize sağlık evren hocam buda oldu

 

[hurkanpisirici]

hocam peki listbox a gelen verilerin toplamını textboxa alabilirmiyiz?

 

[hurkanpisirici]

yada ne bilim her sayfanın d1 ini topla textbox 1e yaz gibi tabi ilk 3 sayfanınki hariç

 

[Orion1]

yada ne bilim her sayfanın d1 ini topla textbox 1e yaz gibi tabi ilk 3 sayfanınki hariç

Daha önce ilk 4 sayfa hariç çalışma yapmıştık.Şimdi değişti ilk 3 sayfamı oldu?

 

[hurkanpisirici]

hocam özür dilerim onu yanlış yazmışım kafa kalmadıki

 

[Orion1]

Private Sub UserForm_Initialize()
Dim i As Integer, toplam As Double
On Error Resume Next
ListBox1.ColumnCount = 2
For i = 5 To Worksheets.Count
ListBox1.AddItem
ListBox1.Column(0, ListBox1.ListCount - 1) = Sheets(i).Name
ListBox1.Column(1, ListBox1.ListCount - 1) = Sheets(i).Range("D1").Value
toplam = toplam + Sheets(i).Range("D1").Value
Next i
TextBox1.Text = toplam
End Sub

 

[hurkanpisirici]

minnettarım hocam iyiki varsınız.