Como rellenar serie teniendo los filtros activos

Si tengo un filtro activo y la información las tengo en a1 hasta a20 y claro de la a1 a a20 están saltidas como las puedo enumerar en b1 con el filtro activo.

1 respuesta

Respuesta
1

H o l a:

Ejecuta esta macro en la hoja que tienes con el filtro.

Sub LlenarSerie()
'Por.Dante Amor
    For i = 1 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
        Cells(i, "B") = i
    Next
End Sub

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Perdón creo que especifique mal el dato mira, información en a1 a a20 y con el filtro solo tengo visibles a3,a7,a15,a16,a17, y a20, en a3 quiero que ponga el 1 en a7 el 2, a15 el 3, y a si sucesivamente hasta el a20. Gracias. 

Así:

Sub LlenarSerie()
'Por.Dante Amor
    n = 1
    For i = 1 To 20
        If Cells(i, "B").EntireRow.Hidden = False Then
            Cells(i, "B") = n
            n = n + 1
        End If
    Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas