Caja de texto (msgbox)
Tengo un libro en excel con tres hojas, la primera carga los ingresos, la segunda los egresos y en la última los saldos (deben ser en tres hojas diferentes, ya que la de saldo debe estar bloqueada), lo que necesito es que cuando los egreso superan a los ingreso me envíe una caja de texto (msgbox), alertando que no se puede cargar porque se excede de la mercadería existente. Desde ya muchas gracias
1 Respuesta
Respuesta de Enrique Bernal
1
Pues para hacer esto deberías en tu código validar antes de hacer el descargo de mercadería, no se como tienes tu codificación pero deberías agregarle algo como esto:
Para mi ejemplo el saldo esta en la columna E de la Hoja3, y el código del producto está en la columna A
Sub Control()
'
codigo = "aqui debes colocar el codigo del producto del que buscas el saldo"
Sheets("Hoja3").Select
Columns("E:E").Select
Selection.Find(What:="codigo", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
fila = ActiveCell.Rows
valor1 = "Aqui debes colocar la cantidad que vas a egresar"
valor2 = Range("E" & fila).Value
If valor1 > valor2 Then
MsgBox "El valor que intenda descargar es mayor al valor que mantiene de saldo en " & valor2 - valor1 & "Favor revisar la cantidad o los Ingresos No Aplicados"
Else
' Aqui debe ir tu codigo actual, es decir lo quie quieres que ocurra si el valor que vas a descargar es menor al stock actual.
End If
End Sub
Para mi ejemplo el saldo esta en la columna E de la Hoja3, y el código del producto está en la columna A
Sub Control()
'
codigo = "aqui debes colocar el codigo del producto del que buscas el saldo"
Sheets("Hoja3").Select
Columns("E:E").Select
Selection.Find(What:="codigo", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
fila = ActiveCell.Rows
valor1 = "Aqui debes colocar la cantidad que vas a egresar"
valor2 = Range("E" & fila).Value
If valor1 > valor2 Then
MsgBox "El valor que intenda descargar es mayor al valor que mantiene de saldo en " & valor2 - valor1 & "Favor revisar la cantidad o los Ingresos No Aplicados"
Else
' Aqui debe ir tu codigo actual, es decir lo quie quieres que ocurra si el valor que vas a descargar es menor al stock actual.
End If
End Sub
