¿Como crear una BD para control de compras de productos?

[juandeviaje]

Hola.
Necesito crear una planilla para controlar las compras de productos. Tengo una hoja de INGREDIENTES y otra hoja de COMPRAS.

En la hoja de INGREDIENTES aparecerian sin repetirse y mostrando la información correspondiente a la ultima y la penúltima compra del ingrediente en cuestion.

En la hoja COMPRAS iría ingresando cada vez que realizo una compra de cada ingrediente.

Las columnas serian iguales para ambas hojas: PRODUCTO; PRECIO; FECHA; MARCA; PROVEEDOR

Para las funciones de busqueda correspondientes a la ultima y penultima compra realizada que me funciones conviene utilizar?

Gracias

[Kyodake]

Sub buscarCompras()
Dim ingredientes As Worksheet
Dim compras As Worksheet
Dim ultimaCompra As Long
Dim penultimaCompra As Long
Dim producto As String
Dim precio As String
Dim fecha As String
Dim marca As String
Dim proveedor As String

'Establece la hoja INGREDIENTES y COMPRAS
Set ingredientes = ThisComponent.Sheets("INGREDIENTES")
Set compras = ThisComponent.Sheets("COMPRAS")

'Recorre cada fila de la hoja COMPRAS
For i = 1 To compras.Rows.Count
    'Obtiene los valores de cada columna
    producto = compras.getCellByPosition(0, i).String
    precio = compras.getCellByPosition(1, i).Value
    fecha = compras.getCellByPosition(2, i).String
    marca = compras.getCellByPosition(3, i).String
    proveedor = compras.getCellByPosition(4, i).String

    'Busca la fila correspondiente al producto en la hoja INGREDIENTES
    For j = 1 To ingredientes.Rows.Count
        If ingredientes.getCellByPosition(0, j).String = producto Then
            'Almacena la fecha de la última compra
            ultimaCompra = i
            'Almacena la fecha de la penúltima compra
            penultimaCompra = j
            'Escribe los valores en la hoja INGREDIENTES
            ingredientes.getCellByPosition(1, j).Value = precio
            ingredientes.getCellByPosition(2, j).String = fecha
            ingredientes.getCellByPosition(3, j).String = marca
            ingredientes.getCellByPosition(4, j).String = proveedor
            Exit For
        End If
    Next j
Next i

End Sub

Este código recorre cada fila de la hoja COMPRAS y busca el producto correspondiente en la hoja INGREDIENTES. Si encuentra una coincidencia, almacena los valores de la última compra y los escribe en la hoja INGREDIENTES. También almacena los valores de la penúltima compra y los escribe en la hoja INGREDIENTES.