Excel:Gegevens verplaatsen

[milas]

Wat doe ik verkeerd? wil in een bestand (dagrecu) gegevens opzoeken en automatisch in een ander bestand (makro) invullen maar het lukt me niet. kan iemand mij helpen aub?

Workbooks.Open Filename:="L:\makro\dagresu.xls"
Windows("dagresu.xls").Activate

'cijfers maken van tekst velden
For z = 2 To 1500
Cells(z, 3) = Cells(z, 3) + 0
Cells(z, 5) = Cells(z, 5) + 0
Next z

'overzetten van datum
dag = Cells(2, 14)
Windows("dagrecu.xls").Activate
Cells(1, 46) = dag

For x = 2 To 1500

'indien deurne
If Workbooks("dagresu.xls").Sheets("Lijst bons niveau 0 detail").Cells(x, 3) = 706 Then
invulkol = 36
GoTo 20
End If

20
produkt = Workbooks("dagresu.xls").Sheets("Lijst bons niveau 0 detail").Cells(x,5)
aantal = Workbooks("dagresu.xls").Sheets("Lijst bons niveau 0 detail").Cells(x, 7)

For y = 1 To 500
If Workbooks ("makro.xls).Sheets ("bestel").Cells(y,1) = produkt Then

Windows("dagresu.xls").Activate
Cells(x, 5).Select
End
End If

Windows("dagresu.xls").Activate
ActiveWorkbook.Close
Windows("Makro.xls").Activate


End Sub

 

[Spiderman]

Dubbele Post A.U.B. in deze verder gaan