Verileri İstenen Formatta Aktararak Listelendirme

[ozgurruya]

Dosya ektedir.

D3 hücresine yanyana yazacağım 10 rakamlı sayı "Listeye Ekle" butonuna bastıktan sonra D6tan itibaren başlayan listenin devamına D6 da belirtilidiği formatta aktarılması sağlanabilinir mi?

İlginiz için teşekkür ederim.

 

[omerceri]

Modul sayfasına aşağıdaki kodu yazın
Sayfadaki düğmeye atayın
Sub yaz ()

say = Range("D6").CurrentRegion.Rows.Count + 6
Range("D" & say).Value = Format(Range("D3"), "(000)-000-00-00")
End Sub

 

[ozgurruya]

Yardımınız için çok teşekkür ederim sayın omerceri.