MsgBox dependiente de fórmulas y condicionales
En la Hoja5, Q3:Q está lleno de fórmulas y en M3M se agrega texto mediante validación de datos. Necesitaría que cuando alguna celda de Q de como resultado menor a 1 y en M se ponga el texto "Facturado", entonces aparezca un msgbox que indique un texto x y el valor que hay en la fila activa, columna D... Ejemplo:
- La fórmula en Q32 da un resultado menor a 1
- En M32 se coloca el texto "Facturado"
- Entonces, MsgBox que indique: "Cliente: " + El texto que está escrito en D32 + "OV N°: " + El texto que está escrito en C32
1 respuesta
Si quieres que funcione cuando capturas el dato "Facturado" en la columna M, entonces pon el siguiente código en los eventos de tu hoja.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M3:M" & Rows.Count)) Is Nothing Then
If Target.CountLarge > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If LCase(Target.Value) = LCase("Facturado") And Range("Q" & Target.Row).Value < 1 Then
MsgBox "Cliente: " & Range("D" & Target.Row) & " OV N°: " & Range("C" & Target.Row), vbExclamation
End If
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
Dante, en primer lugar gracias...
En realidad necesito que la macro se active cuando en Q la fórmula es menor a 1. Sería una activación a partir del cálculo de la fórmula en Q...
Es más, mejor que no tome en cuenta que en M diga "Facturado"... Sólo que tome en cuenta que en Q el resultado sea menor a 1.
Pon aquí la fórmula que tienes en la celda Q
