SoloCodigo

Buenos Días.

Soy aprendiz principiante de visual Basic, con muchas ganas de aprender

Alguien podría ayudarme para ponerle un bucle Do While a esta rutina.

Muchas Gracias

Saludos cordiales.


Sub calcula_case()
    Dim Aero As String * 3
    Dim Valor1 As Single, Valor2 As Single, total As Single
    Valor1 = ActiveSheet.Range("C5").Value
    Valor2 = ActiveSheet.Range("D5").Value
    Aero = ActiveSheet.Range("A5").Value
   
    Select Case Aero
        Case "ACA"
            total = Valor1 + Valor2
        Case "BJX"
            total = Valor1 + Valor2
        Case "CJS"
            total = Valor1 + Valor2
        Case "CTM"
            total = Valor1 + Valor2
        Case Else
            total = 0
    End Select
    ActiveSheet.Range("F5").Value = total
End Sub