UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Txoto


Saludos cordiales a todos,

Mi tema es el siguiente. Tengo una tabla en la que una de las columnas contiene celdas con valores cambiantes(SI/NO), siempre modificadas manualmente. Mi objetivo es que, en una tabla espejo en una hoja diferente, únicamente aparezcan aquellas filas que contengan celdas con valores NO, estando esto sujeto siempre a los cambios manuales que se hagan en la tabla origen.

Se me ocurre utilizar tablas dinámicas. O he utilizado una Macro que elimina aquellas filas que contienen el SI, pero no a la inversa (no revierte esa eliminación de filas si en la tabla origen cambia un Si a un NO).

Si alguien pudiera arrojarme algo de luz, sería de gran ayuda.
Muchas gracias de antemano!
Archivos
C-NOR_REVISION_2015_Prueba_Macro.xlsx
No tienes los permisos para descargar los archivos.
(16 KB)

ioyama


Hola Txoto

Con un filtro avanzado y una macro de evento que lo active cada vez que modificas la columna de SI/NO, podrçia valerte.

Revisa el adjunto.

Un saludo desde VItoria
Archivos
FiltroAvanzado_io_150907.zip
No tienes los permisos para descargar los archivos.
(14 KB)

Txoto


Gracias ioyama,

Es exactamente lo que estaba buscando, pero con la lógica invertida (que se muestren los valores que tienen NO)

Podrías indicarme que pasos has seguido para establecer ese filtro y poder así yo cambiarlo manualmente?

Gracias desde Irun!

Txoto


Perdona, no había visto el Ranfo de criterios, estaba oculto Embarassed

Perfecto entonces, me has ayudado mucho, dejo este tema como cerrado.

Un saludo!

Txoto


Hola de nuevo. Tengo un pequeño problema. Sad

La macro me funciona a la perfección en el ejemplo que me has mandado, pero cuando la intento aplicar en otro archivo, no consigo hacer que funcione.

¿Qué es lo que falla en la siguiente macro respecto al archivo Excel que adjunto? (en un futuro se insertaran más filas con datos..)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 5 Then Exit Sub
    uf = Sheets("CATALOGO").Range("C" & Cells.Rows.Count).End(xlUp).Row
    Sheets("CATALOGO").Range("C9:P" & uf).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("CDE").Range("D1:D2"), CopyToRange:=Sheets("CDE").Range("P11:P11"), Unique:=False
End Sub

Mil gracias y perdón por las molestias, soy nuevo en esto de programar Embarassed
Archivos
C-NOR_REVISION_2015_A.xls
No tienes los permisos para descargar los archivos.
(170 KB)

Igtelo


Hola Txoto / Ioyama un abrazo.

Aquí te va.

Ioyama, gracias por lo del Target.Count>1, aprendí algo nuevo.

Saludos
Ignacio Téllez
Archivos
Txoto-C-NOR_REVISION_2015_A.xls
No tienes los permisos para descargar los archivos.
(149 KB)

Txoto


Muchisimas gracias!

Es lo que necesitaba. Además, tus comentarios dentro de VB me han ayudado a entenderlo mejor.

Gracias de nuevo y hasta otra!

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.