Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Duda con codigo VBA

19/12/2004 - 13:26 por Megamo | Informe spam
Ayuda Hacer una pregunta
Hola a todos

Estoy intentando hacer lo siguiente.
Tengo una tabla con unas cantidades en ellas. Cada columna tiene dos fechas
y una cantidad:
fecha1 fecha3 fecha5
fecha2 fecha4 fecha6
cantidad1 cantidad2 cantidad3

luego tengo otra tabla con fechas en ella
fechax fechax+1 fecha x+2

Usando codigo VB, intento que me lea las fechas de cada columna de la tabla1
y luego lo compare con las fechas de la tabla2 y si esta está entre esas
fechas, me coja ese valor, que recorra todas las columnas de la tabla1 y que
al final ponga debajo de las fechas de la tabla2 la suma de las cantidades.

Igual con un ejemplo se ve mejor:
TABLA1
20/10/2004 21/10/2004 28/11/2004 .
31/12/2004 31/12/2004 29/11/2004 .
10 15 18 .

TABLA2
20/10/2004 21/10/2004 15/01/2005 ..
10 25 0 ..

Se le ocurre a alguien algo?

Gracias de antemano
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Daniel.M
19/12/2004 - 18:50 | Informe spam
Hola,

Supongamos que sus Tabla1 datos en A1:C3 y que sus Tabla2 datos (fechas) en
A10:C10:

Me parecea mas facile de hacerlo con una formula directamente en la hoja como en
A11:
=SUMAPRODUCTO((A10>=$A1:$C1)*(A10<=$A2:$C2)*$A3:$C3)

y copiar la formula hasta C11 (o mas)

Pero si lo quiere con VBA:

Sub calctot()
Dim i As Integer, Rg As Range

Set Rg = Range("A10") ' Primera celda de sus fechas de Tabla2

For i = 1 To 3 ' o numbre de columnas
Range("A11")(1, i) = Evaluate("SUMPRODUCT((" & Rg(1, i).Address & _
">=$A1:$C1)*(" & Rg(1, i).Address & "<=$A2:$C2),$A3:$C3)")
Next i

End Sub

Saludos,

Daniel M.

"Megamo" wrote in message
news:
Hola a todos

Estoy intentando hacer lo siguiente.
Tengo una tabla con unas cantidades en ellas. Cada columna tiene dos fechas
y una cantidad:
fecha1 fecha3 fecha5
fecha2 fecha4 fecha6
cantidad1 cantidad2 cantidad3

luego tengo otra tabla con fechas en ella
fechax fechax+1 fecha x+2

Usando codigo VB, intento que me lea las fechas de cada columna de la tabla1
y luego lo compare con las fechas de la tabla2 y si esta está entre esas
fechas, me coja ese valor, que recorra todas las columnas de la tabla1 y que
al final ponga debajo de las fechas de la tabla2 la suma de las cantidades.

Igual con un ejemplo se ve mejor:
TABLA1
20/10/2004 21/10/2004 28/11/2004 .
31/12/2004 31/12/2004 29/11/2004 .
10 15 18 .

TABLA2
20/10/2004 21/10/2004 15/01/2005 ..
10 25 0 ..

Se le ocurre a alguien algo?

Gracias de antemano



Preguntas similares

 

Busqueda sugerida :