teşekkürler sn leventm
bu başlık altında sormam hatalıysa bağışlayın ama bir şey daha sormak istiyorum.
listboxta 6 sütun var bu bir fatura. 4 sütunda kdv oranları, 5 sütunda kdv tutarları var, kdv oranları 2 çeşit % 1 ve % 8
buna göre listenin 5.sütununu toplarsak(kdv tutarları),
%1 lik kdv tutarlarını label2 ye ;
%8 lik kdv tutarlarınıda label3 e yazdırabilirmiyiz.
çok teşekkür ediyorum. :dua:
Private Sub UserForm_Initialize()
For x = 1 To ListBox1.ListCount
If Val(ListBox1.List(x - 1, 3)) = 1 Then Label2 = Val(Label2) + Val(ListBox1.List(x - 1, 4))
If Val(ListBox1.List(x - 1, 3)) = 8 Then Label3 = Val(Label3) + Val(ListBox1.List(x - 1, 4))
Next
End Sub
sn veysel emreye de teşekkürler.
bu kodu forma uyguladım. siz initialize olayına yazmışsınız. ben bir butona bağladım.
lsteye diyelim ki iki satır veri gönderdim. burada normal çalışıyor. yani ilgili sütunu toplayıp label2ye yazıyor.
fakat satırın birini silmek istiyorum. silince labelda bir değişiklik olmuyor.
aynı kodu sil butonunada yazıp silme yapınca bu seferde toplamın eksileceği yerde ikiye katlanıyor.
listenin devamlı değişebileceği göz önünde tutulursa bu kodu devamlı aktif olabilecek şekilde, başka bir olayamı yazmamız gerekli. teşekkürler. :arkadas:
Kodun devamlı aktif olması için kodları listboxa bağlamak daha mantıklı görünüyor,bence label yerine textbox kullansaydınız daha iyi olurdu. Fakat kesin bir cevap için dosyanızı ekleyebilirsiniz.
Listboxda silme yaptığınız kodların sonuna @veyselemre nin kodunu tekrar yazın. Ancak tek bir farkla bu kodların en başına
Label1.caption=0 ve
Label2.caption=0 demelisiniz
böyle bir formatta kuruş hanesinde 2 basamaktan fazla (23,564.2657) gibi olabiliyor. ondalık sayılar 2 basamaktan fazla ise labelda 2 basamak olarak nasıl gösterebiliriz.
teşekkürler.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.