---

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.
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
Esta es mi idea primitiva por favor ayudenme a corregirla
Anita 

---

Hola
no se si ya solucionaste tu problema, este post del foro esta muy abandonado teniendo muchos usuarios que usan excel y posibilidad de automatizar sus trabajos con Macros.


Saludos