+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel İçinde Visual Basic (/konu-excel-icinde-visual-basic.html)
Excel İçinde Visual Basic - SDRK - 27/12/2019
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.
Cvp: Excel İçinde Visual Basic - ozanakkaya - 27/12/2019
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)Cvp: Excel İçinde Visual Basic - SDRK - 27/12/2019
teşekkür ederim deneyeyim
Cvp: Excel İçinde Visual Basic - SDRK - 27/12/2019
Hocam çok teşekkür ederim çalıştı
Cvp: Excel İçinde Visual Basic - berduş - 27/12/2019
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, ",", ".") 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")