elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


  Mostrar Mensajes
Páginas: [1] 2
1  Programación / Programación Visual Basic / Re: Macro excel PivotItems propiedad Visible en: 19 Noviembre 2018, 12:58 pm
He conseguido solucionarlo, os lo pongo por si a alguien le fuera util.

El problema era poner visible a false a todas las opciones (sin que hubiera ninguna en true) por eso había que poner primero una opción a true y luego todos los demás a false. Pongo el ejemplo:

Worksheets("Diego").PivotTables("Diego1").PivotFields("MES").CurrentPage = "(All)"
    With Worksheets("Diego").PivotTables("Diego1").PivotFields("MES")
        'tengo que controlar el mes para no ponerlo en false
        .PivotItems(mes).Visible = True
        If Not mes = "ENERO" Then
            .PivotItems("ENERO").Visible = False
        End If
        If Not mes = "FEBRERO" Then
            .PivotItems("FEBRERO").Visible = False
        End If
        If Not mes = "MARZO" Then
            .PivotItems("MARZO").Visible = False
        End If
        If Not mes = "ABRIL" Then
            .PivotItems("ABRIL").Visible = False
        End If
        If Not mes = "MAYO" Then
            .PivotItems("MAYO").Visible = False
        End If
        If Not mes = "JUNIO" Then
            .PivotItems("JUNIO").Visible = False
        End If
        If Not mes = "JULIO" Then
            .PivotItems("JULIO").Visible = False
        End If
        If Not mes = "AGOSTO" Then
            .PivotItems("AGOSTO").Visible = False
        End If
        If Not mes = "SEPTIEMBRE" Then
            .PivotItems("SEPTIEMBRE").Visible = False
        End If
        If Not mes = "OCTUBRE" Then
            .PivotItems("OCTUBRE").Visible = False
        End If
        If Not mes = "NOVIEMBRE" Then
            .PivotItems("NOVIEMBRE").Visible = False
        End If
        If Not mes = "DICIEMBRE" Then
            .PivotItems("DICIEMBRE").Visible = False
        End If
    End With


2  Programación / Programación Visual Basic / Re: Macro excel PivotItems propiedad Visible en: 13 Noviembre 2018, 14:09 pm
Gracias por la respuesta NEBIRE.

Creo que me he explicado mal. El error me da en el momento de llegar a un elemento que esta en true (seleccionado) y lo quiero poner en falso. Por ejemplo, tengo seleccionado Septiembre y cuando llego a el y hago esto: .PivotItems("SEPTIEMBRE").Visible = False, es cuando me sale el error.

Con esto: .PivotItems(mes).Visible = True, no tengo problema me lo selecciona correctamente. Es a la hora de deshabilitar (quitar la selección)

Lo último de la NOTA ya lo cambie, se me coló

No se si me he explicado bien
3  Programación / Programación Visual Basic / Macro excel PivotItems propiedad Visible en: 12 Noviembre 2018, 10:17 am
Buenos días,

Estoy haciendo una macro para q cuando pulsen un botón actualizar tabla dinámica lo que haga es cambiar de la lista desplegable el mes que se quiere filtrar. Para ello lo que hago es deshabilitar todos los campos de la lista desplegable (Enero, Febrero, Marzo....) para luego activar el mes que ha seleccionado el usuario. Copio el código:


mes = Worksheets("Datos Peugeot").Range("AX1").Value
Worksheets("Diego").PivotTables("Diego2").PivotFields("MES ENTREGA").CurrentPage = "(All)"
    With Worksheets("Diego").PivotTables("Diego2").PivotFields("MES ENTREGA")
        .PivotItems("ENERO").Visible = False
        .PivotItems("FEBRERO").Visible = False
        .PivotItems("MARZO").Visible = False
        .PivotItems("ABRIL").Visible = False
        .PivotItems("MAYO").Visible = False
        .PivotItems("JUNIO").Visible = False
        .PivotItems("JULIO").Visible = False
        .PivotItems("AGOSTO").Visible = False
        .PivotItems("SEPTIEMBRE").Visible = True
        .PivotItems("OCTUBRE").Visible = False
        .PivotItems("NOVIEMBRE").Visible = False
        .PivotItems("DICIEMBRE").Visible = False
        .PivotItems(mes).Visible = True
    End With


Cuando me llega al mes que esta en Visible = True me da el siguiente error:

No se puede asignar la propiedad Visible de la clase PivotItems.

Alguien sabe como podría solucionar esto?

Gracias de antemano.
4  Programación / Java / No puedo crear nuevo proyecto NetBeans en: 19 Octubre 2017, 12:42 pm
Buenas! Mi problema es que he instalado NetBeans 8.2 y al dar al icono de crear nuevo proyecto no se abre nada, tampoco por archivo/nuevo proyecto. Tengo instalado en un Mac y la versión java es 9. He probado a desinstalarlo y volver a instalar y nada. Agradecería vuestra ayuda, gracias.
5  Media / Multimedia / Re: Convertir cda (origen ordenador no lector) a mp3 en: 25 Junio 2005, 19:06 pm
Pues va a ser que no puedo reproducirlas, después de la currada que me he pegado seleccionandolas. Gracias de todos modos.
Salu2.
6  Media / Multimedia / Re: Convertir cda (origen ordenador no lector) a mp3 en: 25 Junio 2005, 13:11 pm
Por favor, ¿alguien me puede ayudar?
7  Media / Multimedia / Re: Convertir cda (origen ordenador no lector) a mp3 en: 24 Junio 2005, 20:16 pm
Ese programa ya lo he probado y solo me funciona cuando las canciones las cojes de un cd, pero cuando las cojo del ordenador me dice algo como si me faltara un codec. ¿Sabe alguien que codec es o existe otro programa?
Salu2
8  Media / Multimedia / Convertir cda (origen ordenador no lector) a mp3 en: 23 Junio 2005, 14:02 pm
He intentado buscar un programa para convertir archivos cda a mp3 y he encontrado varios, pero todos ellos leen los archivos cda desde el lector de cd y lo que yo quiero es convertir unos archivos cda que tengo en el ordenador. ¿Alguien conoce algun programa para hacer esto?
Salu2.
9  Media / Diseño Gráfico / TextInput transparente Flash MX en: 11 Mayo 2005, 10:46 am
Quería saber como colocar un TextInput en Flash MX para que no se vea, que quede trasparente, que no me quede el recuadro del campo. También quiero saber como hacerlo más largo, para que entren más caracteres.
Gracias.
10  Media / Diseño Gráfico / Re: Pasar de .SWF a .FLA en: 4 Mayo 2005, 18:23 pm
Si no lo has encontrado, te lo puedo mandar por email. Ocupa unos 500 K.
Un saludo.
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines