Crie uma variável global, que se chamará:
Public b_PARAR_CODIGO AS boolean
No código do botão, coloque:
b_PARAR_CODIGO =True
vba.Doevents
No meio do seu loop, coloque:
If b_PARAR_CODIGO then
Exit Sub
endif
Não deu certo
olha o código que fiz:
Sub cadastramento()
Dim chaveVerificadora As Integer
chaveVerificadoras = 0
Planilha2.Select
Planilha2.Range("A4").Select
Do
If bParar = True Then
Exit Do
Else
If IsEmpty(ActiveCell.Offset(0, 6)) Then
FormularioCodigo.txCodigo = ActiveCell.Offset(0, 3).Value
FormularioCodigo.btPesquisar.Enabled = False
FormularioCodigo.Show
End If
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell.Offset(0, 0)) = True
End Sub
Deixei a variável global fora desse módulo, no formulário.
Postado : 10/03/2017 10:27 am