Telefon numarası için soldan sıfır silmek

[suck2fingers]

Günaydın,

Oluşturduğum bir telefon numarası datasında kimi numaraların başında "0", "090" vs oluyor.

Amacım sadece "532xxx" seklinde numaraların gözükmesi. Bu şekilde;

00905321234567
05441234567
...
..
.

gibi bir listede, hücre başındaki sıfırları veya totalde "5"'in solundaki değerleri silebilecek bir formül var mıdır?

Teşekkürler yanıtınız için,

 

[S.Yiğit]

Merhaba,

Telefon numaralarının A sütununda olduğunu varsayarak aşağıdaki formül işinizi görür.

=SAĞDAN(A1;10)

 

[suck2fingers]

çok teşekkür ederim, peki listemde 0532 123 45 67 gibi numaralarda ne yapabilirim? O kadar karışık ve yaklaşık 8500 adet numara bulunmakta.

 

[S.Yiğit]

Ctrl H kullanarak yapabilirsiniz.. Numaraların olduğu alanı seçerek Ctrl H yapın Aranan değer 1 boşluk, yeni değere birşey yazmayın ve tümümü değiştir deyin. Boşluk kalmayacaktır. Eğer olmazsa o boşluktan birini kopyalayın ve aranan değere yağıştırın, yeni değeri boş bırakın..

 

[uzmanamele]

merhaba

bunu deneyiniz,

=SAĞDAN(YERİNEKOY(A1;" ";"");10)

 

[mc_exrem]

merhaba

bunu deneyiniz,

=SAĞDAN(YERİNEKOY(A1;" ";"");10)

parantezi düzeltmiyor bu formül?

 

[ÖmerFaruk]

=SAĞDAN(YERİNEKOY(YERİNEKOY(YERİNEKOY(A1;"(";"");")";"");" ";"");5)

 

[mc_exrem]

=SAĞDAN(YERİNEKOY(YERİNEKOY(YERİNEKOY(A1;"(";"");")";"");" ";"");5)

malesef olmadı?

 

[ÖmerFaruk]

300 ün üzerinde mesajın var.
Hem boşluk hem de parantez kaldıran örnekler var elinde.
Sen "-" leri de kaldırmak istiyorsun, bunu yapabilirsinn bence.
Biraz uğraşmayı deneyin.

 

[mc_exrem]

300 ün üzerinde mesajın var.
Hem boşluk hem de parantez kaldıran örnekler var elinde.
Sen "-" leri de kaldırmak istiyorsun, bunu yapabilirsinn bence.
Biraz uğraşmayı deneyin.

teşekkür ederim
konunun yeni başlayanlar kısmında olduğunu arama yaptığımda fark etmemişim.
DEĞİŞTİR komutu ile hepsini değiştirip düzeltebiliyorum ama KOD ile hepsini tek seferde yapmak istiyorum.

 

[AdemCan]

Bu formül ile istediğiniz oluyor.

=SAĞDAN(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(A1;" ";"");"(";"");")";"");"-";"");10)

 

[AdemCan]

Yukarıdaki formülün makro hali.

Sub telefon_no()
son = Cells(Rows.Count, 1).End(3).Row
    For i = 1 To son
        Cells(i, 2) = Right(WorksheetFunction.Substitute(WorksheetFunction.Substitute(WorksheetFunction.Substitute(WorksheetFunction.Substitute(Cells(i, 1), " ", ""), "(", ""), ")", ""), "-", ""), 10) * 1
    Next i
End Sub

 

[mc_exrem]

Yukarıdaki formülün makro hali.

Sub telefon_no()
son = Cells(Rows.Count, 1).End(3).Row
    For i = 1 To son
        Cells(i, 2) = Right(WorksheetFunction.Substitute(WorksheetFunction.Substitute(WorksheetFunction.Substitute(WorksheetFunction.Substitute(Cells(i, 1), " ", ""), "(", ""), ")", ""), "-", ""), 10) * 1
    Next i
End Sub

Teşekkürler. Yarın pc de denicem Inşallah

 

[mc_exrem]

Yukarıdaki formülün makro hali.

Sub telefon_no()
son = Cells(Rows.Count, 1).End(3).Row
    For i = 1 To son
        Cells(i, 2) = Right(WorksheetFunction.Substitute(WorksheetFunction.Substitute(WorksheetFunction.Substitute(WorksheetFunction.Substitute(Cells(i, 1), " ", ""), "(", ""), ")", ""), "-", ""), 10) * 1
    Next i
End Sub

Günaydınlar

Dosyama uyguladım teşekkür ederim sorunsuz çalışıyor ama bunu numaraları A sütununa yapıştırdığımda B sütununa otomatik düzeltmesi mümkün mü acaba?

 

[Korhan Ayhan]

Siz çözümü makro ile istiyorsanız sorunuzu "Makrolar" başlığı altına açmanız gerekyor.