Telefon Numaraları

[Karanlik1]

Arkadaşlar Merhaba,

Bi sütün dolusu 2121234569 şeklindeki telefon numaralarını 0212 123 45 69 şekline hücre biçimlendirden "0### ### ## ##" şeklinde özel biçimlendirme kullanmadan direk olarak nasıl çevirebiliriz ?

Yardımlarınız için teşekkürler..

 

[veyselemre]

Sub FormatCevir()
For x = 1 To [a65536].End(3).Row
    Set ver = Cells(x, 1)
    If Len(ver.Value) = 10 And IsNumeric(ver.Value) Then
        ver.Value = Format(ver.Value, "0000 000 00 00")
    End If
Next x
Set ver = Nothing
End Sub

 

[Merhum İdris SERDAR]

Nasıl yani?

A sütununda sütun başındaki A'tıklayın. Bütün sütun seçili geldikten sonra izlediğiniz yöntemde formatlayın. Böylece A:A sütununa girdiğiniz tüm sayılar istediğiniz biçimde şekilleneceklerdir.

Bunun dışında Özel'den Telefon numarası biçimlendirmeyi de kullanabiliersiniz.

Bir de bunlar macroya bağlanabilir.

Bir de yan sütunda formülle yapılabilir.



..

 

[Karanlik1]

Saolun veyselemre bey ellerinize sağlık...

Sn. yurttas bana biçimlerinin değil değerlerinin istediğim formatta olması lazımdı, onun için biçimlendirme kullanmadan yapmak istemiştim. Saolsun veyselemre beyin makrosu işimi gördü..