ListBox değişken verilerin toplamını almak

[noxious]

ekli dosyada ListBox üzerinde görüntülenen L, M, N, O sütunları dolu ise toplamını WorksheetFunction.Sum vasıtası ile Label1 den Label4 e kadar gösteriyor.

E sütununda ise değişken veriler var. ABC 1, ABC 2, ABC 3 ve ABC 4 diye bunların toplamını Form üzerinde Label de nasıl gösterebiliriz.

Label5=ABC 1 lerin toplamı
Label6=ABC 2 lerin toplamı gibi

Label1 den Label4 e kadar olan kodlar aşağıda

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 20
ListBox1.RowSource = "A2:AH" & Cells(65536, "I").End(xlUp).Row
ListBox1.ColumnWidths = "30;20;20;20;20;20;20;20;70;35;20;20;20;20;20;20;20;20;20;20;"
Label1.Caption = WorksheetFunction.Sum(Range("L2:L" & Cells(65536, "I").End(xlUp).Row))
Label2.Caption = WorksheetFunction.Sum(Range("M2:M" & Cells(65536, "I").End(xlUp).Row))
Label3.Caption = WorksheetFunction.Sum(Range("N2:N" & Cells(65536, "I").End(xlUp).Row))
Label4.Caption = WorksheetFunction.Sum(Range("O2:O" & Cells(65536, "I").End(xlUp).Row))
End Sub

 

[noxious]

Özür dilerim başlık hatalı oldu ListBox değişken verilerin toplamını almak olması lazımdı aceleden Listwiev yazdım

Sayın Hocalarım başlığı değiştirirseniz memnun olurum.

 

[noxious]

Arkadaşlar forum içerisinde değişken verilerin toplamı ile ilgili formüller buldum ama bana yukarda bahsettiğim işlem için macro lazım çalışmamız makro üzerine kurulu ve ben forum içerisinde ya yanlış arama yapıyorum yada forumda yok yardımlarınızı bekliyorum.

 

[noxious]

Bu konuya el atacak bir Hocamız yokmuuuuuu

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 20
ListBox1.RowSource = "A2:AH" & Cells(65536, "I").End(xlUp).Row
ListBox1.ColumnWidths = "30;20;20;20;40;20;20;20;70;35;20;20;20;20;20;20;20;20;20;20;"
Label1.Caption = WorksheetFunction.Sum(Range("L2:L" & Cells(65536, "I").End(xlUp).Row))
Label2.Caption = WorksheetFunction.Sum(Range("M2:M" & Cells(65536, "I").End(xlUp).Row))
Label3.Caption = WorksheetFunction.Sum(Range("N2:N" & Cells(65536, "I").End(xlUp).Row))
Label4.Caption = WorksheetFunction.Sum(Range("O2:O" & Cells(65536, "I").End(xlUp).Row))
[COLOR="Red"]Label5.Caption = WorksheetFunction.CountIf(Range("E2:E65536"), "ABC 1")
Label6.Caption = WorksheetFunction.CountIf(Range("E2:E65536"), "ABC 2")
Label7.Caption = WorksheetFunction.CountIf(Range("E2:E65536"), "ABC 3")
Label8.Caption = WorksheetFunction.CountIf(Range("E2:E65536"), "ABC 4")[/COLOR]
End Sub

 

[noxious]

Sayın Orion2 Hocam çok teşekkürler tekrar siz imdadıma yetiştiniz. Mükemmelsiniz.

 

[Orion1]

Sayın Orion2 Hocam çok teşekkürler tekrar siz imdadıma yetiştiniz. Mükemmelsiniz.

Rica ederim.
iyi çalışmalar.