Macro filtering en copy in nieuw sheet

[Knalmatics]

He alle excel experten,

ik zit met volgend probleem.
wij hebben een excel order lijst voor onze klanten, deze kunnen via de excel tabel een aankoop simulatie maken van hun besteling, en deze automatisch doormailen doormiddel van een macro. Nu krijgen wij al die excel tabel toegestuurd maar deze zijn niet compatibel met ons facturatie programma. daarvoor zouden alle data moet aangepast worden in het formaat als blad 2 in bijlage.
Filter formule is aantal > 0 en code (> 0 en <>"").

Ik zoek hier al een paar dagen na, maar ik vind geen oplossing.

 

[Jack Nouws]

Hallo Knalmatics,

Bekijk deze code eens en kijk of deze doet wat je wilt,

Met vr gr
Jack

Sub tst()
  Application.ScreenUpdating = False

    With Sheets(1).UsedRange
        .AutoFilter 1, "<>0", xlAnd, "<>"""""
        .AutoFilter 6, ">0"
        .Copy [Blad2!A1]
        .AutoFilter
    End With
    
  Application.ScreenUpdating = True
End Sub

 

[Knalmatics]

Jack,

Iets dat ik ben vergeten te vermelden, de sheets zijn beveiligd en dan werkt de VBA code niet.
Wat kan men daar aan doen?

Dank bij voorbaat.

 

[Joske2000]

Bij het begin :

   ActiveSheet.Unprotect

Op het einde :

    ActiveSheet.Protect

Joske