Combinar filas según el texto.
Tengo una planilla en Excel que lleva las horas de trabajo. La planilla va desde la celda d5 hasta la celda ai6. Desde la fila d5 a la fila ai5 llevo los días que trabajo de 20 a 8 ( horario nocturno) y de la fila d6 a la fila ah6 los días que trabajo de 8 a 20 (horario diurno).
En cada celda del rango (D5:AI6) hay validación de datos con las siguientes validación:
- Cantidad de horas que van del 1 al 16
- "Fra" de franco
-"vac" de vacaciones.
-"ART" de accidentes
-"Enf" de enfermedad
-"ACA" Ausente con aviso
-"ASA" ausente sin aviso.
Mi consulta es la siguiente: se podrá combinar la celda de arriba con la de abajo para cuando en la celda de arriba o de abajo haya la validación de "Fran" o "vac", etc., Ya que si estoy de franco o de vacaciones los ponga una sola vez y nomdos veces.
¿Por qué lo quiero así? Porque si estoy de franco no puedo estar de franco solo de 20 a 8 o de 8 a 20 ya que el día de franco es todo el día. Si pongo franco tanto en la celda de arriba como en la celda de abajo me va a contar como si tuviera dos francos.
1 respuesta
Ahí te mando por correo porque desde el celular no me deja enviar la imagen
Si me vas a enviar el correo, mejor envíame tu archivo y me explicas con colores lo que necesitas.
Debes enviarme un correo nuevo, en el asunto pon tu nombre de usuario: "favio valdez"
Te envíe un correo nuevo con el archivo detallado. Desde ya muchas gracias.
Te anexo el código para los eventos de tu hoja.
Cuando captures en la celda, los textos los debes poner en la primer fila.
Private Sub Worksheet_Change(ByVal Target As Range)
'Por Dante Amor
u = Range("A" & Rows.Count).End(xlUp).Row
Set rango = Range("E5:AI" & u)
If Not Intersect(Target, rango) Is Nothing Then
If Target.Count > 10 Then Exit Sub
'
If Target.MergeCells Then
Application.ScreenUpdating = False
Application.EnableEvents = False
direcc = Target.Cells(1, 1).MergeArea.Address
Target.UnMerge
Range("E5").Copy
Range(direcc).PasteSpecial Paste:=xlPasteValidation
Application.EnableEvents = True
Application.CutCopyMode = False
Application.ScreenUpdating = True
End If
'
If Target.Cells(1, 1).Value = "" Then Exit Sub
If IsNumeric(Target.Cells(1, 1).Value) Then Exit Sub
If WorksheetFunction.IsEven(Target.Cells(1, 1).Row) = True Then Exit Sub
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Range(Target.Cells(1, 1), Target.Cells(2, 1))
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.MergeCells = True
End With
Application.ScreenUpdating = True
'
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
