Macro que cuente filas en base a datos dados en 3 columnas distintas
Hola,
Me gustaría un macro que contara el número de filas solo si siguen los criterios establecidos en una tabla:
Usuario Escalación Urgente Prioridad En tiempo
ESPINOC3 (1) (2) (3) (4)
JUAREZL3 (5) (6) (7) (8)
ROMEROG5 (9) (10) (11) (12)
SALGADOC5 (13) (14) (15) (16)
Y que en base a las columna F de “Usuario”, la columna K que debe decir “PRIORIDAD 1” para que pueda ser considerada en el conteo y la columna L “Importancia” que debe coincidir con alguno de los status (escalación, urgente, etc)
La tabla se encuentra en una hoja aparte llamada “Resumen global” en el rango I3:M7
Espero puedan ayudarme
Saludos
1 Respuesta
Hola,
La pregunta esta relacionada con un macro con el que me ayudaste ayer que contaba las filas de acuerdo a el usuario y la importancia, pero en la segunda tabla que aparece en el archivo necesito que haga un conteo prácticamente igual, la única diferencia es que solo debe contar dentro de las filas que en la columna QUE digan "Prioridad 1".
El archivo que te envíe para el macro que me falla después de que sale el cuadro emergente del catalogo es el mismo, y el macro se llama "Resumen" (tu lo hiciste)
Espero haber sido clara.
Si deseas te envío el mismo archivo solo que con un asunto distinto.
Saludos y gracias
Listo! Te envié el archivo con la nueva macro para prioridad 1, los cuadros los acomodé de tal forma que la macro pueda hacer la búsqueda.
Sub prioridad1()
'Por.Dante Amor
Set h1 = Sheets("Detalle H.E. pendientes")
Set h2 = Sheets("Resumen global")
h2.Range("J4:N7").ClearContents
For i = 2 To h1.Range("F" & Rows.Count).End(xlUp).Row
If UCase(h1.Cells(i, "K")) = "PRIORIDAD 1" Then
Set b = h2.Range("I:I").Find(h1.Cells(i, "F"))
If Not b Is Nothing Then
f = b.Row
Set c = h2.Range("J3:M3").Find(h1.Cells(i, "L"))
If Not c Is Nothing Then
h2.Cells(f, c.Column) = h2.Cells(f, c.Column) + 1
End If
Else
u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
Set c = h2.Range("J3:M3").Find(h1.Cells(i, "L"))
If Not c Is Nothing Then
h2.Cells(u, "I") = h1.Cells(i, "F")
h2.Cells(u, c.Column) = h2.Cells(u, c.Column) + 1
End If
End If
End If
Next
End Sub
