Kırp formülünü makro kod olarak düzenleme

[asdsxx]

Arkadaşlar hücrelerdeki fazla boşlukları silen "Kırp" formülünü örneğim "L2:BZ6500" aralığını kapsayacak şekilde nasıl makro kod atayabiliriz.

 

[Necdet]

Merhaba,

Hücreleri Seçtikten sonra aşağıdaki kodu çalıştırabilirsiniz.

Gerekiyorsa koddaki hücre aralığını (Selection yerine istediğiniz aralığı verebilirsiniz) siz belirleyebilirsiniz.

Sub Trim()

    Dim Hucre   As Range
    
    Application.ScreenUpdating = False
    
    For Each Hucre In Selection
        Hucre = Application.WorksheetFunction.Trim(Replace(Replace(Hucre, Chr(160), ""), Chr(10), " "))
    Next Hucre
    
    Application.ScreenUpdating = True
    
End Sub