Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
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:
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:
3. Lo que deseo es :
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