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

Mensagem de Erro "Estouro"

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
salvador
Manda bem
Manda bem
Mensagens: 130
Registrado em: Qua Fev 12, 2014 8:01 am

Mensagem de Erro "Estouro"

Mensagem por salvador »

Amigos, quando eu rodo a macro abaixo ela dá a seguinte mensagem: Erro em tempo de execução 6 "Estouro"!

Alguém poderia ajudar-me!
Acredito que o problema esteja na quantidade de linhas! Mas estou rodando em 12 planilhas que no total daria 480.000 linhas, e o Excel tem mais de 1 milhão!

Código: Selecionar todos

Sub Copiar_Para_Bdados()

Dim wsOrigem    As Worksheet
Dim wsDestino   As Worksheet
Dim LastRow     As Integer
Dim wb As Workbook
Dim sh As Worksheet

'Copia e cola todas as planilhas como valores

Set wb = ThisWorkbook


Sheets("Bdados").Select

'Fim do código para copiar as planihas como valores


'Definir a planilha que consolidará os dados
Set wsDestino = Sheets("Bdados")

'Loop através das planilhas da pasta de trabalho
For Each wsOrigem In ThisWorkbook.Worksheets

'If Left(wsOrigem.Name, 1) = "C" Then


'Definir a última célula com valores da coluna A de wsDestino
LastRow = wsDestino.Range("A1000000").End(xlUp).Row

'Copiar os dados de wsOrigem para wsDestino
wsOrigem.[A3:T40000].Copy wsDestino.Cells(LastRow + 2, 1)


'End If


Next wsOrigem


End Sub


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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Mensagem de Erro "Estouro"

Mensagem por webmaster »

E está. Tente trocar a variável LastRow de Integer para Long e execute novamente.

Abraços


salvador
Manda bem
Manda bem
Mensagens: 130
Registrado em: Qua Fev 12, 2014 8:01 am

Re: Mensagem de Erro "Estouro"

Mensagem por salvador »

Perfeito! Obrigado


FLÁVIO_TAVARES33
Colaborador
Colaborador
Mensagens: 10
Registrado em: Sex Jan 06, 2017 11:25 am

Re: Mensagem de Erro "Estouro"

Mensagem por FLÁVIO_TAVARES33 »

Boa tarde.

Estou com o mesmo problema do amigo acima, mas eu segui o mesmo conselho alterando a variável para Long, mas o erro persiste.

Estou atribuindo a uma variável NumCnpj o valor de um campo txt que neste caso é o CNPJ sem pontos, traços ou barras, mas o erro só não acontece quando não declaro a variável. Pode me ajudar por favor?


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.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Mensagem de Erro "Estouro"

Mensagem por Reinaldo »

Armazenar um cnpj ou cpf como numero provavelmente acarretará em estouro, o padrão cnpj XX.XXX.XXX/YYYY-ZZ
Integer "aceita" valores até 32.767; Long "aceita" valores até 2.147.483.647.
Ao não declarar a variavel o sistema a considera como Variant, atribuindo a mesma a formatação que mais se asemelha ao tipo de dado
Atribua a essa variavel o valor String (Texto), que não devera ocorrer o estouro


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.


Responder