Este fórum está sendo desativado

[rafapmotta]

Pessoal, bom dia.

Queria saber se alguem sabe alguma macro que limpe os espaços em branco escondidos apenas em células vazias.

Tem uma macro que eu uso que está me ajudando, porém, quando ela é executada nas colunas que contém data, ela inverte o dia com o mes.



Dim LRi As Range, cell As Range

Set LRi = Range("A2:N" & Range("A2").End(xlDown).Row)
For Each cell In LRi
cell.Value = Trim(Replace(cell.Value, ",", "."))
Next cell

Alguem sabe algum outro código que possa me ajudar, ou o que está de errado com este meu?


Obrigado desde ja

[alexandrevba]

Bom dia!!

Tente algo assim?

Código: Selecionar todos

Sub AleVBA_1408()
Dim c As Range
    For Each c In ActiveSheet.UsedRange
        With c
            .Value = WorksheetFunction.Trim(.Value)
        End With
    Next c
End Sub

Att