Ayuda para modificar Código VBA
Necesito por favor ayuda de algún experto, requiero modificar ejecución de seleccionar una Celda a ejecutar en varias celdas.
Tengo el siguiente Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("INVENTARIO").Cells(4, 11) < 5 Then
MsgBox ("Las unidades de Bodegas, se están agotando"), vbCritical, "AVISO"
End If
End Sub
En él al presentarse cambio en el valor de la celda K4 y este pasa a ser menor a 5 se ejecuta el MsgBox con la advertencia. Necesito modificar que la misma advertencia Crítica se active cuando ese valor varíe a menos 5 no solo en una celda K4 sino que la misma se debe dar en las celdas desde la K4 hasta la K111, M3 a M16 de la misma hoja y O5 de la Hoja PEDIDOS.
De antemano muchas gracias.
1 respuesta
Copia la siguiente macro en la hoja "productos"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Min(Range("K4:K111,M3:M16")) < 5 Then
MsgBox ("Las unidades de Bodegas, se están agotando"), vbCritical, "AVISO"
End If
End Sub
Y en la hoja pedidos, copia la siguiente macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("O5") < 5 Then
MsgBox ("Las unidades de Bodegas, se están agotando"), vbCritical, "AVISO"
End If
End Sub
Saludos. Dam
Si es lo que necesitas.
