Foutmelding macro

[Depant]

Hallo allemaal,

Heb de onderstaande macro gemaakt,
Hij geeft echter de volgende foutmelding. " compileer fout end with wordt verwacht."

Wat is er mis mee?


Sub wegkopieren()
With Sheets("selecteren")
.Cells(1).CurrentRegion.AutoFilter 5, Filter(Application.Transpose([if(criteria!a2:a9="","~",criteria!a2:a9)]), "~", False), 7
.AutoFilter.Range.Offset(1).Columns(2).Copy Sheets("1nir").Range("A2")
With Sheets("selecteren")
.Cells(1).CurrentRegion.AutoFilter 5, Filter(Application.Transpose([if(criteria!b2:b8="","~",criteria!b2:b8)]), "~", False), 7
.AutoFilter.Range.Offset(1).Columns(2).Copy Sheets("2nir").Range("A2")
With Sheets("selecteren")
.Cells(1).CurrentRegion.AutoFilter 5, Filter(Application.Transpose([if(criteria!c2:c11="","~",criteria!c2:c11)]), "~", False), 7
.AutoFilter.Range.Offset(1).Columns(2).Copy Sheets("3nir").Range("A2")
With Sheets("selecteren")
.Cells(1).CurrentRegion.AutoFilter 5, Filter(Application.Transpose([if(criteria!d2:d18="","~",criteria!d2:d18)]), "~", False), 7
.AutoFilter.Range.Offset(1).Columns(2).Copy Sheets("4nir").Range("A2")
With Sheets("selecteren")
.Cells(1).CurrentRegion.AutoFilter 5, Filter(Application.Transpose([if(criteria!e2:e8="","~",criteria!e2:e8)]), "~", False), 7
.AutoFilter.Range.Offset(1).Columns(2).Copy Sheets("6nir").Range("A2")
With Sheets("selecteren")
.Cells(1).CurrentRegion.AutoFilter 5, Filter(Application.Transpose([if(criteria!f2:f3="","~",criteria!f2:f3)]), "~", False), 7
.AutoFilter.Range.Offset(1).Columns(2).Copy Sheets("8nir").Range("A2")
With Sheets("selecteren")
.Cells(1).CurrentRegion.AutoFilter 5, Filter(Application.Transpose([if(criteria!g2:g3="","~",criteria!g2:g3)]), "~", False), 7
.AutoFilter.Range.Offset(1).Columns(2).Copy Sheets("12nir").Range("A2")
With Sheets("selecteren")
.Cells(1).CurrentRegion.AutoFilter 5, Filter(Application.Transpose([if(criteria!h2:h100="","~",criteria!h2:h100)]), "~", False), 7
.AutoFilter.Range.Offset(1).Columns(2).Copy Sheets("13nir").Range("A2")
With Sheets("selecteren")
.Cells(1).CurrentRegion.AutoFilter 5, Filter(Application.Transpose([if(criteria!i2:i11="","~",criteria!i2:i11)]), "~", False), 7
.AutoFilter.Range.Offset(1).Columns(2).Copy Sheets("16nir").Range("A2")
End With
End Sub

 

[edmoor]

Maak dat eerst eens op met code tags want zo is het niet te volgen.

Ik zie in ieder geval dat je een heel aantal With statements gebruikt en maar 1 End With.

 

[Ginger]

Je kan inderdaad AL deze regels met "With Sheets("selecteren")", op de bovenste na dan, verwijderen.
Even voor de goede orde.... VBA is een taal! Deze zal je eerst moeten leren voordat je 'm kan "spreken".

 

[Depant]

Macro

Hallo Ginger,

Bedankt voor het oplossen.
Ik beweer ook niet dat ik die taal spreek.
Voor mijn werk moet ik wekelijks data sorteren.
Dus maak ik een excel bestand waarin dat het makkelijks gaat.

Groeten Henk Harbers