Notifications
Clear all

Problema com loop

2 Posts
2 Usuários
0 Reactions
987 Visualizações
(@silverio)
Posts: 50
Trusted Member
Topic starter
 

Boa tarde !!!

Tenho a seguinte rotina, o que tenho que fazer para que depois do loop ele de continuidade no próximo comando, pois quando termina o loop está saindo da rotina.

'Apagar até chegar na linha desejada
Range("C1").Select
WCLinha = 1
Do While Cells(WCLinha, 3).Value <> ""
If Cells(WCLinha, 3).Value <> "Num. Ordem Vinculada" Then
Rows(WCLinha).Delete
Else
WCLinha = WCLinha + 1
End If

If Cells(WCLinha, 3).Value = "Num. Ordem Vinculada" Then Exit Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Loop
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''aqui

ActiveWorkbook.Worksheets("OM").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("OM").Sort.SortFields.Add Key:=Range("B2:B20000"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("OM").Sort
.SetRange Range("B1:I20000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

 
Postado : 31/10/2016 12:09 pm
EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

Boa tarde, Silvério.

Se está ocorrendo de encerrar a rotina ainda quando dentro do Loop, é sinal de que a condiçãoIf Cells(WCLinha, 3).Value = "Num. Ordem Vinculada" Then Exit Sub está sendo verdadeira, portanto encerra devido ao Exit Sub.
Se, ao invés de sair da Sub quando a condição for verdadeira, vc quiser sair do Loop, use Exit Do no seu lugar.

 
Postado : 31/10/2016 12:38 pm