Rijen kopiëren naar ander tabblad en dan verwijderen

[Struykert]

Dag, mijn eerste vraag. Ik loop in de volgende code vast. Het lukt mij om rijen die voldoen aan een criterium te kopiëren naar een ander tabblad, maar niet om vervolgens de originele rijen te verwijderen. Het zou m.i. een kleine toevoeging aan de code behoeven, maar ik kom er niet uit, ook niet na het doorspitten van het forum.

alvast dank voor te nemen moeite,

De code die ik gebruik om te kopiëren is de volgende:

Sub Kopie()
    Application.ScreenUpdating = False
   Dim c As Range
   For Each c In [AM3:AM1500]
        If c = "Medewerker Exit" Then
            c.Rows.EntireRow.Copy
            ['Exit2009'!A65536].End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        End If
    Next
    End Sub

 

[snb]

Sub Kopie()
   Application.ScreenUpdating = False
   With Thisworkbook.sheets(1).usedrange
      .autofilter 39,"Medewerker Exit"
      with .offset(1).specialcells(xlcelltypevisible)
         .copy ['Exit2009'!A65536].End(xlUp).Offset(1) 
         .entirerow.delete
      end with
      .autofilter
   End With
End Sub

 

[Struykert]

De regel

.Autofilter 39 , "Medewerker Exit"

geeft foutmelding 1004 : Methode AutoFilter van klasse Range is mislukt

Kan dit veroorzaakt worden doordat Medewerker Exit de resultante is van een formule?

gr.
Struykert

 

[Wigi]

Wat krijg je als je dit uitvoert:

MsgBox Thisworkbook.sheets(1).usedrange.Address

 

[Struykert]

Dan wordt weergegeven $A$2:$F$47

Dank voor uw moeite,
gr.

Hola, gevonden. In het bestand zat nog code om hoofd-en kleine letters af te dwingen. ik heb deze code vooreerst eens verwijderd en nu loopt de macro als een zonnetje. Zonder uw Msgbox was ik waarschijnlijk niet gaan zoeken naar code in die cellen, dank u Wigi.

Ik zal nu proberen de opmaak weer af te dwingen zoals de originele bedoeling van de maker geweest is.