Telefon Numaralandırma

[orkosko]

Arkadaşlar günaydın,

b1 hücresinde 2164677530 bu şekilde bir telefon numarası var.
b2 hücresinde de 0216 544 44 44 nolu telefon nosu var

b1 stünunu araştrıp düzgün olmayanları bunları b2 hücresinde yazılan formata getirecek formül olarak ne kullanabilirm ?

 

[Ömer]

Merhaba,

Olması gereken verinin değişmesi mi yoksa sadece biçiminin değişmesi mi?

 

[orkosko]

biçiminin değişmesi yani 2164677530 yı alacak 0216 467 75 30 yapacak

 

[Ömer]

Sırası ile uygulayın.

A sütunu seçin, ctrl h ( bul değiştir ) menüsüden Aranan: bölümüne klavye ile bir boşluk bırakıp tümünü değiştir butonuna basın ve menüyü kapatın.

Daha sonra A sütunu seçili iken seçili alanda sağ klik yapın / 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.

.

 

[orkosko]

Teşekkür ederim ben formülle yapılacağını düşünmüştüm.

 

[Murat OSMA]

Ömer Bey'in çözümünü şu kod ile de yapabilirsiniz;

[SIZE="2"]Sub Emre()
    Dim i As Integer
    For i = 1 To Range("A65536").End(3).Row
    Cells(i, 2) = Format(Cells(i, 1), "0000 000 00 00")
    Next i: i = Empty
End Sub[/SIZE]

 

[cetins58]

(000) 000 000 00 de altarnatif olabilir.