Macro excel - necesito seguir un stock
lo que quiero es simple pero no se hacerlo.
Se copiar datos armando bases de una hoja a otra pero lo que no se es que busque si existe para que no se repitan.
Yo quiero que al escribir 0A123 en la hoja "ingreso" lo busque en la hoja "Stock", si NO esta que en la hoja "Stock" grave en la primer columna1 0A123 y en otra columna2 "1"
Pero SI ya estaba 0A123 en la hoja "Stock", que le sume 1 al valor existente al mismo producto en la columna2 sin crear otra linea.
Y necesito lo mismo para cuando vendo, pero debe ser lo mismo pero al revés.
1 respuesta
Te mando una solución, sigue mi ejemplo:
En la hoja INGRESO tengo la celda B4 donde introduzco el producto a buscar
En la hoja STOCK tengo la columna A con nombres de producto y la columna B con los valores numéricos.
Ejecuta esta macro y todo listo!
Sub datos()
'por Luismondelo
Sheets("ingreso").Select
valor = Range("b4").Value
Set busca = Sheets("stock").Range("a1:a100").Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
busca.Offset(0, 1).Value = busca.Offset(0, 1).Value + 1
Else
Sheets("stock").Range("a65536").End(xlUp).Offset(1, 0).Value = valor
Sheets("stock").Range("a65536").End(xlUp).Offset(0, 1).Value = 1
End If
Set busca = Nothing
End Subrecuerda finalizar y puntuar
