Kelime Tamamlama

[tuvons]

Merhaba,

Makro ile kelimelerin sonuna nokta koymak istiyorum ama bunu toplam karakter sayısına bağlı yapmak istiyorum. Örneğin toplam 30 karakter yazılması gereken hücreye "diğer" yazılırsa bunu "diğer......." şeklinde 30 karaktere tamamak. Bu mümkün müdür?

 

[Necdet]

Merhaba,
Kodları inceleyin ve kendinize uyarlayınız.

Sub Makro1()

    Range("A1") = "Diğer"
    If Len(Range("A1")) < 30 Then
        Range("A1") = Range("A1") & Application.Rept(".", 30 - Len(Range("A1")))
    End If
    
End Sub

 

[tuvons]

Çok teşekkür ederim @Necdet