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.

Merhaba, XML_Hazirla kodu içerisindeki

PEK = PEK + Val(PRIM_UCRET)

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

PEK = PEK + Round(PRIM_UCRET, 2)

teşekkür ederim deneyeyim

Hocam çok teşekkür ederim çalıştı

2 saattir uğraşıyorum hocam içimde kalmasın ben de paylaşayım)
kodun

       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?

       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")