Ayuda con macro

Hola:
Tengo un problema con un código de una macro. Necesito que la macro me oculte todas las filas (completas) en las cuales el dato de la primera columna sea igual al de la fila anterior.
Mi idea es que un for haga el chequeo pero solo revise las filas que tienen información, es decir que el ciclo se detenga en la última fila de datos;así:
If i = Range("65536").Value Then Exit For
Pero no se programar el criterio para ocultar las filas.
Agradecería mucho si alguien me pudiera ayudar.
Saludos

1 respuesta

Respuesta
1
Probá con esta rutina. Está explicada como para que ajustes tu primer celda y col que considero será la A
Sub ocultando()
'x Elsamatilde
'busco ultima fila con datos en col A
finfila = Range("A65536").End(xlUp).Row
'recorro el rango a partir de fila 2
ActiveSheet.Range("A2").Select
While ActiveCell.Row <= finfila
ActiveCell.Offset(1, 0).Select
If ActiveCell = ActiveCell.Offset(-1, 0) Then
    ActiveCell.EntireRow.Hidden = True
End If
Wend
End Sub
Si el tema quedó resuelto no olvides finalizar la consulta
Sdos
Elsa
* Encontrarás un capítulo completo con ejemplos de 'bucles' en mis manuales de macros !

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas