Hücreden para birimi seçerek hücrelere uygulamak

Katılım
4 Ocak 2021
Mesajlar
4
Excel Vers. ve Dili
ms office 2007
aynı sayfada bulunan farklı hücrelerde ki para birimlerini sayfanın üst tarafına TL,EURO,DOLAR kutucuğu ekleyip seçilen o hücrelerin tek tıkla para birimlerinin değişmesini nasıl yaparız
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,235
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Linki inceleyiniz.


Ek olarak konu başlığınızda çok genel (Makro) bir ifade kullanmışsınız. Konu başlığınızı okuyan kişi ne konuda yardım istediğinizi anlayacak şekilde başlıklar tercih etmelisiniz.

Bu seferlik ben düzeltiyorum. Lütfen bu kurala dikkat ediniz.
 
Katılım
4 Ocak 2021
Mesajlar
4
Excel Vers. ve Dili
ms office 2007
Linki inceleyiniz.


Ek olarak konu başlığınızda çok genel (Makro) bir ifade kullanmışsınız. Konu başlığınızı okuyan kişi ne konuda yardım istediğinizi anlayacak şekilde başlıklar tercih etmelisiniz.

Bu seferlik ben düzeltiyorum. Lütfen bu kurala dikkat ediniz.
Yardımınız için teşekkür ediyorum lakin vermiş olduğunuz linkte ki örneklere ben bakamıyorum
abonelik durumundan dolayI,

örnekte olduğu gibi yukardaki para birimlerine tıklayınca seçeceğim tüm hücrelerde ki rakamların para birimlerinin tek tıkla değişmesi mümkü mü? aceba döviz kuru ile falan işim yok sadece para simgesi değişsin yeter yardımcı olursanız sevinirim...iyi çalışmalar...
 

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
@idris Bey bu biçimi uygulatma mantığını belirtebilir misiniz?
Teşekkürler.
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
Yardımcı hücre kullanmadan alternatifiniz olsun.

C++:
Private Sub CommandButton1_Click()
Range("E5:E10").NumberFormat = "#,##0.00 [$TL]"
End Sub

Private Sub CommandButton2_Click()
Range("E5:E10").NumberFormat = "#,##0.00 [$EU]"
End Sub

Private Sub CommandButton3_Click()
Range("E5:E10").NumberFormat = "#,##0.00 [$USD]"
End Sub
 
Üst