Het verplaatsen van gegevens

[HammerJohn]

Na van alles geprobeerd te hebben is het uiteindelijk geluk om de gegevens vanuit een lijst naar een
andere sheet te zetten.
Maar nu wil ik het eigenlijk niet in een sheet maar andere werkmap zetten de sheet heet daar het zelfde
heb al een macro opgenomen maar dan lijkt het nergens op en loopt het vast.

Private Sub CommandButton5_Click()

Dim rij As Long
Dim n As Long
Dim src As Worksheet
Dim trg As Worksheet
Set src = Sheets("Persoonsgegevens")
Set trg = Sheets("Historie")

Application.ScreenUpdating = False
rij = trg.[B65536].End(xlUp).Row + 1
For n = 1 To src.[B65536].End(xlUp).Row
If Cells(n, "y").Value = "ja" Then
Range(Cells(n, "b"), Cells(n, "x")).Copy
trg.Cells(rij, "b").PasteSpecial
Application.CutCopyMode = False
rij = rij + 1
End If
Next
End Sub

De werkmap waar het naar toe moet heet Gegevens2016.xlsm en staat in de directory c:\\Urenlijst\
((c:\\Urenlijst\Gegevens2016.xlsm)) de gegevens komen uit de map die geopend is daar bevind zich
ook de button

Wie o wie kan mij helpen, de map moet geopend worden en gesloten, als dit niet kan dan zal ik hem
zelf openen als hij de gegevens maar door kopieert.

Met vriendelijke groet John

 

[VenA]

Lijkt mij niet echt een macro-opname maar meer een kleine aanpassing in de code uit jouw vorige vraag.

Probeer het zo maar eens.

Sub VenA()
c00 = "D:\Temp\Doelbestand.xlsx"
  With Range("B1:X" & Cells(Rows.Count, 2).End(xlUp).Row)
    .AutoFilter 1, "ja"
    .Copy
    With GetObject(c00)
      .Sheets("Historie").Range("B1").PasteSpecial
      .Close -1
    End With
    .AutoFilter
  End With
End Sub

 

[HammerJohn]

Dat klopt maar ik heb geprobeerd met macro opname en dat was niet echt een succes maar veel foutmeldingen.
Vandaar de vraag.....

ik heb deze code gebruikt maar dan krijg ik een fout hij kopieert enkel de bovenste regel en dan ook alleen de
opmaak en in die regel staat ook geen ja.... dus volgens mij filtert hij niet op de juiste manier ik worstel met dit
probleem dus ook in mijn macro

 

[HammerJohn]

Bijgevoegd de 2 bestanden waar vanuit ik de gegevens wil verplaatsen,
misschien doe ik iets fout maar vandaar dus ook deze vraag

Omdat ik nu alles knip en plak kost het veel tijd ik hoop op een oplossing
het gaat erom dat de regels waar ja in staat verplaatst worden
De regels hoeven niet gewist te worden.

bij voorbaat dank

 

[VenA]

Probeer het zo eens.

Sub Verplaatsen()
c00 = "c:\urenlijst\gegevens2016.xlsm"
Application.ScreenUpdating = False
  With Range("A4:y" & Cells(Rows.Count, 1).End(xlUp).Row)
    .AutoFilter 25, "ja"
    .Offset(1).Resize(, 24).Copy
    Workbooks.Open c00
      Sheets("Historie1").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial
      ActiveWorkbook.Close True
    .AutoFilter
  End With
End Sub

 

[HammerJohn]

Hij geeft op de volgende regel een error. ik gebruik office 2016 weet niet of dat nog wat veranderd!

Sub Verplaatsen()
c00 = "c:\urenlijst\gegevens2016.xlsm"
Application.ScreenUpdating = False
With Range("A4:y" & Cells(Rows.Count, 1).End(xlUp).Row)
.AutoFilter 25, "ja"
.Offset(1).Resize(, 24).Copy
Workbooks.Open c00
Sheets("Historie1").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial
ActiveWorkbook.Close True
.AutoFilter
End With
End Sub

 

[VenA]

De gele regel is niet te lezen. Welke foutmelding krijg je? In je OP heet de tab Historie in het voorbeeldbestand Historie1 waar zal het dan fout gaan?

 

[HammerJohn]

Sheets("Historie1").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial

 

[VenA]

Ja dat ik ik zelf ook wel begrijpen. Nu de foutmelding nog.

 

[HammerJohn]

ik denk dat ik weet waar het fout zit, in mijn blad waar het naar toe gaat staat in de a kolom een formule
zodat ik het deelnemer nummer niet hoef in te vullen dus ik wil alleen b t/m y kopiëren en verplaatsen

want met een leeg blad werkt het wel

sorry dat mijn info niet compleet was