Telefon numarası formatı

[haso_excel]

Merhaba arkadaşlar,

Bir dosyamda 099 999 99 99 99 formatında numaralarım var (A kolonunda) Benim amacım sheet 2' deki A kolonuna yukardaki formatdaki telefon numaralarını başında sıfır olmadan ve aralarında boşluk olmadan almak istiyorum. Bunu kod ile halladebilir miyim, yardımcı olabilir misiniz?

 

[haso_excel]

Sub temizle()
For x = 2 To [a65536].End(3).Row
Cells(x, 1) = Replace(Cells(x, 1), "", " ")
Next
End Sub

bu kodla bir şeyler yapmaya çalıştım ama olmadı

 

[dEdE]

Merhaba,

Bir de bunu dener misiniz?

Sub Aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
With CreateObject("VBScript.RegExp")
    .Global = True
    For X = 1 To s1.[A65536].End(3).Row
        txt = s1.Cells(X, 1)
        .Pattern = "[^\d]"
        s2.Cells(X, 1) = .Replace(txt, "")
    Next X
End With
End Sub

 

[Necdet]

Merhaba arkadaşlar,

Bir dosyamda 099 999 99 99 99 formatında numaralarım var (A kolonunda) Benim amacım sheet 2' deki A kolonuna yukardaki formatdaki telefon numaralarını başında sıfır olmadan ve aralarında boşluk olmadan almak istiyorum. Bunu kod ile halladebilir miyim, yardımcı olabilir misiniz?

Görüntü mü öyle yoksa yazılışı mı? Dosya ekleseniz şimdiye kadar çoktan sorunuz çözülürdü.

 

[haso_excel]

Dosya ekde

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

 

[Necdet]

Merhaba,

Sayfa2
A2

=YERİNEKOY(Sheet1!A2;" ";"")+0
=SUBSTITUTE(Sheet1!A2;" ";"")+0

 

[haso_excel]

teşekkürler.

 

[ersoyalan]

Merhaba,

Farklı bir çözüm isterseniz.

 

[haso_excel]

Merhaba arkadaşlar,

bir cell e girilen iban noyu girerken boşluk vermeden girip, format olarak da "TR00 0000 0000 0000 0000 0000 00" böyle görünmesini nasıl sağlarım. Kodsuz lütfen

 

[haso_excel]

Hallettim arkadaşlar teşekkürler

 

[Necdet]

Hallettim arkadaşlar teşekkürler

Yanıtı kendinize saklıyorsunuz yani.

Biz de öyle mi yapsak ne?

 

[haso_excel]

Rica ederim, öyle şey olur mu format/custom dan istediğim formatı verdim.