Ltrim Hakkında

[Sa.NaL]

Merhaba benim excel uzmanı arkadaşlardan ricam. Ekteki dosyamda userformu açınca işleri listeletince bazı işlerin solunda boşluk kalıyor onları listeletirken ltrim komutu ile kırparak listeletebilirmiyiz.Gidip normal sayfada silip boşlukları öyle listelet diyecek olan varsa şimdiden söyleyim bu gerçek örneğim değil gerçek örneğim de böyle bir zorunluluk içinde olduğum için komut olarak boşlukları kırparak listeletmeyi örneğime monte ederseniz sevinirim.İyi çalışmalar

 

[halit3]

kod böyle olacaktı herhalde

Private Sub CommandButton1_Click()
On Error Resume Next
For i = 1 To 5
If Sheets("Sayfa1").Cells(i, "C") <> yes Then
Set liste = ListView1.ListItems.Add(, , Trim(Cells(i, "A").Value))
liste.SubItems(1) = Trim(Cells(i, "B").Value)
End If
Next i
End Sub

 

[mesuttasar]

Dosyanızı ekliyorum. Yapmış olduğum işlem şu.

Dosya açıldığında , yazdığım makro A sütunundaki tüm hücrelerde KIRP fonksiyonunu uyguluyor. Dolayısıyla sorununuz ortadan kalkmış oluyor.

İyi çalışmalar.

Yazmış olduğum kod aşağıdaki gibidir.

Sub auto_open()
a = [a65536].End(3).Row
For i = 1 To a
Cells(i, "E").Select
ActiveCell.FormulaR1C1 = "=TRIM(RC[-4])"
Cells(i, "A") = Cells(i, "E")
Cells(i, "E").Delete

Next i
UserForm1.Show
End Sub