Mensajes

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

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

[mes = Worksheets("Datos Peugeot").Range("AX1").ValueWorksheets("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]

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.

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.

Pues va a ser que no puedo reproducirlas, después de la currada que me he pegado seleccionandolas. Gracias de todos modos.
Salu2.

Por favor, ¿alguien me puede ayudar?

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

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.

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.

Si no lo has encontrado, te lo puedo mandar por email. Ocupa unos 500 K.
Un saludo.