Onderstaande code werkt in Excel, deze wil ik alleen gebruiken in een online Google Sheets. Wanneer ik dit doe geeft de code de volgende foutmelding: Ontbrekende ; voor instructie. (regel 4, bestand 'Code')
De code die ik gebruik is:
function myFunction() {
}
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet.Rows(1)
.AutoFilter 4, "Brochure aanvraag", xlWhole
.AutoFilter 5, "Corestone", xlWhole
Sheets("Corestone").UsedRange.ClearContents
.CurrentRegion.Copy Sheets("Corestone").Cells(1)
.AutoFilter
.AutoFilter 4, "Brochure aanvraag", xlWhole
.AutoFilter 5, "Superbase", xlWhole
Sheets("Superbase").UsedRange.ClearContents
.CurrentRegion.Copy Sheets("Superbase").Cells(1)
.AutoFilter
End With
End Sub
Kunnen jullie mij hierbij helpen?
De link naar het Online document is: https://docs.google.com/spreadsheets/d/1bcOpypJYTLhQSBVNm3p_ChUd65sblEZhyqWLD8Eya10/edit?usp=sharing
De code die ik gebruik is:
function myFunction() {
}
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet.Rows(1)
.AutoFilter 4, "Brochure aanvraag", xlWhole
.AutoFilter 5, "Corestone", xlWhole
Sheets("Corestone").UsedRange.ClearContents
.CurrentRegion.Copy Sheets("Corestone").Cells(1)
.AutoFilter
.AutoFilter 4, "Brochure aanvraag", xlWhole
.AutoFilter 5, "Superbase", xlWhole
Sheets("Superbase").UsedRange.ClearContents
.CurrentRegion.Copy Sheets("Superbase").Cells(1)
.AutoFilter
End With
End Sub
Kunnen jullie mij hierbij helpen?
De link naar het Online document is: https://docs.google.com/spreadsheets/d/1bcOpypJYTLhQSBVNm3p_ChUd65sblEZhyqWLD8Eya10/edit?usp=sharing
