Excel Macro export gegevens

[Yesper]

Heb een macro die de gegevens wel overzet naar een ander bestand, maar hij overschrijft de gegevens van de andere tabel.
Kan iemand de aanvulling geven dat hij de gegevens in een lege regel zet.

Sub CaseDcPack()
Application.ScreenUpdating = False
Set wb1 = Workbooks.Open(Filename:="H:\dagplanning\dagplanning DC1\Dagplanning productie boven\Wijziging CaseDcPack.xlsm") '<----- Hier aanpassen
Set wb2 = ThisWorkbook
Set con = wb2.Sheets("CaseDcPack")
Set con1 = wb1.Sheets("Openstaand")
stFnd = con.[A1].Value
With con1
Set rFndCell = .Range("A1:I5").Find(stFnd, LookIn:=xlValues)
If Not rFndCell Is Nothing Then
fCol = rFndCell.Column
con.[A2:I2].Copy con1.Cells(1, fCol)
Else
MsgBox "Datum " & con.[B1] & " is niet gevonden", vbExclamation, "Datum ontbreekt."
End If



Hieronder staat nog een stuk wat hierachter ook een mail verzend naar bepaalde personen over de gegevens.

 

[JEC.]

Als je een een representatief voorbeeld bestand plaatst krijg je vast een mooie oplossing

 

[roeljongman]

Nou de helft van de code mist (geen end with, geen end sub.. maar vermoedelijk is het overschrijven voorkomen een kleine aanpassing. dus toch maar een poging

Alleen een aanpassing in de 4e rij van onder (vetgedrukte rij)

Sub CaseDcPack()
Application.ScreenUpdating = False
Set wb1 = Workbooks.Open(Filename:="H:\dagplanning\dagplanning DC1\Dagplanning productie boven\Wijziging CaseDcPack.xlsm") '<----- Hier aanpassen
Set wb2 = ThisWorkbook
Set con = wb2.Sheets("CaseDcPack")
Set con1 = wb1.Sheets("Openstaand")
stFnd = con.[A1].Value
With con1
Set rFndCell = .Range("A1:I5").Find(stFnd, LookIn:=xlValues)
If Not rFndCell Is Nothing Then
fCol = rFndCell.Column
[COLOR=#ff0000][B]con.[A2:I2].Copy con1.Cells(Rows.Count, fCol).End(xlUp).Offset(1, 0)[/B][/COLOR]
Else
MsgBox "Datum " & con.[B1] & " is niet gevonden", vbExclamation, "Datum ontbreekt."
End If

als dit het niet is dan graag het voorbeeldbestand en de volledige code. dat zoekt en lost een stuk makkelijker op.

 

[Yesper]

Beste

Ja de regel werkt prima zo, maar nu kom ik erachter dat het systeem alleen maar de eerste regel overzet naar het ander bestand.
Graag wil ik dat de export alle ingevulde regels overzet.
Ziet iemand daar ook nog een oplossing voor

 

[edmoor]

Lees #2 nog eens.