Hucreye Boşluk Ekleme

[yurdusev]

Yazıcıdan rapor çıkartıyorum.
A sutununa olay B sutununa sonuc yazdırıyorum.
A sutundaki olay karakter uzunluklukları farklı oldugundan B sutundaki sonuc kısmı yazıcadan aynı hızada cıkmıyor.
Bunu gidermek için A sutunu örnegin 70 karekter ile sabitleyip olaylar yazıldıktan sonra geriye kalan kısımları boşluklar ile doldura bilirmiyiz?
bu konuda yardımınızı bekliyorum.

 

[turist]

VBA editoru ile (Alt ve F11 tuşlarına birlikte basarak açınız) Uygulama yaptığınız sayfa koduna:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
On Error Resume Next
Dim a As String
If Target.Value = "" Then Exit Sub
a = WorksheetFunction.Rept(" ", 70 - Len(Target.Value))
Target.Value = Target & a
End If
End Sub

şeklinde deneyin.

 

[Asri]

Buraki eklentiyi kullanırsanız istediğiniz anda bir iki tıkla tüm sayfayı yada tek bir kolona işlem yapabilir siniz.
Kodlar ve diğer işlemler ile uğraşmanız gerek kalmaz.

*Hücreyi bu uzunluğua tamamla şu karakter ile sonuna ekleyerek
*Hücreyi bu uzunluğua tamamla şu karakter ile başına ekleyerek


http://www.excel.web.tr/f133/excel-texttools-eklentisi-t124871.html

 

[yurdusev]

Sayın turist ,
cevabınız için teşekürler.
gönderdiğiniz kodu,
VBA editoru ile (Alt ve F11 tuşlarına birlikte basarak açınız) Uygulama yaptığınız sayfa koduna yapıstırdım kaydettim ama herhangi bir değişlik olmadı ,
herhangi bir yerde hatamı yaptım acaba başka bir tusa basacakmıyım

 

[yurdusev]

Sayın turist;
satırların icinde girip imlec ile tıkladıktıktan sonray boşluk ekledi ,
çok teşekür ederim ;
hucrelere tek tek mause imleci ile yerine başka bir kısa yol biliyormusunuz,

 

[Korhan Ayhan]

Tek seferde tüm hücrelere ekleme yapmak için döngü kullanabilirsiniz.

Sub Boşluk_Ekle()
    Dim Veri As Range
    
    For Each Veri In Range("A:A").SpecialCells(xlCellTypeConstants, 23)
        If Len(Veri.Text) < 70 Then
            Veri.NumberFormat = "@"
            Veri.Value = CStr(Veri.Text) & WorksheetFunction.Rept(" ", 70 - Len(Veri.Text))
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub