Este fórum está sendo desativado

[RodrigoPossi]

Pessoal, boa noite!

Gostaria de uma ajuda com o seguinte situação:

Tenho uma planilha aqui do serviço e preciso que ele pegue a última informação de uma coluna (não é a última) e limpe as informações (as células não poder ser excluídas apenas os valores) até a célula B3.

Tentei da seguinte maneira mas não deu certo:



Range("AM1048576").Select

Selection.End(xlUp).Select

Range(Selection, "B3").Select

Selection.Clear


Como poderia fazer isso?

Agradeço desde já,

Rodrigo Souza Possi

[osvaldomp]

... pegue a última informação de uma coluna (não é a última) ...

Código: Selecionar todos

Sub LimpaIntervalo()
 Range("B3:B" & Cells(Rows.Count, 2).End(3).Row).Value = ""
End Sub