none
Macro - Consecutivo con dos variables RRS feed

  • Pregunta

  • Buen día

    Cordiales Saludos

    Agradezco su atención al siguiente planteamiento, aclaro que soy un aprendiz en formación y poco a poco he construido mis herramienta para optimizar mis procesos. Bueno vamos a la materia, tengo una macro previa que ejecuta a la perfección con excepción a lo siguiente: Dicha macro organiza una serie de valores con encabezado en la linea 6, tomando en consideración las columnas D (primer rango de ordenación alfabéticamente) y la B (segundo y ultimo rango de ordenación numeralmente) ambos ascendentemente, una vez ordenado, por cada cambio en la columna D, deja una linea en blanco. Necesito agregar en dicha macro, que enumere cada registro desde la A7 que seria el primer registro y cuando cambie de valor en la D, se inserta una linea en blanco, ya que cambia el valor de la "D", y el contador comienza desde 1 nuevamente, hasta que lea toda la columna D. Por ultimo, que me me de un total de todos los registros sin importar que condición cumpla la columna B.

    Muchas Gracias

    Anexo codigo

    Sub proFilter()
    Dim valor As String
    Range("b7").Sort Key1:=Range("d7"), Order1:=xlAscending, Key2:=Range("B7"), Order2:=xlAscending, Header:=xlYes


    Range("d7").Select
    valor = ActiveCell.Value
    Do While ActiveCell.Offset(1, 0).Value <> ""
    Do While ActiveCell.Value = valor
    ActiveCell.Offset(1, 0).Select
    Loop
    Selection.EntireRow.Insert
    ActiveCell.Offset(1, 0).Select
    valor = ActiveCell.Value
    Loop

    End Sub


    • Editado Chino__13 lunes, 6 de enero de 2020 15:43
    lunes, 6 de enero de 2020 15:22