Merhaba, @
atoz112 hocanın 7. mesaja eklediği örnekteki modüle FormatiCevir fonksiyonu ekledim. İnceleyip olumlu olumsuz bildirimde bulununuz.
Üst mesajdaki örnek yenilenmiştir.
sayın ozanakkaya döviz işlemlerinin farklı sütunlarda olmasından dolayı, sonuç yanlış çıkıyor. ilginize teşekkürler, sayın atozun son örneğiyle sorun çözüldü. sağolun.
Siz bilirsiniz ama sorun çıkmaması gerekli. Ben test amacıyla eklediğim örnekte bazı birimleri pound ve tl. ile değiştirmiştim. Farklı sonucun sebebi bu olabilir.
Örnek çalışmayı bende denedim,
aşağıdaki kodda hata verdi,
GTutari = Left(GTutari, GSayi - 1) & "," & Right(GTutari, Len(GTutari) - GSayi)
neden acaba?
Modülde bulunan aşağıdaki kodları silerek deneyiniz
GSayi = InStr(GTutari, ".")
If GSayi = 0 Then
GTutari = Left(GTutari, GSayi - 1) & "," & Right(GTutari, Len(GTutari) - GSayi)
If Len(GTutari) = 6 Then '
GFormatEkle = True
End If
End If