Saber Celda a traves de VBA

hola, Jhorbam !

... debo programarle una macro...es una sabana inmensa de datos... lo mas sencillo seria filtrar las celdas con VBA
pero al hacerlo la primera celda de resultado por ejemplo no seria la A1 sino la A7890
como podria identificar la celda a traves de VBA, como en el caso anteriormente expuesto?...

'asumiendo' que 'A1' seria celda correspondiente a los titulos de la columna [por lo que no es 'de interes'] -?-
y que la macro que aplica los autofiltros ya la tienes definida -?-
el siguiente ejemplo te indica la celda donde aparece el primer valor que coincide con el criterio de los autfiltros:

Sub Filtrado_1()
With ActiveSheet
If Not .AutoFilterMode Then MsgBox "No hay rango con autofiltro !!!": Exit Sub
With .AutoFilter.Range.SpecialCells(xlCellTypeVisible)
If Not .Parent.FilterMode Then MsgBox "Filtros no activos !!!": Exit Sub
If .Areas(1).Rows.Count > 1 _
Then MsgBox "Primer valor en... " & .Areas(1).Cells(2, 1).Address _
Else MsgBox "Primer valor en... " & .Areas(2).Cells(1, 1).Address
End With
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hector muchas gracias prabaretu ejemplo...muy amable


"Héctor Miguel" escribió en el mensaje
news:

hola, Jhorbam !

... debo programarle una macro...es una sabana inmensa de datos... lo mas
sencillo seria filtrar las celdas con VBA
pero al hacerlo la primera celda de resultado por ejemplo no seria la A1
sino la A7890
como podria identificar la celda a traves de VBA, como en el caso
anteriormente expuesto?...

'asumiendo' que 'A1' seria celda correspondiente a los titulos de la
columna [por lo que no es 'de interes'] -?-
y que la macro que aplica los autofiltros ya la tienes definida -?-
el siguiente ejemplo te indica la celda donde aparece el primer valor que
coincide con el criterio de los autfiltros:

Sub Filtrado_1()
With ActiveSheet
If Not .AutoFilterMode Then MsgBox "No hay rango con autofiltro !!!":
Exit Sub
With .AutoFilter.Range.SpecialCells(xlCellTypeVisible)
If Not .Parent.FilterMode Then MsgBox "Filtros no activos !!!": Exit
Sub
If .Areas(1).Rows.Count > 1 _
Then MsgBox "Primer valor en... " & .Areas(1).Cells(2, 1).Address _
Else MsgBox "Primer valor en... " & .Areas(2).Cells(1, 1).Address
End With
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.