¿Que me falla aquí?

Hola.

Solo pon varia lo siguiente y listo.

Private Sub CommandButton1_Click()
If Range("B5") = 0 Then
Range("b5") = 15
Else: If Range("B5") = 15 Then Range("b5") = 30
End If
End Sub




"phelix69" escribió en el mensaje
news:

Hola a todos:

¿Me podriais decir que me falla?

Private Sub CommandButton1_Click()
If Range("B5") = 0 Then Range("b5") = 15
ElseIf Range("B5") = 15 Then Range("b5") = 30
End Sub

Me sale un error de compilación diciendo Else sin if

Gracias por todo

hola, !

Me podriais decir que me falla?

Private Sub CommandButton1_Click()
If Range("B5") = 0 Then Range("b5") = 15
ElseIf Range("B5") = 15 Then Range("b5") = 30
End Sub

Me sale un error de compilacion diciendo Else sin if

revisa los ejemplos en la ayuda en linea de vba/excel {F1} y analiza:
=> como es la estructura de las diferentes formas de If...End If (p.e.)

una sola condicion ?
forma 1:
If <condicion> Then
' aqui las acciones SI se cumple la condicion
End If

forma 2 (en una sola linea y "te ahorras" el End If:
If <condicion> Then acciones

varias condiciones ? (NO te puedes "ahorrar" el End If)
If <condicion 1> Then
' aqui las acciones SI se cumple la condicion 1
ElseIf <condicion 2> Then
' aqui las acciones SI se cumple la condicion 2
ElseIf <condicion 3> Then
' etc. etc. etc.
End If

hay mas variantes, asi que... si cualquier cosa (o informacion adicional)... comentas ?

saludos,
hector.

Problema solucionado

Gracias a todos por vuestras soluciones y consejos.



"phelix69" escribió:

Hola a todos:

¿Me podriais decir que me falla?

Private Sub CommandButton1_Click()
If Range("B5") = 0 Then Range("b5") = 15
ElseIf Range("B5") = 15 Then Range("b5") = 30
End Sub

Me sale un error de compilación diciendo Else sin if

Gracias por todo