Pegando matrices en un rango

16/11/2005 - 16:05 por Emilio | Informe spam
Hola!
estoy pegando una matriz con datos en un rango de una hoja, la matriz
(variant) contiene una columna con fechas y la otra con numeros reales. El
problema me surge cuando voy a graficar esos datos y no me muestra los datos
porque las fechas las ha pegado como cadenas de texto y no como fechas.
Cuando los datos los pego mediante un bucle y en el proceso convierto la
fecha con cDate, el gráfico queda perfecto, el problema es que son muchos
datos y a pesar de desactivar el refresco de pantalla y el recalculo, el
proceso se demora mucho.

El código que uso es el siguiente
' devolvemos los datos a la hoja
contadorT1 = UBound(Matriz, 2) + 7
Worksheets("PI Teja 1").Range("C7") = Matriz

'contadorT1 = UBound(Matriz, 2)
'For i = 0 To contadorT1
' ActiveSheet.Cells(i + 7, 3) = CDate(Matriz(0, i))
' ActiveSheet.Cells(i + 7, 4) = Matriz(1, i)
'Next

¿Habrá algún metodo para reolver este problema?

Gracias anticipadas

Saludos a tod@s
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio
 

Leer las respuestas

#1 Emilio
16/11/2005 - 19:23 | Informe spam
Gracias Luis
si, también podría recorrerlas con un bucle, pero para ese viaje ya las
pegaría con el bucle y en ese caso no gano nado, mi pregunta es por si hay
algún método que me evite eso.

Gracias de nuevo

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"luis" escribió en el mensaje
news:%
Dices, en tu primer mensaje, que el problema es debido a que las fechas
están en formato texto. Si ese es el problema puedes convertir fechas en
formato a texto a formato fecha con esa función.


"Emilio" <miliuco56 ARROBA hotmail.com> escribió en el mensaje
news:
Gracias Luis
¿pero cuando, despues de pegar la matriz en la hoja?,

Saludos a
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio


"luis" escribió en el mensaje
news:
puedes convertir la fecha en texto mediante la funcion FECHANUMERO


"Emilio" <miliuco56 ARROBA hotmail.com> escribió en el mensaje
news:uP2$
> Hola!
> estoy pegando una matriz con datos en un rango de una hoja, la matriz
> (variant) contiene una columna con fechas y la otra con numeros
> reales.
> El
> problema me surge cuando voy a graficar esos datos y no me muestra los
> datos
> porque las fechas las ha pegado como cadenas de texto y no como
> fechas.
> Cuando los datos los pego mediante un bucle y en el proceso convierto
> la
> fecha con cDate, el gráfico queda perfecto, el problema es que son


muchos
> datos y a pesar de desactivar el refresco de pantalla y el recalculo,
> el
> proceso se demora mucho.
>
> El código que uso es el siguiente
> ' devolvemos los datos a la hoja
> contadorT1 = UBound(Matriz, 2) + 7
> Worksheets("PI Teja 1").Range("C7") = Matriz
>
> 'contadorT1 = UBound(Matriz, 2)
> 'For i = 0 To contadorT1
> ' ActiveSheet.Cells(i + 7, 3) = CDate(Matriz(0, i))
> ' ActiveSheet.Cells(i + 7, 4) = Matriz(1, i)
> 'Next
>
> ¿Habrá algún metodo para reolver este problema?
>
> Gracias anticipadas
>
> Saludos a
> Emilio
> miliuco56 ALGARROBA hotmail.com
> http://www.mvp-access.com/foro
> http://www.mvp-access.com/emilio
>
>
>










Preguntas similares