Sayı biçimlendirme yardım?

[19ondokuz]

Merhaba, bir excel dosyasında yaklaşık 1000 adetten fazla telefon numarası var, her hücrede bir numara var, bütün numara formatı 021-632-15280 şeklinde bütün telefon numaralarını 0216 321 52 80 şeklinde toplu olarak değiştirebilirmiyim, bir çok yöntem denedim ama olmadı, numaranın başındaki sıfırın kalması gerekiyor.

Yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim.

Saygılar

 

[İhsan Tank]

Merhaba
Dosya ekler misiniz_?

 

[19ondokuz]

Hızlı cevabınız için teşekkür ederim, dosyanın aslını paylaşamayacağım ama aynı şekilde kısa bir örnek dosya paylaşabilirim, nasıl yapacağımı yönlendirebilirseniz çok sevinirim.

Saygılarımla

 

[Mustafa MUTLU]

Verilerini A2 sütununda olduğunu varsayarak.
B2 Sütununa
=BİRLEŞTİR(PARÇAAL(A2;2;2);PARÇAAL(A2;5;1);" ";PARÇAAL(A2;6;2);PARÇAAL(A2;9;1);" ";PARÇAAL(A2;10;2);" ";PARÇAAL(A2;12;2))

Bu Formülü yaz aşağıya doğru Veri Sayan kadar kopyala..
A1 den Başlıyorsa A2 leri A1 olarak Değiştir

 

[19ondokuz]

Verilerini A2 sütununda olduğunu varsayarak.
B2 Sütununa
=BİRLEŞTİR(PARÇAAL(A2;2;2);PARÇAAL(A2;5;1);" ";PARÇAAL(A2;6;2);PARÇAAL(A2;9;1);" ";PARÇAAL(A2;10;2);" ";PARÇAAL(A2;12;2))

Bu Formülü yaz aşağıya doğru Veri Sayan kadar kopyala..
A1 den Başlıyorsa A2 leri A1 olarak Değiştir

Dediğiniz gibi yaptım fakat numaranın başındaki sıfır kayboldu,
,Asıl yapmak istediğim Outlook telefon defterimde 1000 adetten fazla telefon numarasının biçimi XXX-XXX-XXXXX şeklinde değişti, telefon numaralarımın biçimini XXXX XXX XX XX şeklinde değiştirmek istiyorum. Bunun içinde outlook defterini excell e aktarıp düzenlemek istedim fakat beceremedim.

Saygılar

 

[İhsan Tank]

Hızlı cevabınız için teşekkür ederim, dosyanın aslını paylaşamayacağım ama aynı şekilde kısa bir örnek dosya paylaşabilirim, nasıl yapacağımı yönlendirebilirseniz çok sevinirim.

Saygılarımla

Merhaba
Boş bir module kopyalayın ve deneyin

Option Explicit
Sub telefon_düzelt_61()
Dim ts
For ts = 1 To Cells(65536, "A").End(xlUp).Row
Cells(ts, "A") = Replace(Cells(ts, "A"), "-", "")
Cells(ts, "A") = Replace(Cells(ts, "A"), " ", "")
Next
Range("A:A").NumberFormat = "0 000 000 00 00"
End Sub

Eki inceleyin

 

[Ömer]

021-632-15280 şeklinde bütün telefon numaralarını 0216 321 52 80 şeklinde toplu olarak değiştirebilirmiyim

Merhaba,

Alternatif olsun.

Eğer farklı sütunda yapacaksanız. Aşağıdaki formülü kullanın.

=METNEÇEVİR(YERİNEKOY(A1;"-";"");"0000 000 00 00")

Eğer aynı sütunda yapacaksanız. Aşağıdaki yolu izleyin.

A sütununu seçin ctrl h ( bul değiştir ) menüsü ile,

Aranan: bölümüne -

yazıp tümünü değiştir butonuna basın. Menüyü kapatmadan

Aranan: bölümüne klavye space tuşu ile bir boşluk bırakıp tümünü değiştir butonuna basın. Bu menüyü kapatın.

Alan seçili iken, seçili alanın herhangi bir bölümünde fare ile sağ klik/hücre biçimlendirme/isteğe uyarlanmıştan tür bölümüne;

0000 000 00 00

yazıp tamam ile işlemi bitirin.

.

 

[Mahir64]

Altarnatif olarak,

=METNEÇEVİR(YERİNEKOY(A1;"-";"");"0000 000 00 00")

Ömer bey kusura bakmayın cevabınızı görmemiştim.

 

[19ondokuz]

Merhaba
Boş bir module kopyalayın ve deneyin

Option Explicit
Sub telefon_düzelt_61()
Dim ts
For ts = 1 To Cells(65536, "A").End(xlUp).Row
Cells(ts, "A") = Replace(Cells(ts, "A"), "-", "")
Cells(ts, "A") = Replace(Cells(ts, "A"), " ", "")
Next
Range("A:A").NumberFormat = "0 000 000 00 00"
End Sub

Eki inceleyin

Ekte yolladığınız gibi liste oldu fakat listede gözüken sıfırlar detaylarda gözükmüyor, outlooğa attığım zamanda sıfırlar gözükmüyor.

Ayrıca Ömer beyin tarif ettiği gibi de olmadı

 

[Ömer]

Sorun değil Mahir bey. Hepimizin başına gelebiliyor.

İyi çalışmalar.

 

[19ondokuz]

Merhaba,

Alternatif olsun.

Eğer farklı sütunda yapacaksanız. Aşağıdaki formülü kullanın.

=METNEÇEVİR(YERİNEKOY(A1;"-";"");"0000 000 00 00")

.

Ömer bey belirttiğiniz gibi yapıp bir kaç aşama dan sonra değerleri kopyalayıp diğer formül sütunlarını silerek yapmayı başardım, yardımcı olan herkese çok teşekkür ederim. İş yoğunluğumdan ancak işim oldukça sitenizi ziyaret edebiliyorum, herkese başarılar dilerim.

Saygılarımla