filter resultaat

[wilbert1967]

hallo

als ik een filter instel op een reeks rijen krijg ik in excel 2010 links onder het resultaat. Is dit reslutaat ook in vba te gebruiken voor verder actie?

mvg wilbert

 

[Elsendoorn2134]

Wilbert,

Het resultaat links onder is niet te gebruiken binnen VBA.
Wel kan je met behulp van de formule Subtotal() of Subtotaal() een telling
maken van de zichtbare rijen en deze kan wel gebruikt worden in VBA
door deze met een Range() op te halen.

Veel Succes.

 

[wilbert1967]

dit heb ik als oplossing gevonden en gecombineerd en het werkt
iedereen bedankt voor meedenken

If CountVisRows <> 0 Then
          
  
      Set rng = ActiveSheet.AutoFilter.Range
      rng.Offset(0, 0).Resize(rng.Rows.Count).Copy



Function CountVisRows()
  'by Tom Ogilvy
  Dim rng As Range
  Set rng = ActiveSheet.AutoFilter.Range

  CountVisRows = rng.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1

End Function

 

[Roncancio]

Of:

MsgBox Range("A1").CurrentRegion.Columns(1).SpecialCells(12).Count - 1

Met vriendelijke groet,


Roncancio