CAMBIAR EJES AUTOMATICAMENTE CON MACROS |
Responder |
Autor | |
LUNA
Nuevo Unido: 07/Abril/2020 Localización: Peru Estado: Sin conexión Puntos: 8 |
Tema: CAMBIAR EJES AUTOMATICAMENTE CON MACROS Enviado: 07/Abril/2020 a las 03:53 |
BUENAS NOCHES
|
|
LUNA
|
|
LUNA
Nuevo Unido: 07/Abril/2020 Localización: Peru Estado: Sin conexión Puntos: 8 |
Enviado: 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
|
|
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: Sin conexión Puntos: 14720 |
Enviado: 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
|
|
LUNA
Nuevo Unido: 07/Abril/2020 Localización: Peru Estado: Sin conexión Puntos: 8 |
Enviado: 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
|
|
LUNA
Nuevo Unido: 07/Abril/2020 Localización: Peru Estado: Sin conexión Puntos: 8 |
Enviado: 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
|
|
AnSanVal
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 16/Marzo/2005 Localización: España Estado: Sin conexión Puntos: 5970 |
Enviado: 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.
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |