Modelo De Tuteo

Sub grafo_aux()
' borra los datos, pega la permutación y va creando el grafo auxiliar'
Worksheets("Grafo aux").Select
Range("c8:i500").Select
Selection.ClearContents
'Actualiza verificador'Worksheets("Grafo aux").Select
Range("aa107").Activate
Selection.Copy
Range("aa9").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
'Calcula el numero de nodos'
Setqtynodos = Range("b8")
Do While (qtynodos "X")
Set qtynodos = qtynodos.Offset(1, 0)
Loop
nodos = qtynodos.Offset(-1, -1).Value
'valores iniciales para el ciclo'
Set head = Range("h8")
Set tail =Range("i8")
Set tiempo = Range("s8")
Set verifica = Range("AA8")
Set head_aux = Range("d8")
Set tail_aux = Range("e8")
Set tiempo_aux = Range("f8")
head.Value = (-1)
i = 1

'Ciclos paragenerar grafo auxiliar'

Do While (i nodos) Then
verifica.Value = 0
Else
tail.Value = resago + 1
End If

Else
Worksheets("Grafoaux").Select
Range("h8:i8").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Set head = Range("h8")
Set tail = Range("i8")
Settiempo = Range("s8")
Set verifica = Range("aa8")
i = i + 1
parada = True
End If
Loop
Loop
End Sub


Sub bellman()
'Alista la pagina de bellman'Worksheets("Algoritmo bellman").Select
Range("a3:d200").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("h4:j200").Select
Range(Selection,Selection.End(xlDown)).Select
Selection.ClearContents
Range("n9:bl18").Select
Selection.ClearContents
Range("bn8:bo8").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
'copia los datos delgrafo auxiliar'
Worksheets("Grafo Aux").Select
Range("d8:f8").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Worksheets("Algoritmo bellman").Select
Range("b3").Select...