Como acortar tiempos de proceso ???

Hola Amigos:

Vuelvo a recurrir a Vosotros, para ver si mis complicaciones tienen alguna
solución.
Como siempre os pido que acepteis mis disculpas, si no se expresarme con
toda la claridad que sería mi deseo.

Estoy confeccionando una herramientita, para diariamente poder actualizar
una base de datos de 30.000 productos.

Tengo 2 posibles fuentes de consulta, para los datos que necesito en la
hoja
1, si no lo encuentro en la 1ª base de datos (hoja 2), tiene que ir a la
2ª
(hoja 3) a realizar la operación.

La gran pega es que son 32 columnas por los 30.000 registros en filas y se
"eterniza", ya que el cálculo se va a las 5 horas y pico.
Ya que estoy empleando, (después de averiguar la cantidad de filas que
son,
ya que, diariamente se crean productos nuevos:
x = 2
While Cells(x, 1) <> ""
x = x + 1
Wend

Formulas de este tipo:
=SI((INDICE('BASE_DATOS_1'!$I:$I;COINCIDIR($AM2;'BASE_DATOS_1'!$Q:$Q;0);1))=0;(INDICE('BASE_DATOS_2'!$I:$I;COINCIDIR($AM2;'BASE_DATOS_2'!$Q:$Q;1);1));(INDICE('BASE_DATOS_1'!$I:$I;COINCIDIR($AM2;'BASE_DATOS_1'!$Q:$Q;0);1)))

Con un paste & copy:
Worksheets("DL").Range("AP2:BU2").Copy _
Destination:=Range(Cells(3, 2), Cells((x - 1), 33))

Sabríais, por favor, decirme o aconsejarme algún otro sistema o si
conocéis
un método diferente, para conseguir realizar esta labor recortando
sensiblemente los tiempos de cálculo ???

Mil gracias por adelantado y si (como es seguro) me he dejado algún dato
sin
aportar, no dudeis, por favor, en comentarmelo.

Un reconocido abrazo.

Juan Carlos.

Sería mucho más rápido su utilizases buscarv en las fórmulas (previamente
tendrías que ordenar la base de datos por la columna de búsqueda).


"JC" escribió en el mensaje de noticias
news:
> Hola Amigos:
>
> Vuelvo a recurrir a Vosotros, para ver si mis complicaciones tienen alguna
> solución.
> Como siempre os pido que acepteis mis disculpas, si no se expresarme con
> toda la claridad que sería mi deseo.
>
> Estoy confeccionando una herramientita, para diariamente poder actualizar
> una base de datos de 30.000 productos.
>
> Tengo 2 posibles fuentes de consulta, para los datos que necesito en la
> hoja
> 1, si no lo encuentro en la 1ª base de datos (hoja 2), tiene que ir a la
> 2ª
> (hoja 3) a realizar la operación.
>
> La gran pega es que son 32 columnas por los 30.000 registros en filas y se
> "eterniza", ya que el cálculo se va a las 5 horas y pico.
> Ya que estoy empleando, (después de averiguar la cantidad de filas que
> son,
> ya que, diariamente se crean productos nuevos:
> x = 2
> While Cells(x, 1) <> ""
> x = x + 1
> Wend
>
> Formulas de este tipo:
> =SI((INDICE('BASE_DATOS_1'!$I:$I;COINCIDIR($AM2;'BASE_DATOS_1'!$Q:$Q;0);1))=0;(INDICE('BASE_DATOS_2'!$I:$I;COINCIDIR($AM2;'BASE_DATOS_2'!$Q:$Q;1);1));(INDICE('BASE_DATOS_1'!$I:$I;COINCIDIR($AM2;'BASE_DATOS_1'!$Q:$Q;0);1)))
>
> Con un paste & copy:
> Worksheets("DL").Range("AP2:BU2").Copy _
> Destination:=Range(Cells(3, 2), Cells((x - 1), 33))
>
> Sabríais, por favor, decirme o aconsejarme algún otro sistema o si
> conocéis
> un método diferente, para conseguir realizar esta labor recortando
> sensiblemente los tiempos de cálculo ???
>
> Mil gracias por adelantado y si (como es seguro) me he dejado algún dato
> sin
> aportar, no dudeis, por favor, en comentarmelo.
>
> Un reconocido abrazo.
>
> Juan Carlos.

Hola Pepe:

Y antes de nada, agradecer tu rápidez en responder y tu interés.
Es precisamente por ello (tener que ordenar las tablas), por lo que empleo
el indice-coincidir, que no el buscarV.
Y teniendo la misma raiz de busqueda (al menos es lo que me bulle por la
cabeza), no pensaba que me fuera a ahorrar una gran cantidad de tiempo.
Lo probaré, por supuesto. Hay que aprender y poder descartar por hecho y
no
por que me parezca a mí otra cosa.
No obstante, si os ocurriera alguna otra idea de como poder acortar los
tiempos de respuesta en la consulta, os lo agradecería infinito.

Mil gracias de nuevo Pepe, espero poderte decir algo en un par de días (lo
que tarde en realizar los cambios adecuados, ya que el funcionamiento
completo de la macro en un poco más completo y complejo de lo que he
resumido
por aquí.

Un abrazo.

Juan Carlos

"pepe" wrote:

Sería mucho más rápido su utilizases buscarv en las fórmulas (previamente
tendrías que ordenar la base de datos por la columna de búsqueda).


"JC" escribió en el mensaje de noticias
news:
> Hola Amigos:
>
> Vuelvo a recurrir a Vosotros, para ver si mis complicaciones tienen
> alguna
> solución.
> Como siempre os pido que acepteis mis disculpas, si no se expresarme
> con
> toda la claridad que sería mi deseo.
>
> Estoy confeccionando una herramientita, para diariamente poder
> actualizar
> una base de datos de 30.000 productos.
>
> Tengo 2 posibles fuentes de consulta, para los datos que necesito en la
> hoja
> 1, si no lo encuentro en la 1ª base de datos (hoja 2), tiene que ir a
> la
> 2ª
> (hoja 3) a realizar la operación.
>
> La gran pega es que son 32 columnas por los 30.000 registros en filas y
> se
> "eterniza", ya que el cálculo se va a las 5 horas y pico.
> Ya que estoy empleando, (después de averiguar la cantidad de filas que
> son,
> ya que, diariamente se crean productos nuevos:
> x = 2
> While Cells(x, 1) <> ""
> x = x + 1
> Wend
>
> Formulas de este tipo:
> =SI((INDICE('BASE_DATOS_1'!$I:$I;COINCIDIR($AM2;'BASE_DATOS_1'!$Q:$Q;0);1))=0;(INDICE('BASE_DATOS_2'!$I:$I;COINCIDIR($AM2;'BASE_DATOS_2'!$Q:$Q;1);1));(INDICE('BASE_DATOS_1'!$I:$I;COINCIDIR($AM2;'BASE_DATOS_1'!$Q:$Q;0);1)))
>
> Con un paste & copy:
> Worksheets("DL").Range("AP2:BU2").Copy _
> Destination:=Range(Cells(3, 2), Cells((x - 1), 33))
>
> Sabríais, por favor, decirme o aconsejarme algún otro sistema o si
> conocéis
> un método diferente, para conseguir realizar esta labor recortando
> sensiblemente los tiempos de cálculo ???
>
> Mil gracias por adelantado y si (como es seguro) me he dejado algún
> dato
> sin
> aportar, no dudeis, por favor, en comentarmelo.
>
> Un reconocido abrazo.
>
> Juan Carlos.

Vuelvo a recurrir a Vosotros, para ver si mis complicaciones tienen alguna
solución.
Como siempre os pido que acepteis mis disculpas, si no se expresarme con
toda la claridad que serà­a mi deseo.

Estoy confeccionando una herramientita, para diariamente poder actualizar
una base de datos de 30.000 productos.

Tengo 2 posibles fuentes de consulta, para los datos que necesito en la hoja
1, si no lo encuentro en la 1ª base de datos (hoja 2), tiene que ir a la 2ª
(hoja 3) a realizar la operación.

La gran pega es que son 32 columnas por los 30.000 registros en filas y se
"eterniza", ya que el cà¡lculo se va a las 5 horas y pico.
Ya que estoy empleando, (después de averiguar la cantidad de filas que son,
ya que, diariamente se crean productos nuevos:
x = 2
While Cells(x, 1) <> ""
x = x + 1
Wend

Formulas de este tipo:
=SI((INDICE('BASE_DATOS_1'!$I:$I;COINCIDIR($AM2;'BASE_DATOS_1'!$Q:$Q;0);1))=0;(INDICE('BASE_DATOS_2'!$I:$I;COINCIDIR($AM2;'BASE_DATOS_2'!$Q:$Q;1);1));(INDICE('BASE_DATOS_1'!$I:$I;COINCIDIR($AM2;'BASE_DATOS_1'!$Q:$Q;0);1)))

Con un paste & copy:
Worksheets("DL").Range("AP2:BU2").Copy _
Destination:=Range(Cells(3, 2), Cells((x - 1), 33))

Sabrà­ais, por favor, decirme o aconsejarme algàºn otro sistema o si conocéis
un método diferente, para conseguir realizar esta labor recortando
sensiblemente los tiempos de cà¡lculo ???

Mil gracias por adelantado y si (como es seguro) me he dejado algàºn dato sin
aportar, no dudeis, por favor, en comentarmelo.

Un reconocido abrazo.

Juan Carlos.

supongo que en tu código ya habrás inhibido el cálculo automático de las
fórmulas y la actualización de la pantalla.



"JC" escribió en el mensaje de noticias
news:
> Hola Pepe:
>
> Y antes de nada, agradecer tu rápidez en responder y tu interés.
> Es precisamente por ello (tener que ordenar las tablas), por lo que empleo
> el indice-coincidir, que no el buscarV.
> Y teniendo la misma raiz de busqueda (al menos es lo que me bulle por la
> cabeza), no pensaba que me fuera a ahorrar una gran cantidad de tiempo.
> Lo probaré, por supuesto. Hay que aprender y poder descartar por hecho y
> no
> por que me parezca a mí otra cosa.
> No obstante, si os ocurriera alguna otra idea de como poder acortar los
> tiempos de respuesta en la consulta, os lo agradecería infinito.
>
> Mil gracias de nuevo Pepe, espero poderte decir algo en un par de días (lo
> que tarde en realizar los cambios adecuados, ya que el funcionamiento
> completo de la macro en un poco más completo y complejo de lo que he
> resumido
> por aquí.
>
> Un abrazo.
>
> Juan Carlos
>
> "pepe" wrote:
>
>> Sería mucho más rápido su utilizases buscarv en las fórmulas (previamente
>> tendrías que ordenar la base de datos por la columna de búsqueda).
>>
>>
>> "JC" escribió en el mensaje de noticias
>> news:
>> > Hola Amigos:
>> >
>> > Vuelvo a recurrir a Vosotros, para ver si mis complicaciones tienen
>> > alguna
>> > solución.
>> > Como siempre os pido que acepteis mis disculpas, si no se expresarme
>> > con
>> > toda la claridad que sería mi deseo.
>> >
>> > Estoy confeccionando una herramientita, para diariamente poder
>> > actualizar
>> > una base de datos de 30.000 productos.
>> >
>> > Tengo 2 posibles fuentes de consulta, para los datos que necesito en la
>> > hoja
>> > 1, si no lo encuentro en la 1ª base de datos (hoja 2), tiene que ir a
>> > la
>> > 2ª
>> > (hoja 3) a realizar la operación.
>> >
>> > La gran pega es que son 32 columnas por los 30.000 registros en filas y
>> > se
>> > "eterniza", ya que el cálculo se va a las 5 horas y pico.
>> > Ya que estoy empleando, (después de averiguar la cantidad de filas que
>> > son,
>> > ya que, diariamente se crean productos nuevos:
>> > x = 2
>> > While Cells(x, 1) <> ""
>> > x = x + 1
>> > Wend
>> >
>> > Formulas de este tipo:
>> > =SI((INDICE('BASE_DATOS_1'!$I:$I;COINCIDIR($AM2;'BASE_DATOS_1'!$Q:$Q;0);1))=0;(INDICE('BASE_DATOS_2'!$I:$I;COINCIDIR($AM2;'BASE_DATOS_2'!$Q:$Q;1);1));(INDICE('BASE_DATOS_1'!$I:$I;COINCIDIR($AM2;'BASE_DATOS_1'!$Q:$Q;0);1)))
>> >
>> > Con un paste & copy:
>> > Worksheets("DL").Range("AP2:BU2").Copy _
>> > Destination:=Range(Cells(3, 2), Cells((x - 1), 33))
>> >
>> > Sabríais, por favor, decirme o aconsejarme algún otro sistema o si
>> > conocéis
>> > un método diferente, para conseguir realizar esta labor recortando
>> > sensiblemente los tiempos de cálculo ???
>> >
>> > Mil gracias por adelantado y si (como es seguro) me he dejado algún
>> > dato
>> > sin
>> > aportar, no dudeis, por favor, en comentarmelo.
>> >
>> > Un reconocido abrazo.
>> >
>> > Juan Carlos.
>>
>>