Macros en excel para buscar fecha y copiar fila
Buenas tardes. Les explico mi duda.
Existen varias preguntas similares aquí mismo pero no he podido adecuar ninguna de ellas a mis necesidades (y teniendo en cuenta que soy malísimo para el VBA)
Tengo una hoja llamada "MENU CIRUGÍAS" donde necesito que me aparcezcan las cirugías programadas para el día de hoy en las celdas C14 a H14, C15 a H15 y C16 a H16. Las cirugías programadas están en la hoja "CIRUGIAS" y esta hoja se compone de las columnas Día, Nombre, Teléfono, Especie, Sexo y Hora (de A1 a F1 respectivamente). Solamente puede haber 3 o menos cirugías por día, así que necesito una macros que busque en esa hoja de "CIRUGIAS" cuales son las que están programadas para hoy y me las despliegue en la hoja "MENU CIRUGÍAS". Si no hay programadas, todo en blanco o un mensaje que diga que no hay.
Por otro lado, quiero hacer exactamente lo mismo en otra hoja pero en vez de que sean las de hoy, yo poder fijar la fecha para ver que se tiene programado para esa fecha.
Muchísimas gracias. Espero puedan ayudarme.
Gustavo López
Existen varias preguntas similares aquí mismo pero no he podido adecuar ninguna de ellas a mis necesidades (y teniendo en cuenta que soy malísimo para el VBA)
Tengo una hoja llamada "MENU CIRUGÍAS" donde necesito que me aparcezcan las cirugías programadas para el día de hoy en las celdas C14 a H14, C15 a H15 y C16 a H16. Las cirugías programadas están en la hoja "CIRUGIAS" y esta hoja se compone de las columnas Día, Nombre, Teléfono, Especie, Sexo y Hora (de A1 a F1 respectivamente). Solamente puede haber 3 o menos cirugías por día, así que necesito una macros que busque en esa hoja de "CIRUGIAS" cuales son las que están programadas para hoy y me las despliegue en la hoja "MENU CIRUGÍAS". Si no hay programadas, todo en blanco o un mensaje que diga que no hay.
Por otro lado, quiero hacer exactamente lo mismo en otra hoja pero en vez de que sean las de hoy, yo poder fijar la fecha para ver que se tiene programado para esa fecha.
Muchísimas gracias. Espero puedan ayudarme.
Gustavo López
{"Lat":19.4323374223201,"Lng":-99.1133415699005}
1 respuesta
Respuesta de d2enri
1
Te mando el archivo
Te explico como lo realize.
Cuando abres el archivo el solo te pondrá las intervenciones del día en la hoja MENU CIRUGÍAS eso lo realize con
Private Sub Workbook_Open()
Cirugia_de_hoy
End Sub
Luego en la hoja BUSCAR CIRUGÍA te agregue este código para que cuando cambies la fecha te de las cirugías del día que seleccionas
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
datos = "E11"
If Not Application.Intersect(Target, Range(datos)) Is Nothing Then
Buscar_cirugia
Application.ScreenUpdating = True
End If
End Sub
Ademas modifique la macro que tenias creada para insertar cirugías para que te inserte solo los datos y no los formatos
Ya me cuentas que te parece
Te explico como lo realize.
Cuando abres el archivo el solo te pondrá las intervenciones del día en la hoja MENU CIRUGÍAS eso lo realize con
Private Sub Workbook_Open()
Cirugia_de_hoy
End Sub
Luego en la hoja BUSCAR CIRUGÍA te agregue este código para que cuando cambies la fecha te de las cirugías del día que seleccionas
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
datos = "E11"
If Not Application.Intersect(Target, Range(datos)) Is Nothing Then
Buscar_cirugia
Application.ScreenUpdating = True
End If
End Sub
Ademas modifique la macro que tenias creada para insertar cirugías para que te inserte solo los datos y no los formatos
Ya me cuentas que te parece
