Este fórum está sendo desativado

[rafapmotta]

Galera,

Tentei arrumar o range do código abaixo para "I2" até a "N500", mas não consegui.

Alguem pode me ajudar?

Sub test()
Dim LR As Long, p As Long
LR = Range("I" & Rows.Count).End(xlUp).Row
For p = 1 To LR
With Range("I" & p)
.Value = WorksheetFunction.Trim(.Value)
End With
Next p
End Sub

Obrigado

[Parkeless]

Opa!

Seria isso?

Código: Selecionar todos

Range("I1:N" & Range("I1").End(xlDown).Row & "").Select

[rafapmotta]

Nao funcionou =/

Coloquei o código assim:

Dim LR As Long, p As Long
LR = Range("I1:N" & Range("I1").End(xlDown).Row & "").Select
For p = 1 To LR
With Range("I" & p)
.Value = WorksheetFunction.Trim(.Value)
End With
Next p

Fiz algo de errado? preciso que essa macro execute no range "I2" até o "N500"

[Parkeless]

Tenta LR = Range("I2:N" & Range("N2").End(xlDown).Row & "")

[UPDATE]

Não... seu código está errado.

Se você quer referenciar um Range em uma variável, seria dessa forma:

Dim LR as Range
Set LR = Range("I2:N" & Range("N2").End(xlDown).Row & "")

Não sei se entendi o que você precisa, mas tenta isso:

Código: Selecionar todos

Sub Teste
Dim LR as range, cell as range

Set LR = Range("I1:N" & Range("I1").End(xlDown).Row & "")
For each cell in LR
cell.value =  WorksheetFunction.Trim(cell.Value)
Next cell
End sub

[rafapmotta]

Deu erro

[Parkeless]

Se o erro persistir mesmo com o código da última postagem, posta uma planilha com um exemplo do que você precisa.

[rafapmotta]

Funcionou perfeitamente!!!

era exatamente isso que eu precisava.

Muito Obrigado!