Consulta para Marcrodos
Saludos
Hace un tiempo me envío el siguiente código para modificar el stock de un inventario sin importar el lugar donde se pusiera el nombre del producto y la cantidad.
Sub busca()
Dim fila As Integer
fila = 2
While Sheets("hoja1").Cells(fila, 1) <> Empty
dato = ActiveCell.Offset(-1, -1)
dato1 = ActiveCell.Offset(-1, 0)
If Sheets("hoja1").Cells(fila, 1) = dato Then
Sheets("hoja1").Cells(fila, 2) = Sheets("hoja1").Cells(fila, 2) + dato1
stock = Sheets("hoja1").Cells(fila, 2)
MsgBox ("Stock actual es " & stock), vbInformation, "AVISO"
End If
fila = fila + 1
Wend
End Sub
Me gustaría saber si es posible hacerlo funcionar desde unas celdas especificas de la hoja2 en mi caso C2 con el nombre del articulo y D2 con la cantidad a restar del articulo en cuestión que se encuentra en la hoja1 (inentario)
Gracias de antemanos
1 Respuesta
Como estás, sube tu archivo desde http://www.programarexcel.com/p/contacto.html lo veo y te lo mando con la solución, no recuerdo bien el archivo me es más fácil si lo veo.
Enviado el archivo
Envie el archivo hace dos dias y aun ninguna repuesta
Ten paciencia tengo muchísimas preguntas.
Si los datos están están C2 y D2
Sub busca()
Dim fila As Integer
fila = 2
While Sheets("hoja1").Cells(fila, 1) <> Empty
dato = Sheets("hoja2").Cells(2, 3)
dato1 = Sheets("hoja2").Cells(2, 4)
If Sheets("hoja1").Cells(fila, 1) = dato Then
Sheets("hoja1").Cells(fila, 2) = Sheets("hoja1").Cells(fila, 2) + dato1
stock = Sheets("hoja1").Cells(fila, 2)
MsgBox ("Stock actual es " & stock), vbInformation, "AVISO"
End If
fila = fila + 1
Wend
End Sub
Hola fijate ahora los datos los toma de la hoja 2 celda cd y d2
visita http://programarexcel.com/
Gracias Sr. por su valioso tiempo
Y a había comenzado a utilizar el siguiente código para lo que deseo, pero es menos tedioso este corregido por usted.
Set resultado = Inventariox.Range("b:b").Find(Diariox.Cells(10, 3), , xlValues, xlWhole, xlByColumns, xlNext, False, , False)
'Guardando ubicación de la fila de la celda con el valor en hoja inventario
activa = resultado.Row
'Selección de de la hoja inventario para hacer descuento
Inventariox.Select
'Activación de la celda donde esta el nombre del articulo para usarla como referencia
Range("B" & activa) = ActiveCell
ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, 1) - Diariox.Cells(10, 4)
Mil gracias de nuevo
