HÜCREYİ PARA BİRİMİ YAPMAK

[turkanet]

ÖRNEK: A2, B4, E6 VE F2:F21 ARASI İKİ KURUŞ HANELİ ($9.256,34) AMERİKAN DOLARI OLSUN. MAKROYLA SABİT BU İŞLEMİ NASIL YAPTIRABİLİRİM?

TEŞEKKÜRLER.

 

[turkanet]

ARKADAŞLAR, CEVABI BİLEN BİR ARKADAŞ YOK MUYDU?

 

[szaim]

Kod:

Sub Makro1()
Range("A2,B4,E6,F2:F21").Select
Range("F2").Activate
Selection.NumberFormat = "[$$-409]#,##0.00"
Range("A1").Activate
End Sub

 

[turkanet]

MİNNETTARIM. PEKİ AYNI ŞEYİ EURO VE POUND İÇİN YAPMAK İSTERSEK NASIL OLUR?
TEŞEKKÜRLER...

 

[szaim]

Euro için kodun 4ncü satırına aşağida ki kodu yazın.
Poundun simgesini bilmiyorum bilen arkadaşlar varsa yardımcı olurlar..

Kod:
Selection.NumberFormat = "#,##0.00 [$€-1]"

 

[turkanet]

SN.SZAİM, MİNNETTARIM
€ SİMGESİNİ BAŞA ALMAK MÜMKÜN MÜ? (€ 1.265,05 GİBİ)

TEŞEKKÜRLER...

 

[szaim]

Kod:
Selection.NumberFormat = "[$€-2] #,##0.00"

Aynı kodun 4ncü satırına bu kodu yazın..

 

[turkanet]

ÇOK TEŞEKKÜR EDERİM SN.SZAİM...
ACABA POUND (GBP KODLARINI DA BİLEN BİR ARKADAŞ YOK MU?
ONU DA EKLERSEM, PROJEM TAMAMLANACAK...

ŞİMDİDEN TEŞEKKÜRLER...

 

[turkanet]

YANİ HÜCRE ÖNCEKİ ÖRNEKLERDEKİ GİBİ ₤4.521,12 GİBİ...

 

[mehmett]

Dolar ve Euro'yu yaptıktan sonra Pound'u da yapabilirsiniz Sn endorphin;

Selection.NumberFormat = "[$£-2] #,##0.00"

 

[turkanet]

pound simgesi ile rakam arasındaki boşluğu kaldırmak için kodu nasıl değiştirmeliyim? yani dolardaki gibi simge ile rakam arasında boşluk olmaması gerekiyor.

teşekkürler...

 

[turkanet]

TAMAM OLDU.
Selection.NumberFormat = "[$£-2] #,##0.00" KODUNUN ARASINDAKİ BOŞLUĞU KALDIRIP
Selection.NumberFormat = "[$£-2]#,##0.00" YAPINCA OLDU.
YARDIMCI OLAN TÜM ARKADAŞLARA SONSUZ TEŞEKKÜRLER...

 

[turkanet]

arkadaşlar, bu başlıkta sözü edilen işlemi;
"seçili ve seçili hücrenin 2 sağındaki hücreyi de aynı formatta yap"
işlemi için (ör:a1 ve a3) son verilen formülü nasıl genişletebiliriz?

teşekkürler

 

[abdi]

arkadaşlar, bu başlıkta sözü edilen işlemi;
"seçili ve seçili hücrenin 2 sağındaki hücreyi de aynı formatta yap"
işlemi için (ör:a1 ve a3) son verilen formülü nasıl genişletebiliriz?

teşekkürler

eğer doğru anladı isem kod aşağıdadır
fakat kod a1 hücresini kontrol ederek
sayı biçimlendirmesi yapmaktadır a1 hücresi boşsa biçimlendirme olarak

ActiveCell.Offset(0, 2).NumberFormat = " #,##0.00" yapmaktadır.

sanırım bu konuda üstadlardan farklı cevaplar gelecektir

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [a1] <> "" Then

ActiveCell.Offset(0, 2).NumberFormat = "[$£-2] #,##0.00"

Else:
ActiveCell.Offset(0, 2).NumberFormat = " #,##0.00"

Exit Sub

End If
End Sub

 

[turkanet]

teşekkür ederim.

 

[abdi]

sayın endorphinn, rica eder
çalışmalarınızda başarılar dilerim.

 

[redraw]

merhaba

arkadaşlar mesela bir hücrenin içinde "1254 7879 4561 0124" gibi bir sayı var ve bunun aralarındaki boşlukları kaldırıp "1254787945610124" yapmak istiyorum yardımcı olabilir misiniz?