Skip to main content

AccessTr.neT


Excel İçinde Visual Basic

Excel İçinde Visual Basic

Çözüldü #1
Arkadaşlar ben bir devlet hastenesinde mutemet olarak çalışıyorum. Personellerin keseneklerini yapmak için sgk bize bir Excel dosyası paylaşmış buradan Excel üzerinden xml dosyası hazırlayıp sgk ya yükluyoruz.Ancak Excel dosyası dosya hazırlarken ücret satırında virgülden sonraki kısmı 0 olarak atıyor mesela 123,45 atacakken xml dosyasına 123,00 atıyor. Burada macro hazırlanmış ancak hatalı yapılmış bu konuda yardımcı olacak varsa şimdiden çok teşekkür ederim.
.rar 4B ASIL 13 KODU GENEL BÜTÇE.rar (Dosya Boyutu: 40,5 KB | İndirme Sayısı: 6)
Son Düzenleme: 27/12/2019, 11:11, Düzenleyen: SDRK.
Cevapla
#2
Merhaba, XML_Hazirla kodu içerisindeki

Visual Basic Code
PEK = PEK + Val(PRIM_UCRET)

şeklindeki kodu aşağıdaki ile değiştirerek deneyin.

Visual Basic Code
PEK = PEK + Round(PRIM_UCRET, 2)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
teşekkür ederim deneyeyim
Cevapla
#4
Hocam çok teşekkür ederim çalıştıImg-grin
Cevapla
#5
2 saattir uğraşıyorum hocam içimde kalmasın ben de paylaşayım)
kodun
Visual Basic Code
       PEK = 0
       'MsgBox Val(PRIM_UCRET)
       If (IsNumeric(PRIM_UCRET)) Then
         PEK = PEK + Val(PRIM_UCRET)
       End If
       If (IsNumeric(PRIM_IKRAMIYE)) Then
         PEK = PEK + Val(PRIM_IKRAMIYE)
       End If
       PEK = Replace(PEK, ",", ".")
kısmını aşağıdaki kodla değiştirip dener misiniz?
Visual Basic Code
       PEK = 0
       'MsgBox Val(PRIM_UCRET)
       If (IsNumeric(PRIM_UCRET)) Then
         PEK = PEK + (PRIM_UCRET)
       End If
       If (IsNumeric(PRIM_IKRAMIYE)) Then
         PEK = PEK + (PRIM_IKRAMIYE)
       End If
       PEK = Format(PEK, "0.00")
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da