overnemen gegevens

[patje8]

Ik heb 2 bestanden, Verloop Producten TEST + Verloop Producten - Gekookte zoneTEST
Het is de bedoeling dat al rijen in Verloop Producten TEST, tabblad FrigoKook worden overgenomen naar Verloop Producten - Gekookte zoneTEST, tabblad FrigoKook2 als deze dezelfde datum hebben.

Verloop Producten - Gekookte zoneTEST cel AA1 = Verloop Producten TEST - kolom H

Heb dit geprobeerd via VBA met de knop OVERNEMEN FRIGOKOOK maar krijg steeds een error.

 

[snb]

Een Excelbestand kan meer dan 1 werkblad bevatten.

 

[patje8]

Dit moeten 2 aparte bestanden blijven omdat er nog tabbladen moeten bijgevoegd worden.

 

[snb]

Het 'argument' is niet valide.

 

[patje8]

Sorry maar versta niet wat je bedoelt.
Heb je een voorbeeld?

 

[AHulpje]

Wat bedoel je met "dezelfde datum"?
Kun je aangeven welke rijen uit Frigokook moeten worden overgenomen in Frigokook2?

 

[patje8]

Alle rijen in FrigoKook waarbij in kolom kookdatum dezelfde datum hebben als cel AA1 in FrigoKook2

 

[AHulpje]

Een quick and dirty voorzetje, verre van optimaal en zeker niet foolproof:

Sub Importeer()
    Workbooks("Verloop Producten TEST.xls").Activate
    ActiveSheet.Range("$A$1:$Q$12").AutoFilter Field:=8, Operator:=xlFilterValues, Criteria2:=Array(2, "6/5/2024")
    With ActiveSheet.AutoFilter.Range
        .Offset(1, 0).Resize(.Rows.Count - 1).Copy
    End With
    Windows("Verloop Producten - Gekookte zoneTEST.xls").Activate
    Range("A1").Select
    Selection.End(xlDown).Select
    Selection.Offset(1, 0).Select
    ActiveSheet.Paste
End Sub

 

[patje8]

Bedankt AHulpje maar nu staat de datum vast. Wat als ik deze wil wijzigen? Dan lukt het niet.