Erro de execução '6': Estouro


#1

Venho solicitar ajuda em um erro que está ocorrendo na minha rotina VBA (Erro de execução ‘6’: Estouro), segue abaixo rotina usada.

Sub Organizar()

'Condição se preenchido continue se vazio pare
If Range(“AA6”) = “” Then

Exit Sub

End If

'Desproteger
ActiveSheet.Unprotect Password:=“31313131313131”

'Verificar se tem qunatidade de sucata
Application.EnableEvents = False

Dim Lin As Integer
Dim i As Integer

Lin = Range(“AA6”).End(xlDown).Row

For i = 6 To Lin

If Range(“AH” & i).Value2 <> “” Then

Range(“BH” & i).Value2 = Range(“AA” & i).Value2

End If
Next i

'Proteger
ActiveSheet.Protect Password:=“31313131313131”

Sub End

O erro é informado quando chega neste comando:
Lin = Range(“AA6”).End(xlDown).Row
Obs: se eu tiver valores nas linhas abaixo (“AA6 e AA7”) a rotina roda normalmente, más, se tiver valor apenas na “AA6” o erro aparece.
Já tentei alterar (“Dim Lin As Integer" e "Dim i As Integer”) para Long, más, ocasionou outro problema.
Também tentei alterar a parte do erro de “Lin = Range(“AA6”).End(xlDown).Row” para “Lin = Range(“AA5”).End(xlDown).Row”, neste caso ela roda, más, só me dá os valores da “AA6”.
Sou novo com VBA e não entendi muito sobre o estouro, pois, os valores inseridos são de 6 digitos.


#2

Fala, @Carlyle_net. Tudo bem?

Você pode enviar a planilha para eu dar uma analisada com mais calma?

Mande para exlplanilhas@gmail.com.


#3

Planilha enviada, mais uma vez, obrigado!!!


#4

@Carlyle_net, não recebi seu e-mail. Pode tentar passar para exlconsultoria@gmail.com?


#5

Acabei de enviar, verifique se chegou por favor, :+1:t3:


#6

E-mail encaminhado.