Ir ao conteúdo
  • Cadastre-se

Vba GoSub e retornos múltiplos.


edcronos

Posts recomendados

Ola, estou tentado fazer uma macro mas empaquei num modo de fazer o retorno sequencial.

 

Private Sub CommandButton1_Click()
Dim rngD As Range, rngO As Range, LR As Long

Limit
If Plan_Aq <> Plan_Princ Then
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For cs = 1 To 10
Seto = "Se" & cs

""""""código""""""""""
If Me.Controls(Seto) = True Then Application.Run Suo(cs - 1): GoSub Lad1

''''''''''''' código"""""""""
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
If Plan_Aq = Plan_Princ Then MsgBox "Por Favor NÃO faça isso Aqui!"
Exit Sub
'''----------------------------------------------------------------------------------------------------****
Lad1:
If ResetM = True Then Reseta

If dataM = True Then GoSub ComData
If ordemcM = True Then Cres
If ReagruM = True Then Reagrupa

"código"
Return            <<<<<<como fazer voltar para o final de GoSub Lad1 caso comdata seja executada .
'''----------------------------------------------------------------------------------------------------****
ComData:
"código"   
Return

.....Outros
End Sub

 

Tem como fazer esse retorno para o gosub que o chamou, ou somente embutindo no meio do "IF"?

Alguma alternativa para isso funcionar sem ter que desmembrar a macro?

pensei em usar Go to com rotulo, mas como pode ter outras alternativas decidi perguntar.

 

Até.

 


 

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...