Duda para aplicar un MsgBox en una Macro de Stock

Tengo un gran problema, espero poder obtener su ayuda! En una hoja tengo 4 columnas, en la C la descripción del producto, en la G el Stock, en la H las entradas y en la I las salidas. Esta hoja responde al siguiente Macro:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'controla col H (Entradas) actualizando col G (STOCK)
If Not Intersect(Target, Range("H27:H2000")) Is Nothing Then
Target.Offset(0, -1) = Target.Value + Target.Offset(0, -1).Value
Target.Offset(0, 0).ClearContents
'controla col I (Salidas) actualizando col G (STOCK)
ElseIf Not Intersect(Target, Range("I27:I2000")) Is Nothing Then
Target.Offset(0, -2) = Target.Offset(0, -2).Value - Target.Value
Target.Offset(0, 0).ClearContents
End If
End Sub
El problema es que para salvar cualquier error frente a un valor mal cargado, necesito que cada vez que entro una entrada o una salida me salga un mensaje que me diga: se han ingresado "X" cantidad de piezas al stock o para el caso de salidas : se han descontado "X" cantidad del Stock. Obviamente que en la "X" me salga la cantidad que ingreso.
Espero su respuesta... Muchas Gracias! Saludos...

2 respuestas

Respuesta
1
Do While ActiveCell.Value <> ""
X = MsgBox("Desea Ingresar " & CANTIDAD & " piezas al Stock.", vbYesNo + vbQuestion, "Opción")
    If X = vbYes Then
        Target.Offset(0, -1) = Target.Value + Target.Offset(0, -1).Value
        Target.Offset(0, 0).ClearContents
    Else
        Target.Offset(0, 0).ClearContents
    End If
Loop
Estúdialo y adáptalo.
Intenté con algo así... pero el problema es que el MsgBox se me repite para cada fila de la hoja... : (
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim CANTIDAD As Integer
'controla col H (Entradas) actualizando col G (STOCK)
If Not Intersect(Target, Range("H27:H2000")) Is Nothing Then
CANTIDAD = Target.Value
X = MsgBox("Desea Ingresar " & CANTIDAD & " piezas al Stock.", vbYesNo + vbQuestion, "Opción")
    If X = vbYes Then
        Target.Offset(0, -1) = Target.Value + Target.Offset(0, -1).Value
        Target.Offset(0, 0).ClearContents
    Else
        Target.Offset(0, 0).ClearContents
    End If
'controla col I (Salidas) actualizando col G (STOCK)
ElseIf Not Intersect(Target, Range("I27:I2000")) Is Nothing Then
CANTIDAD = Target.Value
X = MsgBox("Desea Descontar " & CANTIDAD & " piezas al Stock.", vbYesNo + vbQuestion, "Opción")
    If X = vbYes Then
        Target.Offset(0, -2) = Target.Offset(0, -2).Value - Target.Value
        Target.Offset(0, 0).ClearContents
    Else
        Target.Offset(0, 0).ClearContents
    End If
End If
End Sub
Muchas gracias por tu colaboración... pero no logor hacerlo funcionar... esto ya me esta preocupando! : (
Solo tienes que poner las instrucciones que te dejé.
Respuesta

En el link explico paso a paso como crear un msgbox, te paso el link por si te es útil

http://www.programarexcel.com/2013/10/como-crear-un-msgbox-vba-en-excel.html 

En http://programarexcel.com encontrarás muchos ejemplos que usan msgbox.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Planilla de Stock

Elsa! Una vez más, recurro a su experiencia y conocimiento. Tengo una planilla con unos 1000 productos detallados en la comlumna A, en la columna B cargo el stock, en la columna C figuran las entradas y en la columna DE figuran las salidas. Cuando...
1 respuesta

Ayuda código vba ejecuta una resta urgente

Queridos amigos tengo el siguiente problemita tengo este código Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'controla col H actualizando col G If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then Target.Offset(0, -1) =...
1 respuesta

Hacer referencia a un valor en una hoja distinta macro

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'rango hasta la celda 2000 If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then 'columna H actualizando col G Target.Offset(0, -1) = Target.Offset(0, -1).Value - Target.Value 'acumula...
1 respuesta

Actualizar datos en base de datos

¿Cómo agrego la opción de que antes de realizar una búsqueda nueva, o bien agregando un botón nuevo, actualice cualquier dato que se modifique, directamente en la base? En lectura simple sería: Hoja Búsqueda: Si se modifica cualquier dato, en rango...
1 respuesta

Macro buscar columna breve con palomeado

Datos con palomeado y datos sin palomeado Caso dato buscado con palomeado: (1) en celda busqueda digite "248" y di enter. (2) Encuentra la columna llamada "PALOMEADO", y pregunta ¿Escriba su palomeado? Respondí "A" (puede ser cualquier dato). (3)...
1 respuesta

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta

Llamar macro con valores de celda

Tengo el siguiente código que ejecuta una macro al cambiar el volor de una celda en un derterminado rango: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("k5:k300")) Is Nothing Then Exit Sub End If ' If Target >= 0...
1 respuesta

MACRO realice búsqueda en donde se coloque la celda de "busqueda" (en 1ra fila)

Dante la presente es una petición o mejora al MACRO desarrollaste en la pregunta " MACRO para búsqueda y reemplazo BREVE" cuya MACRO es la siguiente (la cual funciona muy bien) Private Sub Worksheet_Change(ByVal Target As Range)'Por.Dante Amor If...
1 respuesta

Validar "Ñ" y Caracteres Especiales

Estimado estoy realizando una Macro y Necesito ayuda para validar en un rango de celdas en excel las "Ñ" y los caracteres especiales que al momento de presionar el enter si existe dentro del parrafo escrito uno de estos caracteres me muestre un mensaje.
1 respuesta

Descontar automáticamente el stock una vez realizada la venta

Tengo unas planillas en excel, en una hoja tengo el stock (ingresado por códigos) y en la otra las ventas del dia, quiero que una vez que realizo la venta de la unidad, ¿Me descuente automáticamente el stock como hago?
1 respuesta