¿Que me falla aquí?

02/08/2008 - 00:29 por phelix69 | Informe spam
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
 

Leer las respuestas

#1 Leonardo Anchiraico
02/08/2008 - 01:27 | Informe spam
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


Preguntas similares