VBA-code hanteert verkeerde werkmap

[LauravT]

Hallo,..

Zie bijgevoegd bestand.
Met een druk op de knop in het formulier (map1) is het de bedoeling dat de gecontroleerde gegevens (waar correct dus op Ja of Nee staat) worden gekopieerd naar de database (map2), deze regels dienen dan meteen verwijderd te worden uit het formulier (map1).
Naar mijn idee zou mijn code het goed moeten doen,.. maar om een of andere reden voert de code alles uit in het formulier (map1).

De database (map2) is in principe gewoon een platte werkmap!

Waar zit mijn fouten(en)!?

Groetjes,..

Bekijk bijlage 260855

 

[VenA]

Als je de x uit F7 weghaalt, kan het met deze.

Sub VenA()
With Sheets("Blad1").Cells(8, 1).CurrentRegion
    .AutoFilter 6, "Ja", xlOr, "Nee"
    .Offset(1).Copy Sheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    .Offset(1).EntireRow.Delete
    .AutoFilter
End With
End Sub

 

[HSV]

Maar daarmee nog niet naar de juiste map.

 

[VenA]

Map1.xlsm, Map2.xlsm een sheet("1") je raakt dan toch ook de weg kwijt.:shocked:

Toch een poging

Met beide bestanden in dezelfde map en Map2.xlsm is nog niet geopend en je hebt een blad dat de naam "1" heeft in Map2.xlsm.

Sub VenA()
Workbooks.Open ThisWorkbook.Path & "\Map2.xlsm"
With Workbooks("Map1.xlsm").Sheets("Blad1").Cells(8, 1).CurrentRegion
    .AutoFilter 6, "Ja", xlOr, "Nee"
    .Offset(1).Copy Workbooks("map2.xlsm").Sheets("1").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    .Offset(1).EntireRow.Delete
    .AutoFilter
End With
Workbooks("map2.xlsm").Close 1
End Sub

 

[LauravT]

Bedankt voor jullie reacties!
Helaas doet ie daarmee nog steeds niet wat ie moet doen,.. !

 

[VenA]

Jammer. Viel net mijn glazen bol kapot............

 

[LauravT]

Inmiddels het eea op kunnen lossen!
Echter werkt de code nog niet naar wens,.. maar dit heeft te maken met verkeerd geinstalleerden updates!