Macro para enumarar solo filas visibles
------
Hola a todos
Podrían ayudarme con esta macro
Dim valor As Integer
'Sheets("Medicamentos").Activate
vvv = 500
valor = 1
For Bx = 2 To vvv
vc = Range("A" & Bx)
If IsNull(vc) Or vc = "" Then
Else
Range("B" & Bx).Value = valor
valor = valor + 1
End If
Next
Esto me enumera filas, pero resulta que entre las filas hay algunas estarán ocultas al filtrar entonces necesito solo enumerar las visibles consecutivamente, la numeración va en la columna B
Gracias
---
----
1 Respuesta
Respuesta de Abraham Valencia
1
Me generó alguna duda tu uso de "IsNull" pero igual te dejo un ejemplo de como enumerar solo las filas con celdas visibles:
Sub Numerar()
Dim Celda As Range
Dim UltimaFila As Long, Valor As Long
Let UltimaFila = 15
Let Valor = 1
For Each Celda In Range("B2:B" & UltimaFila).SpecialCells(xlCellTypeVisible)
Let Celda.Value = Valor
Let Valor = Valor + 1
Next Celda
End SubComentas
Abraham Valencia
PD: Hay más formas de hacerlo pero creo que esta es práctica
