kopieren met autofilter

[Nerdje82]

Hallo mensen ik heb onderstaande code gekregen via dit forum

Private Sub CommandButton1_Click()
Workbooks.Open "H:\Mijn Documenten\Digital\Werkmap\afdelingshoofd.xlsm"
   With ThisWorkbook.Sheets("teller").Cells(1).CurrentRegion
     .AutoFilter 1, "totaal"
     .Offset(1, 1).Resize(, 15).Copy
      ActiveWorkbook.Sheets("PB").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues
     .AutoFilter
     End With
   ActiveWorkbook.Close True
End Sub

Nu snap ik er zelf niet zoveel van .....
Ik wil deze code ook op een ander werkblad gebruiken maar blijkbaar werkt deze code alleen op column 1 e.d. ik heb geprobeerd dit te aan te passen maar zie door de bomen het bos niet meer
Ja ik heb de werkblad naam verandert in de code
Hoe kan ik ervoor zorgen dat de code ook op andere plekken van een werkblad werkt ! wat moet ik veranderen......
Ik heb alles veranderd de autofilter op 10 te zetten ik heb getracht cells(1).currentregion te veranderen maar constant een fout 1004 dat hij de autofilter waarde niet kan vinden. Dus iemand suggesties

 

[HSV]

De gegevens beginnen in A1 en zijn een aaneengesloten bereik.

[COLOR=#0000FF].[/COLOR]Cells[COLOR=#000099]([/COLOR][COLOR=#FF0000]1[/COLOR][COLOR=#000099])[/COLOR][COLOR=#0000FF].[/COLOR]CurrentRegion

Je kan dit eens vervangen naar waar de gegevens van jouw blad staan.
bv.

.range("F10:AA150")

en dan is Autofilter 3, de derdde kolom vanaf kolom F gerekend → H

Anders moet je het bestand maar eens plaatsen.

 

[Nerdje82]

Hey HSV ik had deze code ook van jou gekregen . Ik ga currentregion vervangen voor range en dan eens kijken wat ie doet ! Thx voor je reacties !!