Saltar al contenido

FORMULARIO QUE FILTRA LOS DATOS EN UN LISTBOX ESTANDO LA HOJA OCULTA


Recommended Posts

Buenas noches:

    Traigo de nuevo esta consulta. Tengo un formulario que carga los datos filtrados en un listbox. Pero tengo un problema: solo funciona teniendo la hoja mostrada y situándome en ella. Si la hoja está oculta o estoy en otra hoja no funciona.... Pido vuestra colaboración porque he estado mirando por la web y he hecho varias pruebas pero no consigo solucionar este problema. Os pongo el acceso al archivo a ver si, por favor, me podéis echar una mano....

https://drive.google.com/open?id=1812Uw2iHKBYPnyFSTvRGmFaWufh-jL5N

 

Enlace a comentario
Compartir con otras webs

Hace 21 horas, Antoni dijo:

¿Y cual es el formulario? Porqué en tu archivo hay muchos.

Buenas tardes Antoni:

Toda la razón. Se me olvidó indicar el formulario. El formulario se llama ENTIDADES.

Perdón y gracias!!

https://drive.google.com/open?id=1Ot1q3KW9J0j-VJw6z7VxR-FN_ZN2fLE5

Enlace a comentario
Compartir con otras webs

Hace 20 horas, Leopoldo Blancas dijo:

Hola...

Pasos:

  1. Muestra la hoja
  2. Selecciona la hoja con SELECT
  3. Has el filtro
  4. ...
  5. Terminando ocultas la hoja.

Esto te responde en cualquier hoja que estés...

Saludos.

Buenas tardes Leopoldo:

    Hecho!!. Probé esta opción pero solo  mostrando la hoja y después ocultándola sin seleccionarla (SELECT). Pero he hecho lo que me has indicado y está solucionado. Muchas gracias!! 

Enlace a comentario
Compartir con otras webs

Hace 15 minutos , SUSANA GARCIA-ABAD FERNANDEZ dijo:

Buenas tardes Antoni:

Toda la razón. Se me olvidó indicar el formulario. El formulario se llama ENTIDADES.

Perdón y gracias!!

https://drive.google.com/open?id=1Ot1q3KW9J0j-VJw6z7VxR-FN_ZN2fLE5

Hola de nuevo Antoni!!

Siento molestarte pero he probado la opción que me ha dato Leopoldo y funciona: He mostrado la hoja, la he seleccionado y luego la he ocultado. Yo había probado esta opción pero sin seleccionarla: solamente mostrándola y ocultándola.... Pero ya esta solucionado. No hace falta que lo mires.... Muchas gracias por tu tiempo y colaboración!!

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 95 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • Gracias @Victor7. La solución que me das no es valida para mi proyecto ya que la idea es que en la pestaña DATAGlobal se vayan añadiendo registros, por lo que la formulas deben ser dinámicas en el sentido que según vaya añadiendo registros, se vayan completando el cuadro con los valores únicos.    Por otro lado, no puedo prescindir de la pestaña de valores únicos por que con esa información realizo otro tipo de informes con unidades totales, graficas con las fechas etc.. Muchas gracias por la ayuda
    • Abre el adjunto y pulsa el botón  GENERAR HOJAS y luego pulsa sobre cualquier fecha del calendario para ir a la hoja deseada. Observa que he añadido 2 botones en la hoja CALENDARIO, uno para generar las hojas y otro para eliminarlas. También he añadido una flechita azul en las hojas generadas para volver a la hoja CALENDARIO. Estas son las macros: En la hoja CALENDARIO: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim d As Integer, m As Integer, a As Integer On Error Resume Next If IsNumeric(Target) Then If Not Target = "" Then x = Int((Target.Row - 6) / 9) y = Int((Target.Column - 5) / 8) + 1 m = x * 6 + y d = Target a = Right([E3], 4) Sheets(Format(d, "00") & "-" & Format(m, "00") & "-" & a).Activate End If End If End Sub En el Módulo1: Sub GenerarHojas() Application.ScreenUpdating = False Application.CopyObjectsWithCells = True Dim a As Integer a = Right([E3], 4) With Sheets("ORIGI") For fecha = CDate("01/01/" & a) To CDate("31/12/" & a) '<-- Periodo a generar .Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = Format(fecha, "dd-mm-yyyy") [B4] = [B4] & " " & fecha Next End With Volver End Sub '-- Sub EliminarHojas(): On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Dim a As Integer a = Right([E3], 4) For fecha = CDate("01/01/" & a) To CDate("31/12/" & a) '<-- Periodo a eliminar Sheets(Format(fecha, "dd-mm-yyyy")).Delete Next End Sub '-- Sub Volver() Sheets("CALENDARIO").Activate End Sub   Libro1 (15).xlsm
    • Hola un cordial saludo a todos.  Tengo una hoja con un formato de calendario y tengo 365 hojas cada una con nombre de un dia mes y año  en especifico agradecería me ayuden a como puedo realizar la vinculacion de cada dia del calendario con cada hoja respectivamente sin hacerlo de forma manual , ya que es muy laborioso dado que lo tengo que hacer de una por una.   adjunto coloco un ejemplo de lo que tengo gracias. Libro1.xlsm
    • Muchas gracias @Israel Cassales. La hoja es un ejemplo de como seria la hoja definitiva. ( Por desgracia no puedo poner la información real). Los datos los saco de un registro automático por donde pasan unidades con un numero de referencia único para cada producto. Estas unidades pasan por unos puntos de control y en el registro automático se graban duplicando el numero de producto e indicando el registro del nuevo punto de control. Se que parece un poco lío explicado por aqui. Probaré la solución de @Victor7 y comentaré por aquí los progresos. Muchas gracias   
    • Pregunta para @jose_alk ¿El diseño en la hoja DATAGlobal es tuyo? Si la respuesta es sí, entonces toma mayor relevancia la propuesta del maestro @Victor7 porque si mira con atención cada que avanza un paso, vuelve a escribir el paso anterior, así hasta completar los tres pasos. Por esta causa la fórmula del maestro vincula solo la última parte de ese rango ya que de continuar con esa tendencia y repetir los ciclos, al final siempre le quedarán los únicos que busca. En ese caso podría omitir la otra hoja Data Valores Unicos, porque desde la primer hoja DATAGlobal si filtra en el tercer paso y quita las vacías le quedarán solo los ciclos completos. Por otro lado, si los registros no estarán siempre tan bien ordenados el escenario cambia, por lo tanto le reitero la pregunta inicial, porque si es suyo el diseño tal vez le conviene reconsiderar su formato y que los pasos estén entre lineas. Eso le dará un mayor control de los datos, los filtros y las funciones. Saludos totales.    
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.