Macros me ayude a Contar de acuerdo a Usuarios y ordene por usuarios
buenas noches...
Dante.
necesito de su apoyo en generar 2 macros para contar de acuerdo por usuarios y condicion.
al igual me ayude agrupar por usuarios y eliminar columnas vacias
te lo envie a tu correo el archivo
en espera de tu valioso apoyo y conocimientos
saludos
1 Respuesta
Te envié el archivo para contar, con esta macro:
Sub contar()
'Por.Dante Amor
Set h1 = Sheets("GASTOS")
Set h2 = Sheets("Hoja1")
h2.Cells.Clear
h2.Range("A1:B1") = Array("USUARIOS", "CONTEO")
For i = 3 To h1.Range("X" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "X") <> "" Then
Set b = h2.Columns("A").Find(h1.Cells(i, "X"))
If Not b Is Nothing Then
If h2.Cells(b.Row, "C") <> h1.Cells(i, "A") Then
h2.Cells(b.Row, "B") = h2.Cells(b.Row, "B") + 1
h2.Cells(b.Row, "C") = h1.Cells(i, "A")
tot = tot + 1
End If
Else
j = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Cells(j, "A") = h1.Cells(i, "X")
h2.Cells(j, "B") = 1
h2.Cells(j, "C") = h1.Cells(i, "A")
tot = tot + 1
End If
End If
Next
h2.Cells(j + 2, "B") = tot
h2.Columns("C").Clear
h2.Select
MsgBox "Conteo terminado", vbInformation
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
hola
Dante, Nuavemente Exelente tu solucion, nada mas falto que en la hoja2 copiara lo mismo que esta en la hoja de GAstos que me gustaria lo ordene por usuario si no tiene un tema de A1 A AB2 ELIMINE las columnas las coloree de color verde las que se eliminarian.
el ejemplo va en el archivo que te envie
por si se puede te lo agradeceria
saludos
Te envié unos comentarios al correo.
Crea una pregunta por cada petición. La macro 1 consistía en contar los usuarios por número de reporte.
