- Katılım
- 11 Nisan 2006
- Mesajlar
- 20
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
aşağıya böyle bir mesaj yazmıştım arkadaş bu kodu yazmış ve çok işime yaradı.kendisine çok teşekkür ediyorum.
ama bı kodda boş alanları doldurmuyo ..eğer alan da karakter yoksa hiçnişey atmoyor.
nasıl çözücez bu işi?
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
aşağıya böyle bir mesaj yazmıştım arkadaş bu kodu yazmış ve çok işime yaradı.kendisine çok teşekkür ediyorum.
ama bı kodda boş alanları doldurmuyo ..eğer alan da karakter yoksa hiçnişey atmoyor.
nasıl çözücez bu işi?