danny147
Terugkerende gebruiker
- Lid geworden
- 29 apr 2007
- Berichten
- 4.744
Beste snb,
Eens gezocht op het net en volgende gevonden maar werkt niet ??
Volgende code gevonden:
In cel Z1 staat Omschr. operatie, in cel Z2 staat ZB
In cel AA1 staat Korte tekst, in cel AA2 staat AA
Aangepaste code voor mijn bestandje:
Eens gezocht op het net en volgende gevonden maar werkt niet ??
Volgende code gevonden:
Code:
Sheet2.Range("D4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheet1.Range("M5:N6"), CopyToRange:=Sheet1.Range("C8:K8"), Unique:=False
In cel Z1 staat Omschr. operatie, in cel Z2 staat ZB
In cel AA1 staat Korte tekst, in cel AA2 staat AA
Aangepaste code voor mijn bestandje:
Code:
Sub ZBAA()
i = "ZBAA"
Sheets("output").Cells(1).CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets(i).Range("Z1:AA2"), CopyToRange:=Sheets(i).Cells(1)
Sheets(i).Columns.AutoFit
End Sub