JSDJSD

Puedes subir tu segundo archivo con las plantillas

Mañana intento mirarlo

No te preocupes es broma

Ir al archivo 2 que es solamente para consulta o tienes que extraer datos del mismo?

El archivo, cámbialo por el que tienes ya que no te mando la carpeta informes Propuesta27102024.xlsm

Y cuando pulse sobre cualquier celda con texto en la columna I de la hoja tablas te muestra el pdf en pantalla completa yo te lo muestro un poco reducido para que quepa en el gif

Abres el formulario, pones la fecha, si no sabes el código del cliente pulsas F2 o el botón lupa, se abre el formulario de búsqueda de clientes, digitas cualquier cosa que recuerdes del paciente como algún apellido o nombre y te aparecerán todas las coincidencias que tengas en tu base de datos, en el caso de no estar pulsa el botón + y abrirás el formulario para añadir nuevo paciente completas los campos del mismo y pulsas guardar, automáticamente te dirige al formulario de búsqueda donde ya puedes poner cualquier parte del nombre o apellidos del paciente recién creado lo seleccionas y continuas hasta el final.

?????

Sigo con ello, pero el tiempo me tiene pillado

mañana te lo miro si me da tiempo, creía que teniéndolo en el mismo formulario no necesitabas abrirlo a pantalla completa

El formulario esta preparado para que si lo sabes de memoria pongas directamente el NHC del paciente y si no lo sabes pulsa la lupa o F2 y te sale un formulario en el cual teclear por ejemplo un nombre y en cuanto des un espacio te muestra todas con coincidencias para que escojas el que te interese. Una vez pongas el NHC o escojas un nombre en el formulario buscar los demás datos se rellenan solos. Pero para que esto funcione debes meter los datos de los pacientes en la hoja Pacientes con lo que tendrás una base de datos de los mismos y te facilitará muchísimo el trabajo

Ese error es porque en tu archivo no tienes la columna código, el cual es fundamental para poder jugar con los datos a nuestro antojo, el código se adjudica automáticamente no tienes que estar pendiente de el.

Prueba y comenta Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandler If Target.Cells.Count = 1 And Not Intersect(Target, Me.Columns("A")) Is Nothing Then Application.EnableEvents = False If Len(Target.Value) > 0 Then Target.Value = Left(Target.Value, 8) Me.Range("A9").Select End If End If ErrorHandler: Application.EnableEvents = True ' Reactiva eventos pase lo que pase End Sub

Prueba y comentaprueba TABLA PROTEGIDA (1).xlsm

Sube tu archivo

prueba TABLA PROTEGIDA.xlsm tu archivo

Prueba y comenta Private Sub Worksheet_Change(ByVal Target As Range) ' Salir si se seleccionan varias celdas a la vez If Target.Count > 1 Then Exit Sub ' Salir si el cambio está en la fila 1 If Target.Row = 1 Then Exit Sub ' Salir si el cambio está en una columna mayor a la columna 8 If Target.Column > 8 Then Exit Sub ' Intentar redimensionar la tabla dentro de la protección de hoja On Error GoTo ErrorHandler Me.Unprotect Password:="123" ' Redimensiona la tabla a la región actual del Target Me.ListObjects("Tabla1").Resize Target.CurrentRegion ' Proteger de nuevo con configuraciones específicas para permitir edición en la tabla Me.Protect Password:="123", _ AllowSorting:=True, _ AllowFiltering:=True, _ AllowUsingPivotTables:=True, _ AllowInsertingRows:=True, _ AllowDeletingRows:=True ' Restaurar control de errores On Error GoTo 0 Exit Sub ErrorHandler: MsgBox "Ocurrió un error al redimensionar la tabla. Verifica el nombre de la tabla y que los rangos estén correctos.", vbExclamation End Sub

Y por último te genera un archivo pdf en la misma ruta donde tengas tu archivo

Sería esto más o menos lo que necesitas?

Prueba con 5 pasaborsos

Prueba con dos pasabordos

Mañana o pasado te subo algo

Te dejo el archivo para que lo pruebes, a ver que tal Clinica.rar

El segundo lo he modificado con respecto al primero que te mostré para que sea más fácil adjudicar los expedientes a cada paciente, simplemente cuando hagas click sobre uno de ellos se mostraran solamente los informes con el nombre del paciente que tengas en la carpeta informes donde podrás seleccionar el que proceda en cada caso.

y este el segundo