• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Para Birimi Makrosuna ilave eklenti

altan888

Altın Üye
Altın Üye
Katılım
15 Şubat 2008
Mesajlar
245
Beğeniler
0
Excel Vers. ve Dili
Excel 2016 TR
#1
Merhabalar, aşağıdaki TL format para birimi makrosunun içine $ , € , ₤ para birimlerinin de eklenmesi konusunda yardımlarınızı rica ediyorum. Şimdiden çok çok teşekkürler.

Kod:
Sub Format_TL()
'
' Format_TL Macro
'
' Keyboard Shortcut: Ctrl+t
'
Selection.Style = "Currency"
End Sub
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
6,563
Beğeniler
258
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#2
Klavye kısa yollarını da kodlarda belirtildiği gibi ayarlarsanız, rahat edersiniz...

Kod:
Sub Format_TL()
'
' Format_TL Macro
'
' Keyboard Shortcut: Ctrl+t
'
Selection.Style = "Currency"
End Sub
'
Sub Format_USD()
'
' Format_USD Macro
'
' Keyboard Shortcut: Ctrl+d
'
Selection.NumberFormat = "#,##0.00 [$USD]"
End Sub
'
Sub Format_EUR()
'
' Format_EUR Macro
'
' Keyboard Shortcut: Ctrl+e
'
Selection.NumberFormat = "#,##0.00 [$EUR]"
End Sub
'
Sub Format_GBP()
'
' Format_USD Macro
'
' Keyboard Shortcut: Ctrl+p
'
Selection.NumberFormat = "#,##0.00 [$GBP]"
End Sub
.
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
6,563
Beğeniler
258
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#4
O satır bilgilendirme satırıdır.... Başındaki tırnak işaretini kaldırmayın.

.
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
6,563
Beğeniler
258
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#5
O kodların bulunduğu modüle aşağıdaki Auto-Open ve Auto_Close makrolarını da ilave ederseniz, dosyayı kaydedip kapattıktan sonra tekrar açınca söz konusu makro kısa yolları otomatik olarak ilgili makrolara atanır.

Kod:
Sub Auto_Open()
    Application.OnKey "^t", "Format_TL"
    Application.OnKey "^d", "Format_USD"
    Application.OnKey "^e", "Format_EUR"
    Application.OnKey "^p", "Format_GBP"
End Sub
'
Sub Auto_Close()
    Application.OnKey "^t", ""
    Application.OnKey "^d", ""
    Application.OnKey "^e", ""
    Application.OnKey "^p", ""
End Sub
.
 

Tevfik_Kursun

Altın Üye
Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
1,413
Beğeniler
23
Excel Vers. ve Dili
2010 - Türkçe 64 Bit
#6
Çok özür diliyorum. Ekli örnekte çalıştıramadım.
Saygılarımla
 

Ekli dosyalar

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
6,563
Beğeniler
258
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#7
Dosyanızı açın, ilgili hücreyiseçin.

Daha sonra klavyeden,

Ctrl+t
veya Ctrl+p
veya Ctrl+d
veya Ctrl+e

tuşlayın...

.
 
Son düzenleme:

Tevfik_Kursun

Altın Üye
Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
1,413
Beğeniler
23
Excel Vers. ve Dili
2010 - Türkçe 64 Bit
#8
Çok teşekkür ederim Haluk hocam.
Önce seçip, sonra rakam koyacakmışım.
Saygılarımla
 

altan888

Altın Üye
Altın Üye
Katılım
15 Şubat 2008
Mesajlar
245
Beğeniler
0
Excel Vers. ve Dili
Excel 2016 TR
#9
Klavye kısa yollarını da kodlarda belirtildiği gibi ayarlarsanız, rahat edersiniz...

Kod:
Sub Format_TL()
'
' Format_TL Macro
'
' Keyboard Shortcut: Ctrl+t
'
Selection.Style = "Currency"
End Sub
'
Sub Format_USD()
'
' Format_USD Macro
'
' Keyboard Shortcut: Ctrl+d
'
Selection.NumberFormat = "#,##0.00 [$USD]"
End Sub
'
Sub Format_EUR()
'
' Format_EUR Macro
'
' Keyboard Shortcut: Ctrl+e
'
Selection.NumberFormat = "#,##0.00 [$EUR]"
End Sub
'
Sub Format_GBP()
'
' Format_USD Macro
'
' Keyboard Shortcut: Ctrl+p
'
Selection.NumberFormat = "#,##0.00 [$GBP]"
End Sub
.
Klavye kısa yollarını da kodlarda belirtildiği gibi ayarlarsanız, rahat edersiniz...

Kod:
Sub Format_TL()
'
' Format_TL Macro
'
' Keyboard Shortcut: Ctrl+t
'
Selection.Style = "Currency"
End Sub
'
Sub Format_USD()
'
' Format_USD Macro
'
' Keyboard Shortcut: Ctrl+d
'
Selection.NumberFormat = "#,##0.00 [$USD]"
End Sub
'
Sub Format_EUR()
'
' Format_EUR Macro
'
' Keyboard Shortcut: Ctrl+e
'
Selection.NumberFormat = "#,##0.00 [$EUR]"
End Sub
'
Sub Format_GBP()
'
' Format_USD Macro
'
' Keyboard Shortcut: Ctrl+p
'
Selection.NumberFormat = "#,##0.00 [$GBP]"
End Sub
.
Haluk Bey, yazdığınız makro gayet güzel çalışıyor, çok çok teşekkür ederim, elinize sağlık.
 

altan888

Altın Üye
Altın Üye
Katılım
15 Şubat 2008
Mesajlar
245
Beğeniler
0
Excel Vers. ve Dili
Excel 2016 TR
#10
O kodların bulunduğu modüle aşağıdaki Auto-Open ve Auto_Close makrolarını da ilave ederseniz, dosyayı kaydedip kapattıktan sonra tekrar açınca söz konusu makro kısa yolları otomatik olarak ilgili makrolara atanır.

Kod:
Sub Auto_Open()
    Application.OnKey "^t", "Format_TL"
    Application.OnKey "^d", "Format_USD"
    Application.OnKey "^e", "Format_EUR"
    Application.OnKey "^p", "Format_GBP"
End Sub
'
Sub Auto_Close()
    Application.OnKey "^t", ""
    Application.OnKey "^d", ""
    Application.OnKey "^e", ""
    Application.OnKey "^p", ""
End Sub
.
Haluk Bey, bu kodlarıda aynı modülün altına ekledim, exceli yeniden kapatıp açsamda, başka başka excel sayfalarında da makrolar sorunsuz şekilde çalışıyor, tekrar elinize sağlık, çok teşekkür ederim.
 

altan888

Altın Üye
Altın Üye
Katılım
15 Şubat 2008
Mesajlar
245
Beğeniler
0
Excel Vers. ve Dili
Excel 2016 TR
#11
O kodların bulunduğu modüle aşağıdaki Auto-Open ve Auto_Close makrolarını da ilave ederseniz, dosyayı kaydedip kapattıktan sonra tekrar açınca söz konusu makro kısa yolları otomatik olarak ilgili makrolara atanır.

Kod:
Sub Auto_Open()
    Application.OnKey "^t", "Format_TL"
    Application.OnKey "^d", "Format_USD"
    Application.OnKey "^e", "Format_EUR"
    Application.OnKey "^p", "Format_GBP"
End Sub
'
Sub Auto_Close()
    Application.OnKey "^t", ""
    Application.OnKey "^d", ""
    Application.OnKey "^e", ""
    Application.OnKey "^p", ""
End Sub
.
Haluk Bey Merhabalar Ctrl+p veya Ctrl+d dediğimizde exceldeki bu diğer kısayolları kullanamıyorum, sizden ricam Ctrl+t yerine Ctrl+Shift+t şeklinde kullanabilmem için yukarıda neleri değiştirmem gerekiyor, yardımlarınızı rica ediyorum, iyi günler dilerim.
 
Katılım
7 Temmuz 2004
Mesajlar
6,563
Beğeniler
258
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#12
Öncelikle 1 kereye mahsus, mevcut Auto-Close makrosunu çalıştırın ki; tuş kombinasyonlarına yaptığımız atamalar silinsin.

Daha sonra, " Ctrl+Shift+t "gibi çalıştırmak için kodlara aşağıda kırmızı ile belirtilen + işaretini ilave edin....

Rich (BB code):
Sub Auto_Open()
    Application.OnKey "+^t", "Format_TL"
    Application.OnKey "+^d", "Format_USD"
    Application.OnKey "+^e", "Format_EUR"
    Application.OnKey "+^p", "Format_GBP"
End Sub
'
Sub Auto_Close()
    Application.OnKey "+^t", ""
    Application.OnKey "+^d", ""
    Application.OnKey "+^e", ""
    Application.OnKey "+^p", ""
End Sub
.
 

altan888

Altın Üye
Altın Üye
Katılım
15 Şubat 2008
Mesajlar
245
Beğeniler
0
Excel Vers. ve Dili
Excel 2016 TR
#13
Öncelikle 1 kereye mahsus, mevcut Auto-Close makrosunu çalıştırın ki; tuş kombinasyonlarına yaptığımız atamalar silinsin.

Daha sonra, " Ctrl+Shift+t "gibi çalıştırmak için kodlara aşağıda kırmızı ile belirtilen + işaretini ilave edin....

Rich (BB code):
Sub Auto_Open()
    Application.OnKey "+^t", "Format_TL"
    Application.OnKey "+^d", "Format_USD"
    Application.OnKey "+^e", "Format_EUR"
    Application.OnKey "+^p", "Format_GBP"
End Sub
'
Sub Auto_Close()
    Application.OnKey "+^t", ""
    Application.OnKey "+^d", ""
    Application.OnKey "+^e", ""
    Application.OnKey "+^p", ""
End Sub
.
Haluk Bey, merhabalar, yazdıklarınızı uyguladım, makrolar sorunsuz şekilde çalışıyor, beni büyük bir yükten kurtardınız, çok teşekkür ederim.
 
Üst