Para Birimi

[cbkmutlu]

A1 de yazan 10 yazan rakamı eğer A2 EURO yazıyor sa 10€ olarak nasıl EXEL Para birimine göre biçimlendirebilirim?

A2 de yazan değer değişebilir. EURO TL USD gibi.

Yardımlarınız için teşekkürler

 

[maliex]

If Range("A2") = "USD" Then

Range("A1").NumberFormat = "[$$-409]#,##0"

End If

If Range("A2") = "EURO" Then
Range("A1").NumberFormat = "[$€-2]#,##0"

End If



If Range("A2") = "TL" Then
Range("A1").NumberFormat = "#,##0 [$TL]"

End If

 

[cbkmutlu]

Peki bu kodu, A1 e rakamı yazıp hücre değeri değiştikten sonra nasıl aktif edebilirim?

 

[maliex]

üstadlar daha pratik varsa lütfen bildirin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub

If Range("A2") = "USD" Then

Range("A1").NumberFormat = "[$$-409]#,##0"

End If

If Range("A2") = "EURO" Then
Range("A1").NumberFormat = "[$€-2]#,##0"

End If



If Range("A2") = "TL" Then
Range("A1").NumberFormat = "#,##0 [$TL]"

End If
End Sub

 

[besen]

Merhaba bu makro tek bir hücredeki, verinin para birimini değiştiriyor. Bunu benim belirleyeceğim aralıklara göre uygulamak için nasıl bir değişiklik yapmak gerekir.
Örneğin,
C5:C16 arası - C22:C30 arası
D5: D40 arası gibi
Teşekkür ederim.

 

[Korhan Ayhan]

Peki hangi aralığa hangi para birimi uygulanacak?

 

[besen]

Tabii bu haklı sorunun birden fazla cevabı olabilir. Benim isteğimde, örneğin C1 alanında bir para birimi seçeceğim, o para birimi seçilmiş alanların hepsine uygulansın.
Teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Alan As Range
   
    If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub
   
    Set Alan = Union(Range("C5:C16"), Range("C22:C30"), Range("D5:D40"))
   
    Alan.NumberFormat = "#,##0.00" & """ " & Target & """"
End Sub

 

[besen]

Para birimine duyarlı olan format neresi?
TL, EUR, USD ile ilgili makroda bir tanım göremedim.

 

[Korhan Ayhan]

Dosya ekledim. Oradan kontrol edebilirsiniz.

 

[besen]

Siz seçeneğe para biriminin sembolünü koymuşsunuz.
Benim tablomda TL, EUR, USD yazılı. Çünkü hesaplamalar buna göre yapılıyor. Sembol değil de bu şekilde para birimi olabilir mi?

 

[Korhan Ayhan]

Doğrulama menüsünü yandaki sütuna göre alırsanız o şekilde de çalışacaktır.

 

[besen]

Bu makro devre dışı mı kaldı?

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Alan As Range

If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub

Set Alan = Union(Range("C5:C16"), Range("C22:C30"), Range("D540"))

Alan.NumberFormat = "#,##0.00" & """ " & Target & """"
End Sub

 

[Korhan Ayhan]

C1 hücresindeki doğrulama menüsü listeyi L1:L5 hücrelerinden alıyor. Siz bunu M1:M5 olarak düzeltin. Bu aralığa da kullandığınız para birimlerini yazınız. Dilerseniz hücre aralığını genişletebilirsiniz.

Sonrasında C1 hücresinde değişim yaptıkça kod görevini yapacaktır.

 

[besen]

Dosyaya bir bakın, daha kolay olacak.

 

[besen]

Sarı alanlar, para biriminden etkilenecek alanlar.

 

[Korhan Ayhan]

Benim önerdiğim kod nerede?

 

[besen]

Karıştırdım sanırım. Son gönderdiğim örnek tablosuna uygular mısınız?
Teşekkür ederim.

 

[Korhan Ayhan]

Kendiniz uygulayın ki öğrenebilin.

Bu işlemi yapacağınız sayfanızın ismi üzerinde sağ tıklayın ve kod görüntüle dedikten sonra açılan beyaz pencereye önerdiğim kodu uygulayın.

Sonra dosyanızı "Makro içerebilen excel dosyası" biçimiyle kayıt edin.

sonra excel sayfasına dönüp C1 hücresinden para birimi seçip sonucu gözlemleyin.

 

[Korhan Ayhan]

Ek olarak konuyla bağlantılı olarak linki incelemenizi öneririm.

https://www.excel.web.tr/threads/sayfaya-ait-kodlar-ve-uygulama-yoentemleri-resimli-anlatim.57064/