JSDJSD

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

Así quedaría el primer formulario

Cuando te descargas un informe pdf, que estructura tiene el nombre del mismo, es decir si el paciente es Periquillo de los Palotes, como sería el nombre que se le asigna por defecto (Periquillo de los Palotes nhc.pdf) o es otra diferente?

Este sería el formulario más o menos para añadir expedientes a los pacientes

El fin de semana te subo algo

Perfecto, en cuanto tenga un rato te paso una propuesta

Se pueden elimiar, no hay problema, pero creo que cuantos más datos tengas del paciente mejor, una vez que haces la ficha del mismo ya no tienes que tocarlos mas Claro que sí Sin problema

El nombre de documento lo captura solo, el cliente o el NHC del mismo si lo sabes lo pones directamente en caso contrario pulsas F2 ó la lupa y se abre otro formulario en el cual metes cualquier dato del cliente como nombre, apellidos y das un espacio y te mostrará todas las coincidencia, de las que podrás seleccionar la que quieras moviéndote con las flechas de arriba y abajo y pulsando enter. Y finalmente al pulsar el botón guardar te ingresa tus datos en la tabla. Para lo del pdf, si puedes sube uno anómino para hacer pruebas de como se quedaría.

Te gustaría tener un formulario para introducir datos en tu base como este y así no tenerlo en la hoja?

No te faltan hojas en tu libro?