boşluk silme

[bright04]

Merhaba Arkadaşlar,
bir excel tablosunda bir sürü dolu hücrelerim var, ancak her hücrenin sonunda birer tane boşluklar var. sayfadaki tüm hücrelerdeki bu boşlukları nasıl silebilirim.

Şİmdiden teşekkür ederim
Saygılarımla

 

[Orion1]

Standart bir modüle yapıştırınız.
A1:E50 aralığı için çalışır.
Sub sağ_bosluk_sil()

Dim hcr As Range
For Each hcr In Range("A1:E50")
    hcr.Value = RTrim(hcr.Value)
Next
End Sub

 

[bright04]

Sayın Evren,
Sub sağ_bosluk_sil() bu fonksiyon formülümüdür. eğer fonksiyon formülü ise ingilizce ofis kullandığım için ingilizce yazabilirseniz çok sevinirim
Saygılarımla

 

[Orion1]

Sayın Evren,
Sub sağ_bosluk_sil() bu fonksiyon formülümüdür. eğer fonksiyon formülü ise ingilizce ofis kullandığım için ingilizce yazabilirseniz çok sevinirim
Saygılarımla

Bu fonsiyon değildir.
İstediğiniz fonksiyonla olmaz.Kod ile olur.
Bunlar vba kodudur.
alt+f11 e basın.açılan vbe 'ye insert ten module tıklayın.Çıkan modül sayfasına bu kodları yapışırın.
kapatın
sonra alt + f8 e basın çıkan bencereden makroyu seçip çalıştırın.

 

[bright04]

Sayın Evren
verdiğiniz kodu denedim ama olmadı, size dosyayı gödersem yardımcı olabilirmisiniz.
hücre içindeyken F2 yaptığımda en sağda boşlukların silinmesini istiyorum (tüm hücreler için geçerli)

Saygılarımla

 

[bright04]

Konu hakkında yardımcı olacak yokmu (

 

[Orion1]

Dosyanız ektedir.
Butona tıklayınız.

Sub sağ_bosluk_sil()
Dim hcr As Range, son As Long
son = Sheets("Sayfa1").Cells(65536, "B").End(xlUp).Row
For Each hcr In Sheets("Sayfa1").Range("A1:M" & son)
    hcr.Value = KIRPE(hcr.Value)
Next
End Sub  


Function KIRPE(deg As String) As Variant
If Len(deg) > 0 Then
    Do While Left(deg, 1) = " " Or Left(deg, 1) = Chr(160)
        deg = Right(deg, Len(deg) - 1)
    Loop
End If
If Len(deg) > 0 Then
    Do While Right(deg, 1) = " " Or Right(deg, 1) = Chr(160)
        deg = Left(deg, Len(deg) - 1)
    Loop
End If
If IsDate(deg) Then
    KIRPE = CDate(deg)
ElseIf IsNumeric(deg) Then
    KIRPE = CDbl(deg)
    Else
    KIRPE = CStr(deg)
End If
End Function

 

[bright04]

çok teşekkür ederim Sayın Gizlen
Saygılarımla

 

[Orion1]

çok teşekkür ederim Sayın Gizlen
Saygılarımla

Rica ederim.
İyi .alışmalar.

 

[bright04]

Sayın Gizlen,
konuyla ilgili bir sorum daha olacak.
verdiğiniz kod, Çalışma sayfası "sayfa1" olursa çalışıyor.
diyelimki, adı farklı olan bir sheett'te nasıl uygulayabilirim.