m harfi yazınca otomatikmen 6 sıfırla çarpsın istiyorum

[kmgxers]

arkadaslar excel de istediğim sütündaki her hangi bir hücreye rakam ve yanına "m" yazdıgım anda 6 sıfırla carpmasını istiyorum.
örnekle acıklayacak olursam 6m yazdıgım anda hücrede 6.000.000 çıksın istiyorum. nasıl yapabilirim? yardımcı olabilecek herhangi birisi var mı?

 

[RFspur]

Merhaba, örnek dosya koymamışsınız ama anladığım kadarıyla bir örnek ekledim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

A sütunu için geçerlidir.

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Right(Target, 1) = "m" Then Target = Replace(Target, "m", "000000") + 0
Application.EnableEvents = True
Son:
End Sub

 

[Erdem Akdemir]

excel'de sıfır eklemenin kısayolu vardı

bir zamanlar aklımda vardım ama unuttum

aklında olan varsa yazabilir mi?

 

[uzmanamele]

excel'de sıfır eklemenin kısayolu vardı

bir zamanlar aklımda vardım ama unuttum

aklında olan varsa yazabilir mi?

merhaba

bu işinizi görür mü?

#".000.000"

 

[Ömer]

excel'de sıfır eklemenin kısayolu vardı

bir zamanlar aklımda vardım ama unuttum

aklında olan varsa yazabilir mi?

Merhaba,

Araçlar / Seçenekler / Düzen menüsünden " Sabit Ondalık " seçeneğini işaretleyerek Basamak sayısını -6 olarak değiştiriniz.

Bahsettiğiniz konu bu olabilir mi?

.

 

[Erdem Akdemir]

Merhaba,

Araçlar / Seçenekler / Düzen menüsünden " Sabit Ondalık " seçeneğini işaretleyerek Basamak sayısını -6 olarak değiştiriniz.

Bahsettiğiniz konu bu olabilir mi?

.

klavyeden girerken yapılıyordu

ek bir düzenleme yada seçenek belirtmeye gerek yoktu

aklımda öyle kalmış, belkide ben yanlış hatırlıyorum

sizlere rahatsızlık vermiyim şimdi

 

[Erdem Akdemir]

nasıl yapıldığını hatırladım

excel'de yazacağınız sayısının sıfırsız kısmını yazıyorsunuz

saha sonra iki tane ** işareti koyup kaç tane sıfır istiyorsanız onu yazıyorsunuz

mesala 15**6 yazarsanız

15.000.000 yazar

 

[uzmanamele]

nasıl yapıldığını hatırladım

excel'de yazacağınız sayısının sıfırsız kısmını yazıyorsunuz

saha sonra iki tane ** işareti koyup kaç tane sıfır istiyorsanız onu yazıyorsunuz

mesala 15**6 yazarsanız

15.000.000 yazar

merhaba

15E6

gibi mi

not:
5. mesaj yinede yerinde dursun!

 

[Erdem Akdemir]

merhaba

15E6

gibi mi

not:
5. mesaj yinede yerinde dursun!

ikiside aynı işi yapıyor

çift yıldız koyulan sayısal klavye'den hızlı şekilde veri girişini sağlar

gerçi liradan altı sıfır atıldıktan sonra pek önemi kalmadı

hatta ben nasıl yapıldığını bile unutmuştum

 

[mami68]

Merhabalar...

bir örnekte bizden olsun,belki bu olabilir.
A1=6m
B1=

=EĞER(A1="";"";SOLDAN(A1;1)&".000.000")

iyi çalışmalar

 

[Orion1]

Bende bir formül vereyim bari.
=--YERİNEKOY(A1;"m";"000000")

 

[uzmanamele]

merhaba

eğer yerinekoy kullanılacaksa en kısası bu olsa gerek.

6000000

sıfırları kendim yerine koyarım

 

[kmgxers]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

A sütunu için geçerlidir.

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Right(Target, 1) = "m" Then Target = Replace(Target, "m", "000000") + 0
Application.EnableEvents = True
Son:
End Sub

Kesinlikle istediğim buydu.

Necdet bey çok teşekkür ederim. Sizin sayenizde işlerimde artık 0 ları saymak zorunda kalmayacağım

 

[kmgxers]

bu arada diğer cevap yazan arkadaslara da tesekkur ederim..

 

[Necdet]

Güle güle kullanınız.

 

[Necdet]

Tekrar merhaba,

Önceki mesajımda kontrol yapmadan yanıt vermiştim, şimdi gerekli kontrolleri de yaptım.
Ayrıca milyon, bin ve yüz lü olasılıkları da ekledim, sözcüğün sonu m, b ya da y (Milyon, Bin, Yüz) olsa bile önceki kısım rakam değilse işlem yapmıyor.


Yine aşağıdaki kodlar ilgili sayfanın kod bölümünde olmalı ve A sütunu için geçerlidir, siz sütünları kendinize göre ayarlayabilirsiniz.

Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Dim Uzunluk As Integer
Uzunluk = Len(Target.Value) - 1
If Right(Target, 1) = "m" And IsNumeric(Left(Target.Value, Uzunluk)) = True Then
    Target = Replace(Target, "m", "000000") + 0
ElseIf Right(Target, 1) = "b" And IsNumeric(Left(Target.Value, Uzunluk)) = True Then
    Target = Replace(Target, "b", "000") + 0
ElseIf Right(Target, 1) = "y" And IsNumeric(Left(Target.Value, Uzunluk)) = True Then
    Target = Replace(Target, "y", "00") + 0
End If
Application.EnableEvents = True
Son:
End Sub