ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » Sex Jul 11, 2014 8:30 am

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: 2873
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Mensagem de Erro "Estouro"

Mensagem por webmaster » Sex Jul 11, 2014 10:19 am

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

Abraços


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

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

Re: Mensagem de Erro "Estouro"

Mensagem por salvador » Sáb Jul 12, 2014 8:24 am

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 » Sex Jan 06, 2017 1:11 pm

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?


Atenciosamente,
Flávio Tavares

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: 1431
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Mensagem de Erro "Estouro"

Mensagem por Reinaldo » Sex Jan 06, 2017 2:18 pm

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


Reinaldo
:oops: :D :mrgreen: :geek:

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