USO DO (For Each)

[alberto_acm]

BOA TARDE,

TENHO QUE LIMPAR O CARACTER ( ' ) QUE VEM ANTES DA DATA QUANDA DA IMCLUSAO DE DATA, PARA PODER FAZER PESQUISA POR DATA.

ESTOU USANDO O SEGUINTE CODIGO: PARA LIMPAR CELULAR DA LINHA 2 COLUNA 9 ....

MAIS ME RETORNA ERRO ( ERRO EM TEMPO DE EXECUÇÃO '1004' O METODO RANGE DO OBJETO ' WORKSHEET' FALHOU.

FAÇO A DEPURAÇÃO E A PRIMEIRA LINHA ABAIXO FICA EM AMARELO.

AGRADEÇO A AJUDA, POIS ESTOU INICIANDO NO VBA DO EXCEL E AINDA NÃO CONSIGO INDENTIFICAR TAIS ERROS.

OBRIGADO

For Each cel In Plan3.Range(Cells(2, 9), Cells(65536, 9).End(xlUp))

cel = Application.Clean(cel)

Next cel

For Each cel In Plan3.Range(Cells(2, 10), Cells(65536, 10).End(xlUp))

cel = Application.Clean(cel)

Next cel

For Each cel In Plan3.Range(Cells(2, 11), Cells(65536, 11).End(xlUp))

cel = Application.Clean(cel)

[Professor Filho]

BOA TARDE,

TENHO QUE LIMPAR O CARACTER ( ' ) QUE VEM ANTES DA DATA QUANDA DA IMCLUSAO DE DATA, PARA PODER FAZER PESQUISA POR DATA.

ESTOU USANDO O SEGUINTE CODIGO: PARA LIMPAR CELULAR DA LINHA 2 COLUNA 9 ....

MAIS ME RETORNA ERRO ( ERRO EM TEMPO DE EXECUÇÃO '1004' O METODO RANGE DO OBJETO ' WORKSHEET' FALHOU.

FAÇO A DEPURAÇÃO E A PRIMEIRA LINHA ABAIXO FICA EM AMARELO.

AGRADEÇO A AJUDA, POIS ESTOU INICIANDO NO VBA DO EXCEL E AINDA NÃO CONSIGO INDENTIFICAR TAIS ERROS.

OBRIGADO

For Each cel In Plan3.Range(Cells(2, 9), Cells(65536, 9).End(xlUp))

cel = Application.Clean(cel)

Next cel

For Each cel In Plan3.Range(Cells(2, 10), Cells(65536, 10).End(xlUp))

cel = Application.Clean(cel)

Next cel

For Each cel In Plan3.Range(Cells(2, 11), Cells(65536, 11).End(xlUp))

cel = Application.Clean(cel)

Boa Noite!

Alberto,

Para corrigir este seu código é necessário, primeiramente, saber que:

Para referenciarmos uma célula, ou um conjunto de células, em específico precisamos referenciar qual é sua planilha, ou seja, sua worksheet desta maneira:

Worksheets("Plan3")

Realizando esta modificação, este problema não acontecerá mais...

Porém, outro erro aparecerá e você irá resolver desta maneira:

For Each cel In Worksheets("Plan3").Range("I2:I65536")

cel = Application.Clean(cel)

Next cel

Abraços,

Professor Filho.