** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - CAMBIAR EJES AUTOMATICAMENTE CON MACROS
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCAMBIAR EJES AUTOMATICAMENTE CON MACROS

 Responder Responder
Autor
Mensaje
LUNA Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 07/Abril/2020
Localización: Peru
Estado: Sin conexión
Puntos: 8
Enlace directo a este mensaje Tema: CAMBIAR EJES AUTOMATICAMENTE CON MACROS
    Enviado: 07/Abril/2020 a las 03:53
BUENAS NOCHES
LUNA
Arriba
LUNA Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 07/Abril/2020
Localización: Peru
Estado: Sin conexión
Puntos: 8
Enlace directo a este mensaje 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
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje 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
Xavi, un minyó de Terrassa

Mi web
Arriba
LUNA Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 07/Abril/2020
Localización: Peru
Estado: Sin conexión
Puntos: 8
Enlace directo a este mensaje 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
Arriba
LUNA Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 07/Abril/2020
Localización: Peru
Estado: Sin conexión
Puntos: 8
Enlace directo a este mensaje 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
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5970
Enlace directo a este mensaje 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.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable