Para Birimi Makrosuna ilave eklenti

altan888

Altın Üye
Katılım
15 Şubat 2008
Mesajlar
348
Excel Vers. ve Dili
Excel 2016 TR
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
O satır bilgilendirme satırıdır.... Başındaki tırnak işaretini kaldırmayın.

.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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
Katılım
30 Temmuz 2012
Mesajlar
3,580
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Çok özür diliyorum. Ekli örnekte çalıştıramadım.
Saygılarımla
 

Ekli dosyalar

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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
Katılım
30 Temmuz 2012
Mesajlar
3,580
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Çok teşekkür ederim Haluk hocam.
Önce seçip, sonra rakam koyacakmışım.
Saygılarımla
 

altan888

Altın Üye
Katılım
15 Şubat 2008
Mesajlar
348
Excel Vers. ve Dili
Excel 2016 TR
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
Katılım
15 Şubat 2008
Mesajlar
348
Excel Vers. ve Dili
Excel 2016 TR
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
Katılım
15 Şubat 2008
Mesajlar
348
Excel Vers. ve Dili
Excel 2016 TR
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.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Ö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
Katılım
15 Şubat 2008
Mesajlar
348
Excel Vers. ve Dili
Excel 2016 TR
Ö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