kopieren met autofilter

Status
Niet open voor verdere reacties.
N

Nerdje82

Gebruiker
Lid geworden
10 dec 2016
Berichten
44
Hallo mensen ik heb onderstaande code gekregen via dit forum

PHP: 
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
 
De gegevens beginnen in A1 en zijn een aaneengesloten bereik.
Code: 
[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.
Code: 
.range("F10:AA150")

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

Anders moet je het bestand maar eens plaatsen.
 
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 !!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan