telefon formatını değiştirme butonu

[zeynepozo]

iyi çalışmalar,

90 (500) 123 45 67

şeklinde olan cep telefonu formatının

05001234567;

şeklinde olmasını istiyorum.

tek butonla bunu sağlayabilir miyiz. butona tıkladığımda sayfadaki tüm parantezli noları istediğim formata dönüştürsün.

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

 

[ÖmerBey]

İyi çalışmalar,
Başında 0 olacağı için hücre biçimlendirmesi metin olarak ayarlandı.
Kırmızı kısmı dosyanızdaki veri aralığına göre düzenleyiniz.

Sub dönüştür()
For Each hücre In Range("[COLOR="Red"]A2:A500[/COLOR]")
    deger = Replace(Replace(Replace(hücre, "(", ""), ")", ""), " ", "")
    deger = Right(deger, 11)
    hücre.NumberFormat = "@"
    hücre.Value = deger
Next
End Sub

Düzeltme:
Sonuna ; "noktalı virgül" koymak istiyorsanız ilgili satırı şu şekilde düzenleyiniz.

hücre.Value = deger [COLOR="Red"]& ";"[/COLOR]

 

[asimavi50]

iyi çalışmalar,

90 (500) 123 45 67

şeklinde olan cep telefonu formatının

05001234567;

şeklinde olmasını istiyorum.

tek butonla bunu sağlayabilir miyiz. butona tıkladığımda sayfadaki tüm parantezli noları istediğim formata dönüştürsün.

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

Formül ile yapmak isterseniz, alternatif olabilir diye düşünüyorum.

Telefon numaranızın A1'DE Olduğunu varsayarsak aşağıdaki formülü B1'E yapıştırın.

=TOPLA(PARÇAAL(A1;BÜYÜK(ESAYIYSA(--PARÇAAL(A1;SATIR($1:$25);1))*SATIR($1:$25);SATIR($A$1:İNDİS($A:$A;BAĞ_DEĞ_SAY(--PARÇAAL(A1;SATIR($1:$25);1)))));1)*10^(SATIR(İNDİS($1:$25;BAĞ_DEĞ_SAY(--PARÇAAL(A1;SATIR(İNDİS($1:$25;1;1):İNDİS($1:$25;UZUNLUK(A1);1));1));1):İNDİS($1:$25;1;1))-1))

Formül yapıştırdığınız hücrenin SAYI formatında olmasına dikkat edin.

(Dizi formülüdür!) F2 - Ctrl + Shıft + Enter

 

[zeynepozo]

çok teşekkürler. çok işime yaradı.

 

[Necdet]

Merhaba,

Ne formül ne de makro isterseniz :

• Sütunu Seçin
• Ctrl+H --> Bul v Değiştir
• Aranan : 90 (
• Yeni Değer'e hiç bir şey yazmayın
• Tümünü Değiştirin

Sütun Hazır seçili iken

• 2. kez Ctrl+H
• Aranan : )
• Yeni değere yine bir şey yazmayın
• Tümünü Değiştir

Yine Ctrl+h

• aranan Bir karakter boşluk
• Tümünü değiştir

Halâ sütun seçil olması gerek
Biçim
Hücre Biçimlendirme
İsteğe Uyarlanmış
Tür kısmına 11 Adet Sıfır Koyun
Tamam

Bu şekilde formülsüz, makrosuz ve başka bir sütun kallanmaya gerek kalmadan değiştirmiş olursunuz.