calculo de stock con macro

26/10/2008 - 17:28 por vero | Informe spam
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

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
26/10/2008 - 21:55 | Informe spam
hola, vero !

con lo que has expuesto hasta ahora, (yo ?) no consigo "ver" como armar un arreglo de datos "como el tuyo" -???-
lo que si te puedo comentar (como te dijeron en el otro foro) es que tienes dos o tres alternativas :-((

(no lo tomes a mal, pero...) no entiendo aun el por que "les cuesta" tanto trabajo atender a peticiones por "mas detalles" -???-
que tipo de "detalles" ??? => los "suficientes" que...
"> ... permitan (a los que estamos de este lado del mensaje)"
"> (re)crear "tu modelo" (o sea, la situacion exacta que se ha de resolver)..."

disculpame por "el ladrillo" que sigue... (si quieres... no lo leas) y...
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

1) considera que las propuestas se "ofrecen" de acuerdo con "los detalles" expuestos en la consulta

2) por los detalles en esta consulta, es probable que ni siquiera sea necesaria una macro
(solo que hacen falta los detalles que permitan (re)crear el modelo, arreglo, situacion, ... que se ha de resolver) -?-

3) entiendo que se suponga que un "ejemplo" pudiera servir de base (siempre y cuando el ejemplo se apegue a la realidad)
p.e. si hablamos de excel, se "ve" mejor si expones los rangos, titulos, tipo de datos, que, como, cuando, de donde, a donde, etc.

4) (para mi)... la forma en que deberian exponerse las consultas en foros tecnicos (como este)
debiera contener (como minimo) lo siguiente:
-> claridad... detalle... procedimiento... resultado esperado
(opcional: formulas y funciones intentadas, rangos, etc.)
-> de la "claridad" en el "detalle"... se obtiene la claridad del "procedimiento"
-> de la claridad en el procedimiento... se obtiene el "resultado esperado"

5) te paso algunos enlaces a "consejos y sugerencias" acerca de como preguntar en este tipo de foros

cuando tengas un tiempecito disponible, da una vuelta por esta pagina:
- aqui puedes encontrar algunos "tips" de como se debiera postear en los grupos de noticias...
-> Hints And Tips For New Posters In The Excel Newsgroups
http://www.cpearson.com/Excel/newposte.htm
tratando de NO omitir el comentario y el enlace del punto 9 (adjuntos en los mensajes)
-> http://www.cpearson.com/Excel/Attachments.htm

-> o... si le tienes "flojerilla" al ingles... me he permitido hacer una (modesta) traduccion...
que puedes visitar en: -> http://excel4all.spaces.live.com/

-> aqui tienes otras paginas con "sugerencias" a la hora de plantear consultas en foros publicos:
How to ask a question
http://support.microsoft.com/kb/555375/en-us
Como hacer una pregunta
http://support.microsoft.com/kb/555375/es
Como hacer preguntas de manera inteligente
http://www.sindominio.net/ayuda/pre...entes.html

(probablemente) entenderas algunas de mis respuestas a este tipo de consultas :D
Respuesta Responder a este mensaje
#2 vero
02/11/2008 - 18:13 | Informe spam
un poco avergonzada por tanta pregunta mal planteada. Realmente
gracias por su apoyo
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida