parar instrução cas...
 
Notifications
Clear all

parar instrução caso afirmativo

2 Posts
2 Usuários
0 Reactions
1,034 Visualizações
(@denisw)
Posts: 64
Trusted Member
Topic starter
 

Bom dia.
geralmente abro tópicso e tenho e eu emsmo respodno pois memso solicitando vossa ajuda, vou tentando resolver.
Mas este vou precisar de quem entende d o assunto.
qual o contrario de if not blablabla is nothing ?
pois preciso q apos o msgbox ele encerre a rotina. 'ELSE CONTINUE
( Se procurar resultado1 e existir encerrar caso contrario continue)

With aba.Cells
Set procu = .Find(What:=resultado1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not procu Is Nothing Then
MsgBox ("NF já cadastrada" & aba.Name) ' ENCERRAR CASO CONTRARIO CONTINUAR...
End If

End With
Next
End With

Sheets(boxplanilhas.Value).Activate
Range("A2").Select

Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = resultado1
ActiveCell.Offset(0, 1).Value = boxcliente.Value

 
Postado : 29/07/2015 8:22 am
(@gustavooo)
Posts: 17
Active Member
 

exit sub

 
Postado : 29/07/2015 8:45 am