Butona tıkladığımda tel numaraları düzenlensin

[ersoyalan]

Ustarım merhaba,
Ekli dosyada Butona tıkladığımda karışık şekilde yazılmış olan telefon listesinin A8 hücresindeki gibi olmasını sağlıyabilirmiyiz.
Yardımcı olursanız sevinirim.

Syg,
E.ALAN

 

[ersoyalan]

Ustalarım konu hakkında yardımcı olurmusunuz.Benim için gerçekten önemli..
Syg,
E.ALAN

 

[3641]

Sayın ersoyalan
Ekli Dosyayı Denermisiniz Lütfen.

Makro Yerine Hücreleri Biçimlendir - Özel Biçimlendir Kullanılmıştır.

 

[Necdet]

Merhaba,

Bir deneyin bakalım olacak mı?

Sub Macro1()
Columns("A:A").Replace What:=" ", Replacement:=""
Columns("A:A").NumberFormat = "(000) 000-0000"
End Sub

 

[ersoyalan]

Hocam A1 hücresinden hariç bütün hücredeki numaralar istediğim gibi oluyor.
A1 hücresine bi el atsanız.

 

[ersoyalan]

3641 istediğim bu değildi..Bende yaklaşık 400 satırlık tel numaraları var hepsi karışık karışık yazılmış..Tek tıklamayla hepsini düzeltmek istiyorum..Necdet hocamın verdiği kod tam istediğim gibi fakat ufak bi sorun var.

 

[Ayhan Ercan]

Merhaba sn ersoyalan

A1 hücresine yazdığınız rakamı yeniden yazıp deneyiniz...

 

[3641]

Aşağıdaki Örneği Denermisin

 

[ersoyalan]

Ayhan hocam ve Necdet hocam şimdi tamamdır.Çok teşekkürederim.
3641 senin çalışmanıda arşime aldım çok teşekkürederim.Ellerine sağlık.
Syg,
E.ALAN

 

[oornek1]

istediğin tam olarak böyle bişeymi yada ekteki dosyayıda incele nasıl bişey olsun ona göre yapalım

Sub telliste()
Columns("A:A").Replace What:=" ", Replacement:=""
Columns("A:A").NumberFormat = "0(000) 000-00-00"
End Sub
------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" <> Empty Then Deneme
End Sub
------------
Sub liste()
MsgBox "oornek"
End Sub

 

[ersoyalan]

oornek1 merhaba,

sorunu hallettik..Te&#351;ekk&#252;rederim.
&#304;yi &#231;al&#305;&#351;malar.

 

[3641]

Say&#305;n ersoyalan

Elindeki Dosyada D&#252;zeni Bozuk Olan Tel Nolar&#305; A S&#252;tununa Kopyalay&#305;p Yap&#305;&#351;t&#305;r&#305;rsan &#350;ayet "Tel Nolar&#305; D&#252;zelt" Dedi&#287;inde &#304;stedi&#287;in Formata Getirir.