girilen rakamın son iki karakterini kuruş yapsın

[abcd_efe]

arkadaşlar e2 hücresine rakam girdiğimde girilen rakamın son iki karakterini noktayla ayırarak kuruş yapsın istiyorum.

örneğin e2 hücresine 5675698 yazıp başka hücreye geçtiğimde bu rakam 56756,98 şekline dönüşsün istiyorum. tabi tl kısmında binler basamakları da nokta ile ayrılsa çok daha iyi olur.

ben forumdan aşağıdaki kodu değiştirerek bişeyler yapmaya çalıştım ama olmadı. yardımcı olursanız sevinirim. şimdiden teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim blg As Range
If Target.Count > 1 Then Exit Sub
Set blg = Range("e2")
If Intersect(Target, blg) Is Nothing Then Exit Sub
If Len(Target) > 1 Then
If InStr(Target, ".") = 0 Then Target = "." & Right(Target, 2)
End If
End Sub

 

[Orion1]

100 e bölün.

 

[uzmanamele]

merhaba
Evren bey çok basit şekliyle ifade etmiş ama ben başka bişey söyleyeyim.
15025 yazıp bunu kod ile 150,25 yapmaya çalışmanın ne gereği var, bunu yazarken araya , (virgül) koymak çok mu zor!?
bunu kod ile yapmaya çalışmanızın gerekçesini merak ettim açıkcası.

 

[Erdem Akdemir]

hücre biçimlendirden denedim ama olmadı

sayın uzmanamele'ye katılıyorum

bu kadarda kasmanın bir anlamı yok

 

[Necdet]

Merhaba,

Bunu xl yi yazan arkadaşlar düşünmüş, e onlar düşünmüşse bize de kullanmak gerek ama :

Ne kadar mantıklı bilmiyorum

hücre(ler)i 2 hane kusuratlı olarak biçimlendirin.

araçlar / seçenekler / düzen menüsünden Sabit ondalık seçeneğindeli celtiği işaretleyerek Basamak sayısını 2 olarak düzenleyiniz

1025 yazdığınızda hücre değeri otomatik olarak 10,25 olacaktır.

 

[Korhan Ayhan]

Selamlar,

Elinize sağlık Necdet bey. Kullanılmayan bir özelliği bize hatırlattınız.

 

[Necdet]

Evet Korhan bey,

Bir zamanlar Vergi İadesi için giriş yaparken çok kullanmıştım

 

[abcd_efe]

Teşekkür ederim Necdet Bey.
Merak eden arkadaşlara: klavyeye bakmadan ardı ardına rakam girişi yaparken virgüle bastığımda klavyeye tekrar bakmam gerekiyor ve hız ve zaman kaybı yaşıyorum onun için

 

[mekist]

Nezdet Bey elinize sağlık,
çok kullanışlı bir bilgi oldu,

 

[abcd_efe]

Necdet Bey tarif ettiğiniz değişikliği yaptıktan sonra bu özellik tüm excel dosyaları için geçerli oldu. ben sadece tek bir excel dosyamda bu özelliği kullanmak istiyorum. bunun için yine macro mu gerekli?

 

[Ali]

A sütunu için

Dim ilk
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target = 0 Then Exit Sub
If ilk = Target Then Exit Sub
If Target.Column = 1 Then
ilk = Target / 100
Target = ilk
End If
End Sub

 

[Necdet]

Merhaba,

Alternatif

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Sabit Ondalık Seçeneği KAPALI" Then
    Application.FixedDecimal = True
    CommandButton1.Caption = "Sabit Ondalık Seçeneği AÇIK"
Else
    Application.FixedDecimal = False
    CommandButton1.Caption = "Sabit Ondalık Seçeneği KAPALI"
End If
End Sub

 

[abcd_efe]

Arkadaşlar hepinize teşekkür ederim. Ali bey sizin makronuz aradığım şeye çok yakın. Ancak girilen sayının son iki harfini (kuruş kısmını) virgül ile ayırıyor. nokta ile ayırması için makroyu nasıl değiştirmem gerekiyor

 

[Necdet]

Arkadaşlar hepinize teşekkür ederim. Ali bey sizin makronuz aradığım şeye çok yakın. Ancak girilen sayının son iki harfini (kuruş kısmını) virgül ile ayırıyor. nokta ile ayırması için makroyu nasıl değiştirmem gerekiyor

Neden nokta?