Necesito hacer una macro q me permita calcular el stock de un producto
determinado por mes, las columnas son fecha,producto,cantidad,esta en
un archivo de excel llamado producto.xls y la hoja se llama base.Esta
es mi idea primitiva, por favor ayúdenme a corregirla,Gracias por la
ayuda
Fecha producto stock
10/09/08 leche 2
13/09/08 chocolate 3
01/10/08 leche 1
Private Sub cmdavance_Click()
Dim cuenta As Integer
Dim fecha As Date
Dim producto As String
'crear y leer las fechas de cada fila o registro y comparar mas
adelante si esta en el rango
Set fecha = Worksheets("base").Range("A:A").Find(Dato,
LookIn:=xlValues)
'crear y leer de la columna B para identificar el producto
Set producto = Worksheets("base").Column("B")
If fecha >= 1 / 10 / 8 & fecha <= 31 / 10 / 8 Then
If producto = "leche" Then
cuenta = cuenta + 1
End
End
txtprod.Value = cuenta
end sub
Leer las respuestas