Hücre Biçimlendirme

[Bonjo]

Merhabalar

05321112233 telefon formatını

532-1112233;

şeklinde yapmak istiyorum,

yardımlarınızı rica edecektim.

 

[pehborn]

Merhaba

Kullandığım excel ingilizce olduğu için ingilizce menüleri yazacağım kusura bakma.

İşlem yapmak istediğin hücre yada hücreleri seçip sağ tuş yap.

Format cells menüsünü tıkla. Açılan menüden sol tarafta en alttaki Custom alanını seç.

Sağ tarafta Type alanına ???-??????? yazdığında telefon numaraları belirttiğin şekilde değiştiğini göreceksin.

 

[Necdet]

Merhaba,

Hücre Biçimlendirme
İsteğe Uyarlanmış
Tür
000-0000000
Tamam

ayrıca inceleyiniz Özel Hücre Biçimlendirme

 

[Bonjo]

Teşekkürler onu yaptımda

000-000000; şeklinde yapınca olmuyor yani sayıların sonunda birde ; (noktalıvirgül) koymam gerekiyor.

 

[Bonjo]

Sorumu şöyle sorayım bende 2000 numaralık bir excel listesi var ve bunlara şirketten toplu msg atmam gerekiyor.

Bu excel listesindeki numaraları 000-0000000; formatında yaptıkdan sonra birde nasıl yan yana getireceğim.

Teşekkürler.

 

[Korhan Ayhan]

Aşağıdaki kodu kullanabilirsiniz.

"A" sütununu biçimlendirip C1 hücresinde birleştirir.

Sub TEST()
    For X = 1 To 2000
        Cells(X, 1) = Left(Cells(X, 1), 3) & "-" & Right(Cells(X, 1), 7)
    Next

    Liste = Range("A1:A2000").Value
    Range("C1") = Join(Application.Transpose(Liste), ";")
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Bonjo]

Oldu çok teşekkür ederim.