Alleen zichtbare gefilterde rijen kopieren met VBA

[Gerald Baalhuis]

Ik wil een een bestand met gefilterde rijen (inhoud<>leeg) m.b.v. VBA/marco alleen de zichtbare rijen één voor één drie keer kopieren onder de originele regel.
De macro kopieert nu ook alle verborgen rijen.

Alvast bedankt voor t meedenken en een prettig weekend,

Gerald

 

[Elsendoorn2134]

Gerald,

Als je een filter gebruikt wordt een rij die niet tot het filter behoort tijdelijk verborgen.
Je kunt dit vaststellen met SpecialCells(xlCellTypeVisible).
In onderstaande code staat hoe je vast kan stellen of een bepaalde regel waar je op
dat moment staat zichtbaar is of niet.

Hiermee zou je je probleem moeten kunnen oplossen.

Veel Succes.

Public Sub ZoekGeFilterd()

Dim nRegel As Long
Dim rZichtbaar As Range

Set rZichtbaar = Range("A2").Offset(nRegel, 0).SpecialCells(xlCellTypeVisible)

nRegel = 0
Do While Range("A2").Offset(nRegel, 0) <> ""
    If Not Intersect(Range("A2").Offset(nRegel, 0), rZichtbaar) Is Nothing Then
      Debug.Print Range("A2").Offset(nRegel, 0).Row
    End If
    nRegel = nRegel + 1
Loop

End Sub