AÇIKLAMA DA YER ALAN DÖVİZ TUTARINI AYRIŞTIRMAK

[Bintang]

Merhaba;
başka bir programımda kullanmakta olduğum makroyu başka bir sayfada kullanmak istedim ancak başaramadım. bana bu konuda yardımcı olmanızı rica edeceğim. örnek dosya ektedir.

 

[Korhan Ayhan]

Paylaştığınız görseldeki reg.Pattern bölümündeki deseni aşağıdaki satır gibi düzenleyip deneyiniz.

reg.Pattern = "(\d+,?\d*)"

Tabi bu desen farklı verilerde doğru sonuç vermeyebilir. Dosyanızdaki verilerde doğru sonuç verdi.

 

[Bintang]

Paylaştığınız görseldeki reg.Pattern bölümündeki deseni aşağıdaki satır gibi düzenleyip deneyiniz.

reg.Pattern = "(\d+,?\d*)"

Tabi bu desen farklı verilerde doğru sonuç vermeyebilir. Dosyanızdaki verilerde doğru sonuç verdi.

Üstadım reg.Pattern = "[\d,.]+(?:\.|,)\d{2}(?=\$|€)" bahsettiğiniz deseni reg.Pattern = "(\d+,?\d*)" ile değiştirdim malesef yine sonuç vermedi.
Not: Birde dövizli açıklamalarımdaki para birimi $ ile ibaret değil yeri geliyor € da olabiliyor.

 

[Korhan Ayhan]

Paylaştığınız dosyada fonksiyonun kendisi yok. Ne gibi bir sorun yaşıyorsunuz?

 

[Bintang]

Paylaştığınız dosyada fonksiyonun kendisi yok. Ne gibi bir sorun yaşıyorsunuz?

Üstadım günaydın;
Hata veren dosyayı yüklüyorum.
Üstadım Yapmak İstediğim. D Sütununda açıklama da yazılı olan $/€ Tutar E Sütunu Doluysa G Sütununa, Boş İse F Sütunu Doluysa H Sütuna atmasını istiyorum

 

[Bintang]

Üstadlar acil ihtiyaçım var bana bu konuda yardımlarınızı rica ederim.

 

[kulomer46]

Değerli Arkadaşım

Talebiniz hazır.

Selamlar...

Ekran Resmi

 

[Bintang]

Değerli Arkadaşım

Talebiniz hazır.

Selamlar...

Ekran Resmi
Ekli dosyayı görüntüle 235846

Üstadım ellerinize sağlık. Çok teşekkür ederim.

 

[kulomer46]

Tekrar Merhaba

Yukardaki #7 numaralı mesajdaki dosyanın daha geliştirilmiş hali Ek 'tedir.

Ekli dosyada Kullanıcı Tanımlı Fonksiyon ile D sütununda Açıklama metni içindeki en son sayı grubu, Borç yada Alacak durumuna gör G yada H sütunlarına alınmaktadır.

Selamlar...

Ekran Resmi

 

[kulomer46]

Üstadım ellerinize sağlık. Çok teşekkür ederim.

Değerli yorumunuz için teşekkürler

Selamlar...

 

[Korhan Ayhan]

Altenatif;

Option Explicit

Function GetMoney(Rng As Range) As Double
    Application.Volatile True
    With CreateObject("VBScript.RegExp")
        .Pattern = "([0-9.,]+[€$])"
        GetMoney = IIf(.Test(Rng), Replace(Replace(Replace(.Execute(Rng)(0), ".", ""), "$", ""), "€", ""), 0)
    End With
End Function

 

[assenucler]

Sn. Korhan Ayhan üstadımın Getmoney fonksiyonunu nasıl çalıştıracağıma ilişkin bilgi verir misiniz?

Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Önce doysanıza boş bor modül ekleyin.
GetMoney kodlarını bu modülü kopyalayın.
Dosyanızı makro içeren excel çalışma kitabı biçiminde kayıt edin.
Sonra excel çalışma sayfasına dönün.
Boş bir hücreye =GetMoney(A1) şeklinde fonksiyonu uygulayın.

A1 yerine siz metin sayı karışımı içeren hücre adresini yazmalısınız.

 

[assenucler]

Allah'ım sizden razı olsun Sn. Korhan Ayhan üstadım.
Hayırlı Ramazanlar.

Selam ve sevgilerimle.

Saygılar,
Selim

 

[assenucler]

Değerli Dostlar,

Resimdeki DEĞER hatasını nasıl düzeltirim?
Teşekkürler.

 

[assenucler]

Merhabalar ve hayırlı pazarlar.

Yukarıdaki resimde de görüleceği gibi boş satırlar olduğunda #DEĞER! hatası almaktayım.
Bu hata nasıl düzeltilebilir?

 

[Korhan Ayhan]

EĞERHATA fonksiyonu ile bu hatayı kontrol edebilirsiniz.

 

[assenucler]

Değerli Üstadım,


Önerdiğinizi fonksiyon ile çözüme ulaştım.
Sağ olun, var olun.

Saygılar,
Selim