Problemas con If, Then y Else en macro
Tengo el siguiente código pero me sale el siguiente mensaje de "Error de compilación, Else sin IF"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$AQ$3" And ActiveCell = "GENERAR" Then Call ABRE
ElseIf ActiveCell = "NO GENERAR" Then
ActiveCell.Offset(1, 0).Select
End If
If Target.Address = "$AQ$4" And ActiveCell = "GENERAR" Then Call ABRE
ElseIf ActiveCell = "NO GENERAR" Then
ActiveCell.Offset(1, 0).Select
End If
If Target.Address = "$AQ$5" And ActiveCell = "GENERAR" Then Call ABRE
ElseIf ActiveCell = "NO GENERAR" Then
ActiveCell.Offset(1, 0).Select
End If
End Sub
1 respuesta
Las instrucciones "Call ABRE" deben ir en la siguiente fila, así
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$AQ$3" And ActiveCell = "GENERAR" Then Call ABRE ElseIf ActiveCell = "NO GENERAR" Then ActiveCell.Offset(1, 0).Select End If If Target.Address = "$AQ$4" And ActiveCell = "GENERAR" Then Call ABRE ElseIf ActiveCell = "NO GENERAR" Then ActiveCell.Offset(1, 0).Select End If If Target.Address = "$AQ$5" And ActiveCell = "GENERAR" Then Call ABRE ElseIf ActiveCell = "NO GENERAR" Then ActiveCell.Offset(1, 0).Select End If End Sub
Excelente ya no me sale ese error pero no consigo que me ejecute la macro abre() en la siguiente celda (una abajo) si la celda anterior es igual a "No Generar".
No entiendo qué es lo que quieres realizar.
Explícame paso a paso qué quieres hacer para poder hacerte la macro.
Podrías también valorar la respuesta a la pregunta.
