tablodaki tüm sayıların sonuna bir sıfır eklemek

[trlizard]

merhaba,
tablodaki tüm rakamların sonuna 1 adet sıfır eklemek istiyorum.
örneğin 34 ü 340 yapmak istiyorum.

teşekkürler...

 

[uzmanamele]

merhaba
dosya ekleseniz daha iyi olurdu
A1 de 34 varsa
=A1&0 veya =birleştir(a1;0) gibi olabilir
0"0" şeklinde özel sayı biçimi de uygularsınız ama bunda görüntü var, ses yokdur.

 

[Necdet]

Merhaba

Makrolu çözüm

Sub SifirEkle()
For Each Hücre In ActiveSheet.UsedRange
    If IsNumeric(H&#252;cre) And H&#252;cre <> "" Then H&#252;cre.Value = H&#252;cre * 10
Next H&#252;cre
End Sub

Eğer tüm sayfada değil de belli bölümde bu işlem olacaksa yukarıdaki
ActiveSheet.UsedRange i Selection olarak değiştiriniz. Bu durumda Önce Seçip Sonra Makroyu Çalıştırınız.

 

[trlizard]

dosyayı ekledim.

 

[Necdet]

Dosyanız ekte.

Sub SifirEkle()
For Each Hücre In ActiveSheet.UsedRange
    If IsNumeric(Hücre) And Hücre <> "" Then Hücre.Value = Hücre * 10
Next Hücre
End Sub

 

[Necdet]

Merhaba,

boş bir hücreye 10 yazıp (örneğin F1 hücresine) :

• F1 Hücresini Kopyala
• B2:C7 Aralığını Seç
• Sağ Tuş
• Özel Yapıştır
• Çarp
• Tamam

 

[Mdemir63]

Merhaba,

Eğer Sayılarınız hep 2 karakter uzunluğunda ise herhangi bir formül yada makro yazmadan da sayılarınızın sonuna 0 ekleme şansınız var.

Sayılarınız 2 uzunlukta ise boş bir hücreye 100, 3 uzunlukta ise 1000 yazıp (örneğin F1 hücresine) :

• F1 Hücresini Kopyala
• B2:C7 Aralığını Seç
• Sağ Tuş
• Özel Yapıştır
• Topla
• Tamam

Selamlar Necdet Abi
Yukarıdaki Topla yerine Çarp olması gerekmiyor mu? Çünkü topla dediğimizde başlarına 1 koyuyor

Saygılar abi

 

[parsley2]

sn trlizart sıfır eklemek istediğiniz sayıları 10 ile çarpmak sorununuzu giderir sanırım.

 

[Necdet]

En kısa yolu Sayın parsley2 söyledi, ben nasıl düşünmedim?

 

[Necdet]

Selamlar Necdet Abi
Yukarıdaki Topla yerine Çarp olması gerekmiyor mu? Çünkü topla dediğimizde başlarına 1 koyuyor

Saygılar abi

Komutanım en doğrusu 10 ile çarpmak olacaktı, ama düşünemedim, sıcaklardan olsa gerek

 

[uzmanamele]

merhaba
syn Necdet Yeşertener,
ikimizinde tatile ihtiyacı var

 

[Necdet]

Kesinlikle

 

[Necdet]

Merhaba,

Bütün sakıncalı mesajlarımı düzelttim