listbox ta toplama işlemi

[aydın3838]

selamlar

benim yapamadığım derdim şu

listboxa sayfadaki 10 satır veriyi alıyorum benim istediğim listboxtun

9. satırındaki maliyet isimli sırasındaki rakamları toplamak textboxta görmek

yardımcı olacak arkadaşlara şimdiden teşekkürler

 

[Orion1]

Dosyanız ekte.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 10
ListBox1.ColumnHeads = False
ListBox1.ColumnWidths = "70;19,50,25,25,25,90,30,40,40"
ListBox1.RowSource = "b4:k"[B][COLOR="Red"] & Cells(65536, "B").End(xlUp).Row
TextBox3.Text = Format(WorksheetFunction.Sum(Range("J4:J" & _
Cells(65536, "B").End(xlUp).Row)), "#,##0.00")[/COLOR][/B]
End Sub

 

[aydın3838]

çok teşekkürler sayın evren bey

 

[Orion1]

çok teşekkürler sayın evren bey

Rica ederim.
İyi çalışmalar.

 

[aydın3838]

sayın evren gizlen hocam

kodları kendi çalışmama uyarlayamadım bir bakarmısınız

combodan listedeki ismi seçiyorum fakat toplama işlemi sayfada sabit kalıyor

kodları listboxta alıyorum yine olmuyor rica etsem bakarmısınız

teşekkürler

 

[aydın3838]

sayın evren bey bir sorum daha olacak

0","00 tl
0",00 m.tül formatı olması gerekiyor rakamların ilk harfinden ayırması gerekiyor

nasıl bir yol lazım acaba

 

[Orion1]

Dosyanız ekte.
Yalnız J sütunundaki hücreleri biçimlendirmişsiniz.Gerçek değerleri göstermiyor.

 

[zfr10]

Listbox sütunlarında çoklu toplam

Selam arkadaşlar listbox içinde 6 tane kolonda sayısal veriler var ve listboxta süzme işlemi yaptığımda her bir kolonu ayrı textboxa toplamak istiyorum. Bir çok kod denedim ama sonuçlar hata veriyor. Bunun için bir öneriniz var mıdır?

 

[zfr10]

Sayın Evren Bey'in yardımıyla hazırlamış olduğum örnek dosya ektedir.

 

[vardar07]

Private Sub TextBox1_Change yazan kodların en altına (END Sub üstüne) aşağıdaki kodu ekleyip denermisiniz.

a = 0 = b = 0: c = 0: d = 0: e = 0: f = 0
    For i = 0 To ListBox1.ListCount - 1
     a = a + ListBox1.List(i, 4)
     b = b + ListBox1.List(i, 5)
     c = c + ListBox1.List(i, 6)
     d = d + ListBox1.List(i, 15)
     e = e + ListBox1.List(i, 16)
     f = f + ListBox1.List(i, 17)
     Next i
TextBox2 = a
TextBox3 = b
TextBox4 = c
TextBox5 = d
TextBox6 = e
TextBox7 = f

 

[zfr10]

Sayın Vardar Hocam tam istediğim gibi olmuş. Elinize emeğinize sağlık. ALLAH razı olsun.

 

[vardar07]

Esas emek Sayın orion1 in biz ufak bir ekleme yaptık. İşinize yaradıysa ne mutlu.

 

[zfr10]

Listbox sütunlarında çoklu toplam

ListBox1.RowSource = "b4:k" & Cells(65536, "B").End(xlUp).Row
TextBox3.Text = Format(WorksheetFunction.Sum(Range("J4:J" & _
Cells(65536, "B").End(xlUp).Row)), "#,##0.00")

Değerli arkadaşlar bu kodlara göre sütun toplamı alınmakta fakat yıla göre toplam nasıl alınır?

 

[vardar07]

Değerli arkadaşlar bu kodlara göre sütun toplamı alınmakta fakat yıla göre toplam nasıl alınır?

Örnek dosya eklemeye özen gösterin ki dosya yapınıza göre sağlıklı sonuçlar alabilesiniz.

 

[zfr10]

Listbox sütunlarında çoklu toplam

Sayın Vardar Bey örnek dosyayı ekledim. Combobox1 deki yıla göre listboxta tarihe göre toplam almak istiyorum. Kendi hazırlamış olduğum programda listboxta aşağıdaki kodla textboxlara toplam alıyorum ama tüm yılların toplamını veriyor.

ListBox1.RowSource = "b4:k" & Cells(65536, "B").End(xlUp).Row
TextBox3.Text = Format(WorksheetFunction.Sum(Range("J4:J" & _
Cells(65536, "B").End(xlUp).Row)), "#,##0.00")

 

[vardar07]

Userformdaki kodları silip aşağıdakini ekleyip deneyiniz.

Dim sh As Worksheet, son
Private Sub ComboBox1_Change()
Set wf = WorksheetFunction
veri = wf.CountIf(sh.Range("M2:M100"), ComboBox1)
If veri < 1 Then MsgBox "ARADIĞINIZ " & ComboBox1 & " YILINA AİT VERİ YOK": Exit Sub
TextBox1.Text = Format(wf.SumIfs(sh.Range("E2:E" & son), sh.Range("M2:M" & son), ComboBox1), "#,##")
TextBox2.Text = Format(wf.SumIfs(sh.Range("F2:F" & son), sh.Range("M2:M" & son), ComboBox1), "#,##")
TextBox3.Text = Format(wf.SumIfs(sh.Range("G2:G" & son), sh.Range("M2:M" & son), ComboBox1), "#,##")
End Sub
Private Sub UserForm_Initialize()
Set sh = Sheets("İCMAL")
son = sh.Cells(65536, "A").End(xlUp).Row
ListBox1.ColumnCount = 13 ' lisbox'ta ki sütun sayısı
ListBox1.ColumnWidths = "40;40;130;40;40;50;40;120;70;70;60;30" 'lisbox'taki sütunların genişliği
ListBox1.RowSource = "İCMAL!A2:M" & son
TextBox1.Text = Format(WorksheetFunction.Sum(sh.Range("E2:E" & son)), "#,##")
TextBox2.Text = Format(WorksheetFunction.Sum(sh.Range("F2:F" & son)), "#,##")
TextBox3.Text = Format(WorksheetFunction.Sum(sh.Range("G2:G" & son)), "#,##")
ListBox1.ColumnHeads = True
End Sub

 

[zfr10]

Sayın Vardar alakanız için teşekkür ederim ellerinize sağlık.

 

[vardar07]

Rica edrim. Kolay gelsin.

 

[zfr10]

Listboxta toplama işlemi

Sayın Vardar Hocam burdaki combobox ile toplama işlemindeki kodlar 2003, 2007 ve 2010'da uygulanabilir mi?

 

[vardar07]

Ben 2007 kullanıyorum çalışıyor. Diğerlerindede çalışması lazım.