AccessTr.neT
Virgülü "," Noktaya "." Dönüştür - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Soruları ve Cevapları (https://accesstr.net/forum-excel-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: Virgülü "," Noktaya "." Dönüştür (/konu-virgulu-noktaya-donustur.html)



Virgülü "," Noktaya "." Dönüştür - ozkovlu29 - 12/06/2017

Merhabalar;

Ekteki dosyada Ücret tutarı ve İkramiye tutarını girdikten sonra xml dosyasına çevirince virgülü noktaya çevirmiyor. Buradaki hata ne olabilir.


Cvp: Virgülü "," Noktaya "." Dönüştür - C*e*l*o*y*c*e - 12/06/2017

excelden pek anlamam ama 
şu kodları bir deneyin

 Dim aaa As String
If aaa <> "" Then
                aaa = PEK.Replace(",", ".")
       
       Else
       End If


Cvp: Virgülü "," Noktaya "." Dönüştür - ozkovlu29 - 12/06/2017

Merhaba C*e*l*o*y*c*e ;
İlginiz için Teşekkür ederim. Fakat,
Aşağıdaki kod Excel dosyasının içeriğinde var, ancak çalışmıyor.
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, ",", ".")