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