Boa tarde,
Possuo uma planilha com código VBA que está dando seguinte erro: Erro em tempo de execução '1004'. Seguido da mensagem "O método Range do objeto work sheet falhou". Sendo assim a Macro não roda e quando mando depurar, para na linha de comando Planilha8.Range("a2.by50000").ClearContents e aparece tal mensagem.
Lembrando que no Excel versão 2016 o VBA funciona normalmente. Já no Excel 365 funcionou até início do mês de nov/2018, e depois funciona mais. Segue o código VBA utilizado:
Sub relatorio()
Planilha8.Range("a2.by50000").ClearContents
ultimaLinha = Planilha2.Cells(Rows.Count, "a").End(xlUp).Row
lin = 2
For i = 2 To ultimaLinha
If Planilha2.Cells(i, 5) <> "" Then
Planilha8.Cells(lin, 1) = Planilha2.Cells(i, 58)
Planilha8.Cells(lin, 2) = Planilha2.Cells(i, 59)
Planilha8.Cells(lin, 3) = Planilha2.Cells(i, 60)
Planilha8.Cells(lin, 4) = Planilha2.Cells(i, 61)
Planilha8.Cells(lin, 5) = Planilha2.Cells(i, 62)
lin = lin + 1
End If
Next
End Sub
Alguém pode me ajudar a solucionar esse problema?
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Erro em Tempo de Execução 1004
Re: Erro em Tempo de Execução 1004
kdsantos,
Normalmente ao trabalharmos com Ranges, a instrução deve conter o caracter (:) :
E não com o caracter (.) ponto, conforme trecho contido no seu código :
Espero ter ajudado.
Abs
Normalmente ao trabalharmos com Ranges, a instrução deve conter o caracter (:) :
Código: Selecionar todos
Planilha8.Range("a2:by50000").ClearContents
Código: Selecionar todos
Planilha8.Range("a2.by50000").ClearContents
Abs