Telefon Numarası Formatı

[zeugma35]

Üstadlarım Kolay gelsin

B sütününda sırasıyla 2124557898 - 02124356869 gibi telefon numaraları mevcut

İstediğim bunların formatını değiştirmek

ÖRN : XXXX XXX XX XX şeklinde olması ve başında sıfır yoksa başına 0 da getirebilmek

yardımcı olabilirseniz sevinirim

 

[PLİNT]

Merhaba

Herhalde metin olarak görünüyor;

Sub değiş()
For a = 2 To Cells(Rows.Count, "B").End(3).Row
Cells(a, "B") = CDbl(Cells(a, "B"))
Cells(a, "B").NumberFormat = "0### ### ## ##"
Next
End Sub

değilse;
Hücreleri biçimlendir\isteğe uyarlanmış;
Parentez içini ekleyin
(0### ### ## ##)
veya

Sub değiş()
Columns("B:B").NumberFormat = "0### ### ## ##"
End Sub

Şeklinde deneyiniz

 

[zeugma35]

Üstadım sağolun listemde 2123659878-79-80 gibi numaralarda var bunların sonundaki -79-80 numaraları silip formatlamayabilirmi

 

[PLİNT]

Üstadım sağolun listemde 2123659878-79-80 gibi numaralarda var bunların sonundaki -79-80 numaraları silip formatlamayabilirmi

Aşağıdaki gibi deneyelim;

 [SIZE="2"]Sub değiş()
On Error Resume Next
For a = 2 To Cells(Rows.Count, "B").End(3).Row
If Cells(a, "B") <> "" Then
s = UBound(Split(Cells(a, "B"), "-"))
If s > 0 Then Cells(a, "B") = Split(Cells(a, "B"), "-")(0)
Cells(a, "B") = CDbl(Cells(a, "B"))
Cells(a, "B").NumberFormat = "0### ### ## ##"
End If
Next
End Sub [/SIZE]

 

[Asri]

Üstadım sağolun listemde 2123659878-79-80 gibi numaralarda var bunların sonundaki -79-80 numaraları silip formatlamayabilirmi

Alternatif; aşağıdaki excel eklentisi ile yapılabilir.

Excel / Sağ tuş/ özel işlemler/ kolonu seç / telefon numaraları dan makrosuz formülsüz düzenleme yapabilirsiniz.


http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219.html