calculo de stock con macro

Hola! Veronia.
¿Me equivoco o estás reiterando la consulta que ya te respondí en
http://www.microsoft.com/communitie...el&tidå6d1074-c7f6-45fc-9a42-e9e2d1d3e82d&cat=&lang=&cr=&sloc=&p=1 ?

Sería bueno que en aquél enlace comentaras si te fue útil la propuesta, si
la comprendiste, etc. etc. etc., como para perfeccionarla ó modificarla, no?

Saludos, Cacho.

hola, Veronia !

- no habias comentado antes que ya cuentas con un formulario de usuario ;)
- la "idea" de codigo que expones tiene algunas "inconveniencias" para su ejecucion (p.e.)
- si haces una declaracion de variables del tipo: -> Dim fecha As Date
- no debieras usar una instruccion del tipo: -> Set fecha = Worksheets("base").Range("A:A").Find(Dato, LookIn:=xlValues)
- "Set" se utiliza para establecer referencias a "objetos" asignadas a propiedades y/o a variables declaradas de tipo objeto
- tampoco puedes "comparar" fechas sin tomar en cuenta (posibles/seguras) diferencias en la configuracion regional
(p.e. cuando pones: If fecha >= 1 / 10 / 8 & fecha <= 31 / 10 / 8 Then ... )
- la "acumulacion" en tu variable (cuenta = cuenta + 1) no esta considerando "la suma" de los "stocks" (solo "la cuenta")
- seria conveniente si expones "de donde y/o como" es que se toman las variables "Dato" y "Producto"
- y toma en cuenta que no conviene establecer su referencia a TODA una columna (mismo caso que la variable "fecha")

creo que sera mejor si expones detalles (reales) con mayor claridad -?-

saludos,
hector.

__ OP __

Hola foro nuevamente solicitando su ayuda urgente:
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

Gracias cacho realmente me sirvio, muchas gracias