Jump to content

Recommended Posts

Posted

Tengo un listado general de varios archivos que están dentro de mis carpetas.
pero dentro de este listado hay carpetas con sus archivos que no necesito ver.

Actualmente con la macro en mi archivo puedo ocultar las filas con información que no necesito.

Esto se ejecuta al recorrer la columna A y si en ella encuentra un "x" los oculta.

El problema es que dentro de varias carpetas puede haber muchos archivos y tendría que estar marcando uno por uno y me lleva tiempo.

Existe alguna manera de que al poner los números de fila a ocultar en la columna B lo realice.
Contabilizando desde la celda en donde tenga la X en la columna A.
Gracias.

 

Oculta filas.xlsm

  • 7 months later...
Posted

 Hola,

Con algo como esto sólo necesitarás colocar la cantidad de filas que deseas ocultar en la columna B junto a cada "x"

Sub OcultaFilas()
    Cells.EntireRow.Hidden = False
    Dim pf As Long, uf As Long, i As Long, numFilas As Long
    pf = 2
    uf = Sheets("Hoja1").Range("D" & Rows.Count).End(xlUp).Row
    
    
    For i = pf To uf
        If Cells(i, 1).Value = "x" Then
            
            If IsNumeric(Cells(i, 2).Value) And Cells(i, 2).Value > 0 Then
                numFilas = Cells(i, 2).Value
            Else
                numFilas = 1
            End If
            
            Rows(i & ":" & i + numFilas - 1).Hidden = True
            
            i = i + numFilas - 1
        End If
    Next i
End Sub

image.thumb.png.7929f48d7e15803cd3233395009d5fbf.png

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy