Crear grafico de barras dentro de una hoja de excel con VBA

[LOD_Fredy]

Hol a todos, ahora vengo pidiendo ayuda para crear una grafica de barras dentro de una hoja de excel desde vba, intente usando Charts.Add pero me agrega otra hoja para el grafico y no es lo que necesito. Ojala puedan ayudarme y me den un ejemplo sencillo de como crear la grafica (con ciertos datos para saber como llenarla desde codigo), yo me encargaria de llenarla con mis datos, gracias y disculpen la molestia.

[abrahamvj]

aunque no lo creas, usando la grabadora de macros obtendras el codigo deseado, prueba y nos comentas

Abraham

[LOD_Fredy]

Si tienes razon, de hecho hasta verguenza me da haber hecho esta pregunta. Ahorita ando viendo que onda con eso, alrato comento como me fue.

[LOD_Fredy]

Ya supe generar la grafica y esta facil, ahora tengo otro problema por solucionar, primero vere si puedo resolverlo o que llego a hacer.

Este es el codigo que use para generar las graficas:

Código:

Sub MACROPRUEBA()
    Sheets("ENE-FEB").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("BM1:BQ1,BM3:BQ7")
    '='MAY-JUN'!$EI$1:$EM$1,'MAY-JUN'!$EI$3:$EM$7
    Sheets("MAR-ABR").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("CW1:DA1,CW3:DA7")
    Sheets("MAY-JUN").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("EI1:EM1,EI3:EM7")
    Sheets("JUL-AGO").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("CZ1:DD1,CZ3:DD7")
    Sheets("SEP-OCT").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("BC1:BG1,BC3:BG7")
    Sheets("NOV-DIC").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("T1:X1,T3:X7")
End Sub

[LOD_Fredy]

Esto es lo que me falta hacer:

Tengo mi archivo de excel donde voy a trabajar.
Tengo otro archivo de donde tengo que sacar la informacion de ciertas celdas para usarlas en mi archivo de trabajo. El problema es que yo lo que he hecho para obtener la info de otro archivo de excel es usar la referencia que se crea en la formula de la celda, ejemplo =[nombrearchivo.xls]NombreHojaA2 y una vez tengo eso en una de las celdas de mi archivo de trabajo guardo el valor de la celda en una variable y asi para cada celda que necesito del otro archivo.
Esto que hago sirve cuando son pocas hojas las que se van a referenciar, pero ahora son mas de 600 hojas y mi idea es recorrer cada una para ir obteniendo y plasmando la informacion que necesito en mi archivo de trabajo y usando la funcion de grabacion de macro no sale.

[LOD_Fredy]

Creo que di con la solucion para manejar las celdas de un libro externo, este es un codigo que encontre para crear un nuevo libro, pero yo lo puse para abrirlo.

Código:

Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object
    Dim ubicacion As String
    ubicacion = "D:\RESIDENCIA\FREDY SENSA\TRABAJOS\ENCUENTAS DE SATISFACCION\Encuesta2.xlsm"
    
    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.Workbooks.Open(ubicacion)
       
    Set oSheet = oBook.Worksheets(1)
    oSheet.Range("A1").Value = "Last Name"
    oSheet.Range("B1").Value = "First Name"
    oSheet.Range("A1:B1").Font.Bold = True
    oSheet.Range("A2").Value = "Doe"
    oSheet.Range("B2").Value = "John"

[abrahamvj]

OJO con eso, estas creando otra instancia de Excel, desde la cual se te dificultara enviar/capturar informacion para tu primera instancia (no confundir instancia con archivo). Usa solo el Open para abrir otros arcvhivos

Abraham

[LOD_Fredy]

osea que para lo que quiero hacer no me sirve ese codigo?

Pues he estado haciendo pruebas y no he tenido problemas para tomar la info de la instancia, estoy viendo el panorama general de lo que quiero hacer usando la instancia y creo que va a funcionar. Una vez tenga el codigo lo pongo aqui.

[LOD_Fredy]

Dejo pendiente esto, en si no me salio lo que queria, me marca algunos errores, despues pongo el codigo.