afmesistemas
New member
- Registrado
- 11 Abr 2010
- Mensajes
- 9
Me explico:
Range("A1").Select
For i = 1 To Range("A1").End(xlDown).Row
If ActiveSheet.Rows(i).Hidden = False Then
Cells(i, 1).Select
Exit For
End If
Next i
uf2 = Range("A" & i).End(xlDown).Row...
Range("A1").Select
For i = 1 To Range("A1").End(xlDown).Row
If ActiveSheet.Rows(i).Hidden = False Then
Cells(i, 1).Select
Exit For
End If
Next i
uf2 = Range("A" & i).End(xlDown).Row...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí