CAMBIAR EJES AUTOMATICAMENTE CON MACROS
Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85131
Fecha de impresión: 20/Abril/2024 a las 09:30
Tema: CAMBIAR EJES AUTOMATICAMENTE CON MACROS
Publicado por: LUNA
Asunto: CAMBIAR EJES AUTOMATICAMENTE CON MACROS
Fecha de publicación: 07/Abril/2020 a las 03:53
|
BUENAS NOCHES ------------- LUNA |
Respuestas:
Publicado por: LUNA
Fecha de publicación: 07/Abril/2020 a las 03:58
|
QUISIERA QUE ME AYUDEN, TENGO 02 HOJAS UNA DE ELLAS CONTIENE UNA BASES DE DATOS, LA SEGUNDA UNA TABLA DINÁMICA Y UN GRÁFICO DINÁMICO, PARA FACILIDAD DEL USUARIO HE COLOCADO SEGMENTACIÓN DE DATOS, UNA DE ESTAS PERMITE LA SELECCIÓN DE TIPO DE PRODUCTO: A,B Y LA SEGUNDA EL COLOR DEL PRODUCTO; X,Y,Z,W, HASTA AHI TODO OK, LO QUE QUISERA ES QUE LOS EJES MINIMO Y MAXIMO CAMBIEN AL EJECUTAR UNA SELECCIÓN, POR EJEM, EL PROCUTO A DE COLOR X, DEBE TENER UN MÍMINO DE 3.1O Y UN MAX DE 4.30; EL A CON Y DEBE TENER UN MÍNIMO DE 2.30 Y UN MAX DE 3.20, NECESITO LA MISMA SECUENCIA PARA AZ, AW, BX,BY,BZ y BW, PERO NECESITO LA IDEA. GRACIAS ------------- LUNA |
Publicado por: xavi
Fecha de publicación: 07/Abril/2020 a las 09:26
|
Hola LUNA y bienvenid@ al foro. En primer lugar recordarte que declarado haber leído las normas del foro por lo que no entiendo que incumplas la segunda de ellas escribiendo todo el mayúsculas. En segundo lugar estás hablando de hojas lo que parece indicar Excel y el hilo está en Access y VBA Finalmente... tampoco me queda muy claro que es lo que quieres. Un saludo ------------- Xavi, un minyó de Terrassa http://www.llodax.com" rel="nofollow - Mi web 
|
Publicado por: LUNA
Fecha de publicación: 10/Abril/2020 a las 06:53
|
Hola Xavi,disculpa por las letras mayúsculas, la consulta que hacía era por una tabla dinámica y un gráfico dinámico, vuelvo a escribirla, espero que este mas clara: tengo una tabla dinámica a partir de esta tengo un gráfico dinámico, necesito que el eje Y del gráfico se ajuste a los valores que se muestren en el gráfico, los valores para estos ejes están en el rango B5:B5OO de la tabla, desearía una macro que haga que el gráfico actualice su eje Y de acuerdo al máximo y mínimo valor del rango B5:B500 de la tabla dinámica, por fa ayuda Sub acteje_torque() ' ' acteje_torque Macro ' ' ActiveSheet.ChartObjects("Gráfico 1").Select With ActiveChart .Axes(xlValue).MinimumScale = 0 .Axes(xlValue).MaximumScale = Max(rango("B5:B500") End With End Sub ------------- LUNA |
Publicado por: LUNA
Fecha de publicación: 10/Abril/2020 a las 06:55
|
Ahí les colocó lo que he colocado claramente no esta bien por que no esta corriendo, si pueden ayudarme les agradesco ------------- LUNA |
Publicado por: AnSanVal
Fecha de publicación: 10/Abril/2020 a las 15:18
|
Hola Luna. Para los datos que has aportado, entiendo que ... - El máximo de [B5:B500] en una TD con totales te tomaría el total, como supongo no es lo que buscas, le pongo que te solicite el valor máximo (InputBox). - En el módulo de la hoja que contiene la TD: Private Sub Worksheet_Change(ByVal Target As Range) Dim minE#, maxE#, preg$, miC As Range If Not Intersect(Target, Range("B5:B500")) Is Nothing Then Set miC = ActiveCell minE = WorksheetFunction.Min(Worksheets("T.D.").Range("B5:B500")) preg = InputBox("¿Máximo del eje?", " ASV - Gráfico D.", minE) maxE = Val(Replace(preg, ",", ".")) If maxE > minE Then ActiveSheet.ChartObjects("1 Gráfico").Activate ActiveChart.Axes(xlValue).MinimumScale = minE ActiveChart.Axes(xlValue).MaximumScale = maxE miC.Select End If End If End Sub ------------- Saludos desde Tenerife. |