Experto Dam favor una ayuda

Si en la siguiente macro debiéramos analizar el resultado de 2 celdas por ejemplo g15 e i 15

como se debería acondicionar la macro

Private Sub Worksheet_Calculate()
'Por.DAM
imagen = "picture 676"
If Range("G15") = 0 Then
If Range("I15") = 0 Then
ActiveSheet.Shapes(imagen).Visible = True
Else
ActiveSheet.Shapes(imagen).Visible = False
MsgBox "RECUERDE INGRESAR LOS DATOS MANUALMENTE EN EL CUADRO COMPARATIVO", vbExclamation
End If
End If
End Sub

1 respuesta

Respuesta
1

Prueba con esta:

Private Sub Worksheet_Calculate()
'Por.DAM
imagen = "picture 676"
If Range("G15") = 0 And Range("I15") = 0 Then
    ActiveSheet.Shapes(imagen).Visible = True
Else
    ActiveSheet.Shapes(imagen).Visible = False
    MsgBox "RECUERDE INGRESAR LOS DATOS MANUALMENTE EN EL CUADRO COMPARATIVO", vbExclamation
End If
End Sub

Saludos.DAM
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas