............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

crear un grafico selectivo

Ver el tema anterior Ver el tema siguiente Ir abajo

crear un grafico selectivo

Mensaje por gusdaro el Miér Feb 03, 2010 5:50 pm

hola tengo una planilla en excel con clientes y quiero crear una macro en la cual pueda seleccionar los clientes desde una combobox, insertarlos en una listbox y luego apretar un commandutton y me selecione las columnas: nombre, cantidad de tickets, subtotal y la meta y me las grafique en columnas

Nº de unidad de negocio Nombre Cantidad de tickets Monto a cobrar Comisión Condiciones con la empresa Subtotal meta objetivo

78 esteban fernandez 200 10000 1500 150 8350 5000 5000
33 carlos estevez 200 10000 1500 150 8350 5000 5000
23 mauricio 600 60000 9000 600 50400 6000 6000
89 pablin 500 50000 7500 150 42350 25000 25000
44 salvador 125 15000 4200 100 10700 7500 7500
22 fabian 100 30000 8400 200 21400 12000 12000
45 andres 150 20000 3000 200 16800 6000 6000
25 carlos 200 10000 1500 150 8350 5000 5000

algo he hecho pero el problema es que no me acepta matrices para poder ingresar las direcciones de las celdas, les dejo el formulario que hice si pueden ayudenme con las variables a ver si acepta algun formato para que me las pueda graficar, y en todo caso si no pueden ayudarme con eso fijense que tipo de macro puede hacer lo que les dije al principio, este es el formulario.


Option Explicit
Dim matriz4 As Variant
Dim matriz3 As Variant
Dim matriz2 As Variant
Dim matriz1 As Variant

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
ListBox1.AddItem ComboBox1.Text
Cells.Find(what:=ComboBox1.Text, after:=ActiveCell, LookIn:=xlFormulas, lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False).Activate

matriz1 = ActiveCell.Address
matriz2 = ActiveCell(1, 2).Address
matriz3 = ActiveCell(1, 3).Address
matriz4 = ActiveCell(1, 4).Address
TextBox1 = matriz1
TextBox2 = matriz2
TextBox3 = matriz3
TextBox4 = matriz4
End Sub

Private Sub CommandButton2_Click()
Cells
End Sub

Private Sub CommandButton3_Click()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
' esta es la linea donde tengo el problema porque no me acepta las varialbles en range
ActiveChart.SetSourceData Source:=Sheets("hoja1").Range(matriz1, matriz2, matriz3), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="hoja1"
End Sub

Private Sub ListBox1_Click()
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Activate()
Range("b11").Select
Do While ActiveCell <> Empty
ComboBox1.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Private Sub UserForm_Click()

End Sub

De funcionar seria una muy interesante aplicacion por eso les pido ayuda

gusdaro

Masculino Cantidad de envíos : 1
Edad : 42
Ciudad - Pais : mendoza - argentina
Version de Excel : 2003
Fecha de inscripción : 03/02/2010

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.