Macro para numerar filas visibles
---
---
Hola
Alguien podria ayudarme con una macro para numerar filas visibles
He usado esto pero no me funciona
Dim valor As Integer
valor = 1
For i = 11 To hs.Range("B" & Rows.Count).End(xlUp).Row
If hs.Range("C" & i).Value > 0 And hs.Range("D" & i).Value > 0 Then
Range("A" & i).Value = valor
valor = valor + 1
End If
Next
El asunto es que de todas las filas yo oculto las que contiene 0 en las columnas C y D
Solo debe numerarse las visibles que contengan datos mayores a 0 en las columnas C o D
ejemplo
A B C D
1 dato 0 0 oculta
2 otro dato 0 3 visible
3 otro dato 5 0 visible
4 otro dato 9 2 visible
La numeracion debe ser consecutiva 1,2,3,4 etc
Gracias
--
---------
Si la macro las vas a ejecutar después de filtrar los datos, entonces quedaría así:
Dim valor As Integer
valor = 1
For i = 11 To hs.Range("B" & Rows.Count).End(xlUp).Row
If hs.Rows(i).EntireRow.Hidden = False Then
hs.Range("A" & i).Value = valor
valor = valor + 1
Else
hs.Range("A" & i).Value = ""
End If
Next[sal u dos
