| LayneStaley |  |
|
2007-09-23 09:04 - Respuestas: 0 - Tema nº: 2471042
Características: Windows XP Profesional, 768, athlon xp 2400, 40gb.
hola a todos.. que tal?
bueno.. espero alguien me ayude.. es bastante sencillo lo k necesito (creo)
tengo la siguiente macro de excel y lo k necesito es que los valores que estan en rojo, sean variables, osea, que al momento de ejecutar la macro, las columnas a graficar sean a "pedido" y no fijas como estan ahora.. alguien sabe que modificacion se le puede hacer??
Private Sub Grafica(fila1 As Variant, fila2 As Variant)
'
' Macro3 Macro
' Macro grabada el 28-08-2007 por Juan Eduardo Uribe Chesta
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("grafico").Range("A1")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=resumen!R" + CStr(fila1) + [COLOR="Red"][B]"C5:R" [/B][/COLOR]+ CStr(fila2) + [COLOR="Red"][B]"C5"[/B][/COLOR]
ActiveChart.SeriesCollection(1).Values = "=resumen!R" + CStr(fila1) + [COLOR="Red"][B]"C7:R"[/B][/COLOR] + CStr(fila2) + [COLOR="Red"][B]"C7"[/B][/COLOR]
ActiveChart.Location Where:=xlLocationAsObject, Name:="grafico"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
Sub Busca_y_Grafica()
tramo = Sheets("PARAMETROS A BUSCAR").Cells(2, 1)
marcha = Sheets("PARAMETROS A BUSCAR").Cells(2, 2)
[COLOR="YellowGreen"][B]columnax = Sheets("PARAMETROS A BUSCAR").Cells(2, 3)
columnay = Sheets("PARAMETROS A BUSCAR").Cells(2, 4)[/B][/COLOR]
'busco en fila B el tramo y en D la marcha desde el principio de la hoja
fila = 2
While (Sheets("resumen").Cells(fila, 2) tramo)
fila = fila + 1
Wend
'fila = 2
'While (Sheets("resumen").Cells(1, columnax) columna)
'colunma = columna + 1
'Wend
'fila = 1
'While (Sheets("resumen").Cells(1, colunmay) columna)
'fila = columna + 1
'Wend
'encuentro el tramo dentro de la hoja
While (Sheets("resumen").Cells(fila, 4) marcha)
fila = fila + 1
Wend
'aqui encontre el inicio de mis datos con el tramo y marcha que corresponden
INICIO = fila
While (Sheets("resumen").Cells(fila, 4) = marcha)
fila = fila + 1
Wend
While (Sheets("resumen").Cells(1, columna) = colunmax)
fila = fila + 1
Wend
While (Sheets("resumen").Cells(1, columna) = colunmay)
fila = fila + 1
Wend
FIN = fila - 1
Call Grafica(INICIO, FIN)
End Sub
la idea es que en la parte de busca y grafica, agregar para que el usuario indique que es lo que quiere graficar, indicando las columnas, y en que eje las quiere (lo que esta en verde)... de momento tenemos para que grafike la columna 5 vs la 7, pero eso esta fijo, y si keremos k grafike otra cosa debemos modificar la macro, pero nuestra duda es si se puede hacer que ese valor sea variable..
la hoja de parametros a buscar esta asi
..........A.................B......................C....................D
1 .....TRAMO........ MARCHA
2 (por usuario)...(por usuario)
3
4
y grafica las columnas 5 y 7 del tramo la marcha indicada
pero queremos que sea asi
..........A.................B......................C....................D
1.....TRAMO..........MARCHA.......columnax........... columnay
2 (por usuario) (por usuario) (por usuario)........ (por usuario)
3
4
y ke el usuario indike en columnax y columnay que columnas desea graficar.
no se si se entiende.. pero si hay algun entendido que vea k el problema es facil.. por favor que me ayude..
de antemano gracias.. cualkier duda postiarla pls
salu2
| |
|
|
