Página 1 de 1
VBA - Ajuste de Range
Enviado: 05 Fev 2016 às 12:36
por 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
VBA - Ajuste de Range
Enviado: 05 Fev 2016 às 12:53
por Parkeless
VBA - Ajuste de Range
Enviado: 05 Fev 2016 às 13:06
por 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"
VBA - Ajuste de Range
Enviado: 05 Fev 2016 às 13:09
por 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 todosSub 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
VBA - Ajuste de Range
Enviado: 05 Fev 2016 às 13:17
por rafapmotta
Deu erro
VBA - Ajuste de Range
Enviado: 05 Fev 2016 às 13:21
por Parkeless
Se o erro persistir mesmo com o código da última postagem, posta uma planilha com um exemplo do que você precisa.
VBA - Ajuste de Range
Enviado: 05 Fev 2016 às 13:39
por rafapmotta
Funcionou perfeitamente!!!
era exatamente isso que eu precisava.
Muito Obrigado!