Graficos

Hola juank,

Suponiendo que en la fila 1 tienes los titulos de las series
y a partir de la fila 2 los datos, en la columna A tienes los nombres de las
series una primera aproximación a la respuesta podría ser el código que
expongo al final

El primer procedimiento consiste en leer los rangos donde están los datos de
cada gráfica y el segundo es el que genera la gráfica en sí.
Este último procedimiento puedes adaptarlo a tu gusto grabando una macro
donde defines cada aspecto del gáfico que quieras modificar seleccionando
sólo una fila para hacer la gráfica y posterior mente adaptarlo al esquema
que te propongo.

Un saludo,
Juan

Inicio Codigo
Sub Principal()
Dim i As Long
Application.ScreenUpdating = False
With Worksheets("Hoja1")
i = 2
Do While .Range("A" & i) <> ""
GeneraGrafico .Range("b1:o1"), .Range("b" & i & ":o" & i)
i = i + 1
Loop
End With
Application.ScreenUpdating = True
End Sub

Sub GeneraGrafico(Xdata As Range, Ydata As Range)

Charts.Add
With ActiveChart
.ChartType = xlXYScatterSmoothNoMarkers
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = Xdata.Address
.SeriesCollection(1).Values = Ydata
.SeriesCollection(1).Name = Ydata.Resize(1, 1).Offset(, -1)
.Location Where:=xlLocationAsNewSheet
.HasTitle = True
.ChartTitle.Characters.Text = Ydata.Resize(1, 1).Offset(, -1)
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.HasLegend = False
End With
End Sub
Fin codigo


escribió

Hola a todos feliz año 2008, tengo una data de resultados de
laboratotio en las columnas las mallas de tamizado y en las filas el
sondaje quisiera generar graficos para cada una de ellas pero son

muchas y estra haciendola una a una es un problema, quisiera
generarla
automaticamente en hojas diferentes para poder imprimirlas, desde ya
gracias por su ayuda.
De esta manera estan dispuestas los datos a graficar.

Sondaje 3" 2 1/2" 2" 1 1/2" 1" 3/4" 1/2"
3/8" N° 4 N° 10 N° 20 N° 40 N
° 100 N° 200
CA-1 100 100 100 100 100 100 100
100 100 99 96 88 70 59
CA-1 100 100 100 100 100 100 100
100 100 99 96 88 70 61
CA-1 100 100 100 100 100 100 100
100 100 99 96 87 71 61
CA-2 100 100 100 100 100 100 100
100 100 99 96 87 66 55
CA-2 100 100 100 100 100 100 100
100 100 85 70 57 41 33
CA-2 100 100 100 100 100 100 100
100 100 99 95 85 63 51
CA-3 100 100 100 100 100 100 100
100 100 100 99 97 80 66
CA-3 100 100 100 100 100 100 100
100 100 100 100 98 91 84
CA-9 100 100 100 100 100 100 100
100 100 99 94 86 72 63
CA-9 100 100 100 100 100 100 99
98 88 87 84 77 58 47
CA-9 100 100 100 100 100 100 100
100 100 99 96 89 76 68
CA-9 100 100 100 100 100 100 100
100 99 97 95 93 79 60
CA-9 100 100 100 100 100 100 100
100 98 94 84 65 31 18
.
.
.
.
.
.
Cada fila es una grafica, y la cantidad de filas puede ser numerosa


Saludos
Juank