Crear Base de Datos partiendo de un campo de una planilla

[Oscar Arroyave]

Buenas tardes a todo el Grupo de Trabajo

Estoy realizando un archivo de Captura de Información con Macros, el cual lo vengo desarrollando paso a paso, ya que no soy una persona experta, estoy aprendiendo, pero con la ayuda de ustedes lo voy sacando adelante, y voy en en siguiente paso:

1. Tengo un archivo con el nombre de cada mes y este tiene internamente los días habiles del mes marcados en cada pestaña; asi:

• Nombre del Archivo: ("8. Planilla Diaria-Agosto-Prueba.Xslm")
• Nombre de los días en las pestañas u hojas "1", "2" y asi sucesivamente.

2. En cada hoja hay un campo de nombre (Columna D), cuando me posiciono en esta celda el me trae de una hoja "Px" los nombres de los pacientes que tengo almacenado, y realizo lo siguiente:

• Si Existe lo subrayo y me coloca la identificación y el nombre
• Si no Existe me coloca "Nombre no Encontrado"

3. Lo que deseo es :

• Tener por separado la Hoja "Px" (o sea la Base de datos de los Pacientes)
• Que cuando me posiciono en la celda que pide el nombre busque en el Archivo de "Px"
• Si existe coloque los campos de identificación y Nombre, como lo hace Actualmente
• Si No Existe, que me traiga o me de la opción de llenar los campos Principales

4. Adjunto Archivo de Prueba 

5. Esta es la Macro que tengo para cuando me posiciono en el Nombre:

Private Sub ComboBox1_Change()
Me.ComboBox1.List = Range("Nombre").Value
For x = ComboBox1.ListCount - 1 To 0 Step -1
   If Not LCase(ComboBox1.List(x)) Like "*" & LCase(ComboBox1) & "*" Then
      ComboBox1.RemoveItem (x)
   End If
Next
ComboBox1.DropDown
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CommandButton2_Click()
ActiveCell.Value = ComboBox1.Value
Unload Me
End Sub

Private Sub UserForm_Activate()
ComboBox1.ListRows = 5
ComboBox1_Change
End Sub
 

No se si lo que me puedan orientar es trabajable o que otra manera lo puedo hacer, pero voy hasta aqui, en este moemnto.

Gracias por su colaboración

 

8. Planilla Diaria-Agosto-Prueba.rar