Probleem met kopiëren van zichtbare cellen uit subtotalen

[Swacar185]

Wat is de bedoeling :
1/ in tabblad 1 data importeren, daar in een selectie subtotalen laten berekenen
2/ ALLEEN de resultaten van die subtotalen plakken in tabblad 2
Wat doe ik ?
1/ Na de berekening vd subtotalen , subniveau selecteren, zodat alleen de subtotalen zichtbaar zijn.
2/ Deze selectie blokken, dan in speciaal selecteren de optie "alleen zichtbare cellen" aanduiden, kopiëren en vervolgens
3/ Plakken in tabblad 2
Dit werkt perfect
Wanneer ik alles wil automatiseren door het in een macro te gieten,werkt de 3° actie (plakken in tabblad 2 NIET !!
Iemand een idee ?

 

[Wigi]

Wat is de code?

 

[eric cirkel]

Blad1.[A3].CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Destination:=Blad2.[A1]

gr eric

 

[Swacar185]

Blad1.[A3].CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Destination:=Blad2.[A1]

gr eric

Thx.
Het werkt (nog) niet helemaal, maar je hebt me wel op goede weg gezet
Bedankt

 

[Wigi]

Sub test()
With Sheets("Blad2")
    .Cells.Clear
    On Error Resume Next 'voor mochten er geen zichtbare cellen zijn
    Sheets("Blad1").Range("A3").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy .Range("A1")
    On Error GoTo 0
End With
End Sub

Wigi

 

[Swacar185]

Sub test()
With Sheets("Blad2")
    .Cells.Clear
    On Error Resume Next 'voor mochten er geen zichtbare cellen zijn
    Sheets("Blad1").Range("A3").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy .Range("A1")
    On Error GoTo 0
End With
End Sub

Wigi

Erg bedankt ! Dit werkt zoals het hoort !!
Thx