Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Erro em Tempo de Execução 1004

Dúvidas gerais sobre Excel
kdsantos
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qua Set 13, 2017 9:39 am

Erro em Tempo de Execução 1004

Mensagem por kdsantos »

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?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Erro em Tempo de Execução 1004

Mensagem por srobles »

kdsantos,

Normalmente ao trabalharmos com Ranges, a instrução deve conter o caracter (:) :

Código: Selecionar todos

Planilha8.Range("a2:by50000").ClearContents
E não com o caracter (.) ponto, conforme trecho contido no seu código :

Código: Selecionar todos

Planilha8.Range("a2.by50000").ClearContents
Espero ter ajudado.

Abs


Responder