numeração de linhas não é mais necessário como antes onde se usava o numero de linha para goto e gosub
apesar de se poder usar numeração é mais facil usar uma etiqueta
goto destino
...
destino:
mas creio que se posa fazer a numeração manualmente
Sub teste()
1 d = 0
3 d = d + 1
2 Cells(1, 1) = d
4 If d < 10 Then GoTo 3 Else GoTo 5
5
End Sub
apesar da ordem numérica não fazer a mínima diferença como nesse exemplo.
Postado : 26/05/2014 4:23 pm