Wie kan mij helpen een macro aan te passen

[Henk Schepers]

het volgende bestand als voorbeeld:
De macro heb ik van internet gehaald, en werkt op zich goed, alleen hij moet in plaats van kopiëren uit het filter, knippen uit het filter. Vervolgens plakken in een ander werkblad, zonder de gegevens die daar al in staan te verwijderen.
Groeten Henk

 

[Wigi]

Dat is exact hetzelfde als in deze zeer recente topic:

http://www.helpmij.nl/forum/showthread.php?t=356399

Zie code van mij aldaar.

Wigi

 

[Henk Schepers]

macro is anders

Wigi, met alle respect, de macro is heel anders. de macro die ik op jou aanraden heb opgehaald van internet moet iets aangepast worden zodat hij knipt i.p.v. kopieert en plakt zonder dat hij bestaande data delete

Private Sub CommandButton1_Click()
'code 4
'by Tom Ogilvy
Dim rng As Range
Dim rng2 As Range

With ActiveSheet.AutoFilter.Range
 On Error Resume Next
   Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
       .SpecialCells(xlCellTypeVisible)
 On Error GoTo 0
End With
If rng2 Is Nothing Then
   MsgBox "No data to copy"
Else
   'Worksheets("nog in behandeling").Cells.Clear
   Set rng = ActiveSheet.AutoFilter.Range
   rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
     Destination:=Worksheets("afvoeren").Range("A1")
End If
   ActiveSheet.ShowAllData

End Sub

groeten Henk

 

[Wigi]

Wigi, met alle respect, de macro is heel anders.

Ik doel op de code in post nr 14 in die topic.

 

[Henk Schepers]

post 14?

Misschien ben ik stom maar wat bedoel je met post 14
gr Henk

 

[Wigi]

Deze post:

http://www.helpmij.nl/forum/showpost.php?p=2312092&postcount=14

Rechts bovenaan in de blauwe titelbalk van de post staat een volgnummer.

Wigi

 

[Henk Schepers]

Het spijt mij

Deze macro kopieerd de kopregel waar het autofilter in staat. en knipt deze naar een ander blad. het filter is dan ook meteen verdwenen.
heb je de makro bekeken die ik geplaatst heb? die werkt in principe goed maar moet knippen in plaats van kopiëren. ook plaats hij de nieuwe regel niet onder de bestaande regels maar op a1. eigenlijk moet er in verwerkt worden xldown. select en offset 1 regel lager.
en dan plakken.
Dat heb ik geprobeerd te veranderen maar dan krijg foutmeldingen
Gr Henk

 

[Wigi]

rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
                Destination:=Sheets("krijgt bericht").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        rng.Offset(1, 0).Resize(rng.Rows.Count - 1).EntireRow.Delete

Wigi

 

[Henk Schepers]

Dat is wat ik bedoel

Wigi
het werkt nu perfect. Ik heb het nu zo dat ik de filter criteria ook in de macro heb staan en deze aan verschillende knoppen gekoppeld.
Heel hartelijk bedankt voor de moeite en inzet.
gr Henk

 

[Wigi]

You're welcome.

Zet je de vraag nog op opgelost aub?