Cuantas veces puedo aplicar el mismo Macro en un archivo?
Mi pregunta tiene relación con la anterior; donde recibí una respuesta muy apropiada con un macro para el 1er, 2do, 3er, 4to y 5to lugar de reportes diarios a Inspecciones realizadas a Unidades Educativas por parte de funcionarios policiales bajo mi mando. Bien, ahora quiero saber de ese mismo archivo; Cuales fueron las UE mas visitadas e Inspeccionadas por parte del Cuerpo de Policía. Para ello se esta utilizando la columna "E", en esta columna los reportes están siendo plasmados con un código para cada UE acorde a su ubicación en el Municipio o si es Pública, Privada, Estatal o Nacional. El caso es que el Formato de celda es General y no numérica y que también ya estoy utilizando una Macro similar para los reportes de funcionarios y la inserción de la Foto del Funcionario mas destacado. Le estaré enviando el archivo con información detallada. Gracias por su tiempo
1 respuesta
Te envié el archivo con la macro
Dim numordenados As New Collection
Dim cuentaordenados As New Collection
Dim numeros As New Collection
Sub recorridos()
'Por.Dante Amor
Set h1 = Sheets("UE")
Set h2 = Sheets("Hoja2")
Set rango = h1.Range("B12:B98")
For Each c In rango
If c.Value <> "" Then
cuenta2 c.Offset(0, 1).Value, c.Value
End If
Next
contar = cuentaordenados.Count
f = 267
For i = cuentaordenados.Count To cuentaordenados.Count - 4 Step -1
cantidad = cuentaordenados(i)
numero = numeros(i)
h2.Cells(f, "B") = cantidad
h2.Cells(f, "C") = numero
f = f + 1
Next
Set cuentaordenados = Nothing
Set numeros = Nothing
End Sub
Sub cuenta2(n, y)
'Por.Dante Amor
For m = 1 To cuentaordenados.Count
If cuentaordenados(m) >= n Then
cuentaordenados.Add n, before:=m
numeros.Add y, before:=m
Exit Sub
End If
Next
cuentaordenados.Add n 'si es el mayor de todos lo agrega al final
numeros.Add y
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
Dante Amor
No olvides valorar la respuesta.
Tienes pendiente valorar esta respuesta.
