Macro que me genere un MsgBox
Buen dia de nuevo experto, estoy generando un archivo donde necesito una macro para lo siguiente:
En la celda A1 selecciono de una validación de datos un valor por ejemplo "Auto" y en la celda A5 aparece otro valor por ejemplo "Rojo", el valor de la celda A5 es dependiente de la selección de A1.
Algunas veces al seleccionar y rellenar la celda A1 no hay valor para A5 y es ahi donde quiero que me genere el MsgBox "No hay dato" (por citar un ejemplo).
En otras palabras, que cuando yo rellene la celda A1 y en la celda A5 aparezca en blanco me genere el MsgBox.
Saludos, Javier
1 Respuesta
Te anexo la macro, la celda A5 deberá estar blanco para que te salga el mensaje, si te aparece un mensaje de error como #N/A o #!REF etc, la macro no te regresará un mensaje.
Sigue las Instrucciones para poner la macro en worksheet
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
4. Del lado derecho copia la macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1,A5")) Is Nothing Then
On Error Resume Next
If Range("A5") = "" Then
If Err.Number = 0 Then
MsgBox "No hay dato"
Else
End If
End If
End If
End SubSaludos.dam
Si es lo que necesitas.
