Notifications
Clear all
2024 - VBA & Macros
1
Posts
1
Usuários
0
Reactions
829
Visualizações
Topic starter
Olá, prezados!
Peço vossa ajuda em um problema que tem me feito arrancar os cabelos da cabeça.
Criei a seguinte macro:
Sub SalvaVidas1() Dim a As Integer, x As Integer a = 17 x = 17 Do Until x = 32 If Planilha3.Range("A" & a).Value = Planilha3.Range("Q" & x).Value Then Planilha3.Range("H" & a + 5).Value = Planilha3.Range("W17").Value x = x + 1 End If a = a + 59 Loop End Sub
A mesma apresenta um erro de "estouro" na linha "a = a + 59", e, mesmo sem qualquer atribuição, a variável apresenta um valor absurdo na verificação rápida (o valor máximo para um Integer), que não foi atribuído em qualquer momento do código!
Porém, realizando a depuração total antes de rodar o código, a macro apresenta todos os sinais de estar funcionando como desejado!
***Defini a variável como Integer pois não vou precisar de valores acima de 32 mil e pouco (na verdade, não chego nem perto disso).
Alguém pode me mostrar onde estou errando? Já aconteceu algo parecido com algum de vocês?
Postado : 06/01/2020 10:46 am