[Yardım]  Kuruşlu giriş ve toplamda hata

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Kuruşlu giriş ve toplamda hata

İleti#1)  vuranoglu » 26 Kas 2020 21:46

Merhaba
ekli userform üzerinden yapmış olduğum tabloda metal para girişinde (kuruşlu giriş)ve toplam hatalı çalışıyor.Nasıl bir düzeltme gerekiyor?
İlgilenen arkadaşlara şimdiden teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 65
İleti: 109
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: Kuruşlu giriş ve toplamda hata

İleti#2)  halily » 26 Kas 2020 22:38

metin kutularında TL ibaresi olduğu zaman hata veriyor galiba
o nedenle içinde TL olan metin kutularını val() içine almayı deneyebilirsiniz
Val(TextBox1)
Val(TextBox3)
Val(TextBox5)
Val(TextBox7)
Val(TextBox9)
Val(TextBox11)
ayrıca hesap fonksiyonunda kullandığınız a = Controls("TextBox" & i).Value ifadesinde de val kullanılmalı
a = Val(Controls("TextBox" & i).Value)
bunun dışında ne hatalar var bilmiyorum
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 256
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Kuruşlu giriş ve toplamda hata

İleti#3)  halily » 26 Kas 2020 22:52

bu arada kuruşlu girişten kast ettiğiniz ne sadece kuruş mu yoksa 1,25 gibi 1 lira 25 kuruş mu?
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 256
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Kuruşlu giriş ve toplamda hata

İleti#4)  vuranoglu » 26 Kas 2020 23:07

Merhaba
1.25 -- 2.34 şeklinde giriş yapılacak
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 65
İleti: 109
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Kuruşlu giriş ve toplamda hata

İleti#5)  halily » 26 Kas 2020 23:37

hesap fonksiyonunu aşağıdaki gibi düzenleyip dener misiniz?
virgül kullanıldığından val fonksiyonu ifadeden virgül ve sonrasını almıyor virgülü replace ile nokta olarak değiştirince sonuç düzeldi gibi
Kod: Tümünü seç
Sub hesap()
topla = Empty
TextBox20.Value = ""
    For i = 13 To 19
        If Controls("TextBox" & i) <> "" Then
            a = Val(Replace(Controls("TextBox" & i).Value, ",", "."))
            topla = topla + CCur(a)
            Controls("TextBox" & i).Value = Format(Replace(Controls("TextBox" & i).Value, " TL", ""), "#,##0.00") & " TL"
        End If
    Next i
TextBox20.Value = Format(topla, "#,##0.00") & " TL"
End Sub
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 256
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Kuruşlu giriş ve toplamda hata

İleti#6)  vuranoglu » 27 Kas 2020 20:15

Teşekkürler .
Emeğine sağlık.
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 65
İleti: 109
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Kuruşlu giriş ve toplamda hata

İleti#7)  halily » 27 Kas 2020 20:16

rica ederim)
iyi çalışmalar
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 256
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google Adsense [Bot] ve 6 misafir

Bumerang - Yazarkafe