Why Select Case doesn't work in this code VBA?

[J_RMCF]

I have to calculate "Costo" (Cost) by Select Case, but whe I run the macro it just put 0 in Cost not the numbers I put in the macro. Something is missing and I don't know what. Cost (P5-P50) Tipo de Pase (O5-O50)



Sub Ejercicio1()


Dim Estacionamiento As String
Dim Casillero As String
Dim TipoDePase As String
Dim Costo As Double
Dim contador As Double


contador = 5
Range("P5").Select


Do While contador <= 50


Select Case TipoDePase
Case "Normal":
Costo = 95200
Case "Lounge":
Costo = 280000
Case "Lounge Premium":
Costo = 392000

End Select


ActiveCell.Offset(1, 0).Select
contador = contador + 1


Loop




End Sub

 

[lrobbo314]

You're never assigning a value to 'TipoDePase'.

 

[J_RMCF]

Hi!,

And how do I do that??

Thanks!!

 

[lrobbo314]

Try this. It assigns the r variable to your range in 'O5:50'. Then it loops through each cell, uses the 'Select Case' to assign a value to 'Costo', then puts that value in column 'P'.

Sub Ejercicio1()
Dim Estacionamiento As String
Dim Casillero As String
Dim TipoDePase As String
Dim Costo As Double
Dim contador As Double

Dim r As Range, cel As Range

Set r = Range("O5:O50")

For Each cel In r
    Select Case cel.Value
        Case "Normal":
            Costo = 95200
        Case "Lounge":
            Costo = 280000
        Case "Lounge Premium":
            Costo = 392000
    End Select
    
    cel.Offset(, -1).Value = Costo
Next cel

End Sub

 

[J_RMCF]

Thank you!!

It worked :D