Cordial saludo, He declarado una variable publica
Public ctrlImage As Image
Lo que necesito es que cada vez que cambie el valor de una celda verifique cual fue el último Control Image asignado y ponga su propiedad Visible en False, lo que no se realizar es cuando inicio el macro obviamente la variable no tiene un valor asignado, ahi me genera el error.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$2" Then
Range("A5").Select
Range("A5").Validation.Delete
Range("A5").Value = ""
If Sheets("Hoja1").Range("A2") = "FIGURAS PLANAS" Then
Range("A5").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Formula1:="CUADRADO,RECTANGULO,TRIANGULO,ROMBO,TRAPECIO,CIRCULO"
Else
Range("A5").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Formula1:="ESFERA,CUBO,PARALELEPIPEDO,CILINDRO,CONO"
End If
End If
If Target.Address = "$A$5" Then
If Not IsNull(ctrlImage.Name) Then 'ERROR 91 ---> NO SE COMO RESOLVERLO
ctrlImage.Visible = False
End If
If Range("A5").Value = "CUADRADO" Then
Set ctrlImage = P1
ctrlImage.Visible = True
P1.Visible = True
End If
If Range("A5").Value = "RECTANGULO" Then
Set ctrlImage = P2
ctrlImage.Visible = True
End If
End If
End Sub
If Not IsNull(ctrlImage.Name)
deberías probar conIf ctrlImage Is nothing
. Creo que te puede venir bien esta explicación