Gerson Pineda

Hola Revisa el adjunto y nos comentas Saludos Desplegar datos segun fecha y rango de hora_GP.rar

Debes asegurarte que los nombres de las hojas, no tengan espacios, deben ser idénticas a tu listado en la hoja Saludos

Hola! Puedes usar la función INDIRECTO No se si en realidad buscas sumar o solo obtener el valor por cada color de la hoja, por esa razón te adjunto 2 opciones PD: para la próxima, favor subir el archivo al foro, no a un servidor externo Saludos Referencia hoja en listado.xlsx

Ahora si es mas clara tu necesidad Para dar todos esos formatos, debes buscar realizarlo con VBA Saludos

Entonces no me explico, como es que no me sale nada Saludos!

Hola! Prueba con esto: Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Column = 5 Then Application.EnableEvents = False Set vrp = Range("B:B").SpecialCells(2) vnp = Application.CountIf(vrp, Cells(.Row, "B")) 'PACIENTE vfp = Application.CountIf(vrp.Offset(, 1), Cells(.Row, "C")) 'FECHA vhp = Application.CountIf(vrp.Offset(, 3), Cells(.Row, "E")) 'HORA If vnp > 1 And vfp > 1 And vhp > 1 Then VBA.MsgBox "No puede agregar el mismo paciente", vbCritical, "AyudaExcel" Range("B" & .Row & ":C" & .Row) = Empty: Cells(.Row, "E") = Empty End If Set vrp = Nothing Application.EnableEvents = True End If End With End Sub Saludos

Hummm debe ser un problema de tu PC, actualiza tu RAR Saludos Obtener datos NO repetidos segun mes_GP.xlsm

Hola! Digamos que es seguir con tu tema anterior Te adjunto 2 opciones, con formula y con Power Query, solo cambia de mes en D2 y mostrara los resultados Saludos Obtener datos NO repetidos segun mes_GP.rar

Hola Manuel He visto tu archivo que subiste, pero veo lo mismo, pero no se a que te refieres o cual es tu necesidad Un antes y un después, seria bueno ver... o si explicas algo mas especifico Saludos

Como podrás notar, es una simple linea de código, pero muy útil, y así te vas solo, en muchos casos Esa es la consigna de @AyudaExcel colaborar [no hacer proyectos completos], para que en un futuro, tu seas colaborador, no solo preguntón! Tampoco te prometo darte formación, pero si de vez en cuando, una buena explicación, de como funciona la ayuda, brindada Saludos!!!

Hola! Si tu rango ya esta definido, puedes probar con: vc = Range("AD2").End(xlToLeft).Column Saludos a ambos!

Hola Manuel! Es un poco enredado lo que explicas, pero ya mirando tu archivo es mas comprensible Primero que todo, recuerda que PQ, te crea una tabla estructurada de los datos transformados, te menciono esto, porque a la hora de totalizar no necesitas hacerlo en PQ, solo es cosa de usar la opción totales de la TABLA [te vas a: Diseño / Fila de totales] Respecto a la columna vacía intermedia que aplicas en la consulta, me parece improductivo y hasta puede serlo mas, si tu BD, creciera en columnas, también falta que digas, cual es la finalidad de "las columnas vacías" Saludos

Sin compresión Prueba Obtener datos segun mes_GP.xlsx

Prueba de nuevo, por favor Saludos

Hola! Revisa el adjunto y nos comentas Saludos Obtener datos segun mes_GP.rar