erro: Estouro no laço For
Enviado: Seg Nov 25, 2019 4:21 pm
No código abaixo, qualquer valor que eu coloque superior a 5000 dá erro ESTOURO (apenas isso na mensagem).
Minha planilha base tem mais de 40.000 registros e eu preciso copiar todos esses dados para outra planilha.
Por favor, alguém pode me ajudar?
For I = 1 To 10000 - é aqui que dá erro.
Sheets("ImportBASICO").Select
Range("A" & n).Select
EncontraString = ActiveCell.Value
If Trim(EncontraString) <> "" Then
With Sheets("RESULTADO").Range("D:D")
Set Intervalo = .Find(What:=EncontraString, _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False)
If Not Intervalo Is Nothing Then
Application.Goto Intervalo, True
'COPIA OS DADOS DA PLANILHA IMPORTACAO PARA A PLANILHA BASICO
'NÚMERO DE ALUNOS
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 9).Value = Sheets("ImportBASICO").Range("C" & n).Value
' 'BANCO
' Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = Sheets("ImportBASICO").Range("C" & n).Value
' 'AGÊNCIA
' Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = Sheets("ImportBASICO").Range("C" & n).Value
' 'CONTA
' Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = Sheets("ImportBASICO").Range("C" & n).Value
'VALOR ESTIMADO: TOTAL
n = n - 15
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 17).Value = Sheets("ImportBASICO").Range("B" & n).Value
'DEDUÇÃO
n = n + 2
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 18).Value = Sheets("ImportBASICO").Range("B" & n).Value
'VALOR DEVIDO
n = n + 2
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 19).Value = Sheets("ImportBASICO").Range("B" & n).Value
'********** B Á S I C O **********
'********** 1ª PARCELA
n = n + 4
'CUSTEIO
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 20).Value = Sheets("ImportBASICO").Range("B" & n).Value
'CAPITAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 21).Value = Sheets("ImportBASICO").Range("C" & n).Value
'TOTAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 22).Value = Sheets("ImportBASICO").Range("D" & n).Value
'A J U S T E CUSTEIO
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 29).Value = Sheets("ImportBASICO").Range("E" & n).Value
'A J U S T E CAPITAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 30).Value = Sheets("ImportBASICO").Range("F" & n).Value
'VALOR TOTAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 31).Value = Sheets("ImportBASICO").Range("G" & n).Value
'VALOR PAGO EM 2019
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 32).Value = Sheets("ImportBASICO").Range("H" & n).Value
'VALOR PAGO 2020 REF. A 2019
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 33).Value = Sheets("ImportBASICO").Range("I" & n).Value
'********** 2ª PARCELA
n = n + 1
'CUSTEIO
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 23).Value = Sheets("ImportBASICO").Range("B" & n).Value
'CAPITAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 24).Value = Sheets("ImportBASICO").Range("C" & n).Value
'TOTAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 25).Value = Sheets("ImportBASICO").Range("D" & n).Value
'A J U S T E CUSTEIO
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 34).Value = Sheets("ImportBASICO").Range("E" & n).Value
'A J U S T E CAPITAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 35).Value = Sheets("ImportBASICO").Range("F" & n).Value
'VALOR TOTAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 36).Value = Sheets("ImportBASICO").Range("G" & n).Value
'VALOR PAGO EM 2019
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 37).Value = Sheets("ImportBASICO").Range("H" & n).Value
'VALOR PAGO 2020 REF. A 2019
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 38).Value = Sheets("ImportBASICO").Range("I" & n).Value
'********** FIM DO B Á S I C O **********
' Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 9).Value = Sheets("ImportBASICO").Range("C" & n).Value
Else
MsgBox "Não Localizado"
End If
End With
End If
n = n + 30
Next I
Minha planilha base tem mais de 40.000 registros e eu preciso copiar todos esses dados para outra planilha.
Por favor, alguém pode me ajudar?
For I = 1 To 10000 - é aqui que dá erro.
Sheets("ImportBASICO").Select
Range("A" & n).Select
EncontraString = ActiveCell.Value
If Trim(EncontraString) <> "" Then
With Sheets("RESULTADO").Range("D:D")
Set Intervalo = .Find(What:=EncontraString, _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False)
If Not Intervalo Is Nothing Then
Application.Goto Intervalo, True
'COPIA OS DADOS DA PLANILHA IMPORTACAO PARA A PLANILHA BASICO
'NÚMERO DE ALUNOS
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 9).Value = Sheets("ImportBASICO").Range("C" & n).Value
' 'BANCO
' Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = Sheets("ImportBASICO").Range("C" & n).Value
' 'AGÊNCIA
' Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = Sheets("ImportBASICO").Range("C" & n).Value
' 'CONTA
' Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = Sheets("ImportBASICO").Range("C" & n).Value
'VALOR ESTIMADO: TOTAL
n = n - 15
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 17).Value = Sheets("ImportBASICO").Range("B" & n).Value
'DEDUÇÃO
n = n + 2
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 18).Value = Sheets("ImportBASICO").Range("B" & n).Value
'VALOR DEVIDO
n = n + 2
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 19).Value = Sheets("ImportBASICO").Range("B" & n).Value
'********** B Á S I C O **********
'********** 1ª PARCELA
n = n + 4
'CUSTEIO
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 20).Value = Sheets("ImportBASICO").Range("B" & n).Value
'CAPITAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 21).Value = Sheets("ImportBASICO").Range("C" & n).Value
'TOTAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 22).Value = Sheets("ImportBASICO").Range("D" & n).Value
'A J U S T E CUSTEIO
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 29).Value = Sheets("ImportBASICO").Range("E" & n).Value
'A J U S T E CAPITAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 30).Value = Sheets("ImportBASICO").Range("F" & n).Value
'VALOR TOTAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 31).Value = Sheets("ImportBASICO").Range("G" & n).Value
'VALOR PAGO EM 2019
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 32).Value = Sheets("ImportBASICO").Range("H" & n).Value
'VALOR PAGO 2020 REF. A 2019
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 33).Value = Sheets("ImportBASICO").Range("I" & n).Value
'********** 2ª PARCELA
n = n + 1
'CUSTEIO
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 23).Value = Sheets("ImportBASICO").Range("B" & n).Value
'CAPITAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 24).Value = Sheets("ImportBASICO").Range("C" & n).Value
'TOTAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 25).Value = Sheets("ImportBASICO").Range("D" & n).Value
'A J U S T E CUSTEIO
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 34).Value = Sheets("ImportBASICO").Range("E" & n).Value
'A J U S T E CAPITAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 35).Value = Sheets("ImportBASICO").Range("F" & n).Value
'VALOR TOTAL
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 36).Value = Sheets("ImportBASICO").Range("G" & n).Value
'VALOR PAGO EM 2019
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 37).Value = Sheets("ImportBASICO").Range("H" & n).Value
'VALOR PAGO 2020 REF. A 2019
Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 38).Value = Sheets("ImportBASICO").Range("I" & n).Value
'********** FIM DO B Á S I C O **********
' Sheets("RESULTADO").Cells(ActiveCell.Row, ActiveCell.Column + 9).Value = Sheets("ImportBASICO").Range("C" & n).Value
Else
MsgBox "Não Localizado"
End If
End With
End If
n = n + 30
Next I