listbox da listelenen verilerden azalan bakiye sutunu oluşturma.

[kemal turan]

Merhaba,
Listbox da veritabanı olarak kullandığım sahifeden listelediğim verilerden ekstre amacı ile azalan bakiye sutunu oluşturmak istiyorum.
Detaylı açıklamayı ek dosyada belirttim.
yardımlarınız için şimdiden teşekkür ediyorum.

 

[Haluk]

Aşağıdaki kırmızı renkli satırları ilave edip, deneyin...

            ReDim Preserve dizial(1 To 13, 1 To a)
            dizial(1, a) = S1.Cells(i, "A")
            dizial(2, a) = Format(S1.Cells(i, "c"), "#,##0.00")
            dizial(3, a) = Format(S1.Cells(i, "e"), "#,##0.00")
            temp1 = temp1 + S1.Cells(i, "c")
            temp2 = temp2 + S1.Cells(i, "e")
            dizial(4, a) = Format(temp1 - temp2, "#,##0.00")

.

 

[kemal turan]

Merhaba,
Haluk hocam çok teşekkür ederim.
Selametle kalınız.