BİR SÜTUNDAKİ TÜM CÜMLELER 25 KARAKTERLİ OLSUN

[murathanouz]

MESALA SÜTUNDA 15 KAREKTERLİ, 20 KAREKTERLİ VE 30 KEREKTERL,İ CÜMLELER OLSUN.BİZDE 15 KAREKTERLİ CÜMLEYE 15 SPACE BAR, 20 KAREKTERLİYE 10 SPACE BAR, 30 KAREKTERLİYE HİÇBİŞEY EKLEMESİN.NASIL YAPARIZ.
SAYGILARIMLA;

 

[zafer]

Merhaba

İşlem yapacağınız alanı seçip makroyu çalıştırınız.

Sub hucre30()
Dim hucre As Range
For Each hucre In Selection
If Len(hucre) < 30 And hucre <> Empty Then
hucre.Value = hucre & WorksheetFunction.Rept(" ", 30 - Len(hucre))
End If
Next

End Sub

 

[murathanouz]

çok teşekkür ederim sağolun . . . . .