Macro para contar y contabilizar faltas
Necesito una macro que de una lista de asistencia seleccione al primer empleado y cuente cuantas "F" tiene y lo ponga emn otra hoja me ayudan
1 respuesta
Respuesta de Dante Amor
1
en esta hoja llamada "Hoja1" tengo en la columna "C" varios nombres y en la columna "L" si es falta o no , en la hoja llamada "Hoja2" quiero que me pase solo el registro único de la columna "C" y que me diga cuantas "F" tiene ese registro y lo coloque en una nueva hoja.
Así que se repita hasta que acabe con la lista
gracias salu2!!!!
Te anexo la macro
Sub Contar_Faltas()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
h2.Rows("2:" & Rows.Count).ClearContents
h1.Columns("C").Copy h2.Columns("A")
u1 = h1.Range("C" & Rows.Count).End(xlUp).Row
u = h2.Range("A" & Rows.Count).End(xlUp).Row
h2.Range("A1:A" & u).RemoveDuplicates Columns:=1, Header:=xlYes
u = h2.Range("A" & Rows.Count).End(xlUp).Row
With h2.Range("B2:B" & u)
.FormulaR1C1 = _
"=COUNTIFS('" & h1.Name & "'!R2C3:R" & u1 & "C3,RC[-1],'" & h1.Name & "'!R2C12:R" & u1 & "C12,""F"")"
.Value = .Value
End With
MsgBox "Fin"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
