Obtener celdas activas con vb despues de aplicar filtro en excel.

[1mpuls0]

Bien... al parecer mi pregunta anterior era demasiado sencilla (tal vez por eso nadie respondió).

Pero me encontré con algo un poco complicado.

Estoy trabajando con macros y necesito obtener el las celdas seleccionadas tras haber realizado un autofiltro.

Por ejemplo, realizo el filtro por sexo y grupo de edad, las celdas que no cumplieron ese criterio se ocultan.
Al realizar la selección de los datos también se seleccionan las celdas (filas ocultas).

Hay alguna manera que mediante visual basic pueda obtener ya sea los numeros de filas o celdas 34, 103, 172, 241, 310 y 379?




Gracias

[Shell Root]

Código (vb) [Seleccionar] Expandir

' Masomenos...
For Each cell In Cells_To_Sum
   If cell.Rows.Hidden = False Then
      If cell.Columns.Hidden = False Then
         total = total + cell.Value
      End If
   End If
Next
:http://support.microsoft.com/kb/150363/es

[1mpuls0]

Genial :3

Código (vbnet) [Seleccionar] Expandir


Function Sum_Visible_Cells(Cells_To_Sum As Object)

       Application.Volatile
       Dim celdas As String
       
       For Each cell In Cells_To_Sum
           If cell.Rows.Hidden = False Then
               If cell.Columns.Hidden = False Then
                   celdas = celdas & Replace(cell.Row, "$", "") & ", "
               End If
           End If
       Next
       
       Sum_Visible_Cells = celdas
       
End Function


Ya lo estoy adaptando xD, solo que necesito hacer un cast de Range a Object o String a Object ._. porque lo utilizo así para tomar el rango seleccionado.

Código (vbnet) [Seleccionar] Expandir


rango = Selection.Address



Gracias

Por cierto tu avatar es genial xD siempre me ha causado gracia.