hücrenin başındaki sıfır ve boşlukları silme

[korki]

arkadaşlar merhaba bir hücrenin başındaki sıfır ve boşlukları silme için bir örnek yazabilirmisiniz rica etsem...

 

[Necdet]

Merhaba,

Bir örnek verir misiniz?

 

[korki]

alt alta aynı hücredeki mesala 0 532 211 28 27 bu örnekte numaraının başındaki sıfırı ve boşlukları nasıl silerim

 

[Necdet]

Ctrl H, yani bul değiştir den aranana Bir boşluk, değiştirileceğe hiç bir şey yazmayın ve tamam deyin.

Boşluklar silindikten sonra otomatik olarak başındaki sıfırda kalkar.

 

[korki]

05552071844 peki bu şekilde yazanın başından sıfırı nasıl atarım

 

[korki]

arada boşluk olmayan numaranın 05552071844 başından sıfırı atarım...

 

[Necdet]

Rakam olarak biçimlendirirseniz baştaki sıfırın kalması gerek

Eğer hücre, özel hücre biçimlerinde 00000000000 olarak biçimlendirilmemişse.

 

[korki]

hocam başındaki sıfırı silmek istiyorum ben numaranın...

 

[korki]

birtürlü yapamadım numara birleşik başında sıfır olunca yapamıyorum...

 

[Necdet]

Siz örnek bir dosya ekler misiniz?
Dosyayı görmeden ahkam kesiyoruz, belki hücre metin olarak biçimlenmiştir vs vs vs .

Gerekirse formül yazılır, gerekirse makro, gerekirse de menülerle de yapılabilir.

Ama dosyayı görmek gerek.

 

[korki]

sıfır silme

dosya ekte başındaki sıfırı silicem...

 

[Necdet]

Merhaba,

Gönderdiğiniz dosyada A sütunundaki değerlerin başında Tek tırnak var. Dolayısıyla xl bunu metin olarak algılıyor.

2 yöntemle sorunuz çözülebilir.

• Değerleri seçtiğinizde xl size bunların metin olarak düzenlendiğini, rakama çevireyim mi diye sorar (hücreleri seçtiğinizde aşağı bir ok açılır, o oka basınca seçenekleri görürsünüz)
• Diğer yöntem başka bir hücreye 0 yazarsınız. O hücreyi Kopyala sonra A sütunundaki hücreleri seçip Özel Yapıştırdan Ekleyi seçip Tamam dersiniz.

 

[fullblack]

Private Sub CommandButton1_Click()
For i = 1 To 10
Range("B" & i) = Mid(Range("B" & i), 1, 10)
Next

End Sub

yapcağın işleme göre düzenleyip kullanabilirsin

 

[fullblack]

örnek ek.

Private Sub CommandButton1_Click()
For i = 1 To 10
Range("B" & i) = Mid(Range("B" & i), 1, 10)
Next

End Sub

 

[netameli]

arkadaşlar hücreleri biçimlendir sekmesinde sayı 1000 ayıracı ve virgülden sonra 2 seçeneğini çok kullanıyorum bunu bir düğmeye görev olarak ekleyip araç çubuğuna nasıl yerleştiririm?

 

[CoRd]

Merhaba,

Bende aynı şekilde hücrenin başındaki sıfırları silmeye çalışıyorum fakat bendeki verilerde sadece sayı yok harf de var bu nedenle yukarıda önerilenler işe yaramıyor. Ne tavsiye edersiniz?

Örnek dosya ektedir.

Şimdiden teşekkürler

 

[TaLaY]

Sağındaki hücreye =Sayıyaçevir(HücreNo) formülünü yazarak deneyin

 

[CoRd]

Teşekkürler fakat hücrenin içerisinde harf de olduğu için #DEĞER! hatası veriyor.