Macro kopieren rijen naar ander bestand, lukt niet

[GerbenDenker]

Hallo,

Eerder kreeg ik al een oplossing voor het kopiëren van gegevens van het ene werkblad het ene naar het andere werkblad in een ander bestand.

Onderstaande code werkt alleen als de gegevens van het ene werkblad niet gevuld zijn door een koppeling met een ander werkblad.

Application.ScreenUpdating = False
    Workbooks.Open "D:\Hoofd.xlsm"
    With ActiveWorkbook
        With .Sheets(3)
            r = .Range("A" & Rows.Count).End(xlUp).Row 
           With ThisWorkbook.Sheets(1).Range("A2:K31")
 'dit kan geen blad met waarden vanuit een koppeling zijn - anders wordt er niet gekopieerd - hoe kan dat ?... 
            .Copy ActiveWorkbook.Sheets(3).Cells(r, 1)
            End With
        End With
    End With
    Application.ScreenUpdating = True

    ActiveWorkbook.Close SaveChanges:=True


End Sub

Als de gegevens van Sheets(1) dus gevuld zijn door gekoppelde waarden (komen uit hetzelfde bestand),
worden de gegevens niet doorgekopieerd naar Sheet3 (het andere doelbestand dus).

Wat moet er aan de code gewijzigd worden dat het wel lukt ?

 

[Roncancio]

In plaats van kopiëren van de cellen, de waardes overzetten naar het andere bestand.

Sub Wegschrijven()
Workbooks.Open "D:\Hoofd.xlsm"
With ActiveWorkbook
    .Sheets(3).Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Resize(30, 11).Value = ThisWorkbook.Sheets(1).Range("A2:K31").Value
    .Close SaveChanges:=True
End With
End Sub

Met vriendelijke groet,


Roncancio

 

[VenA]

De perfecte oplossing staat hier. http://www.worksheet.nl/forumexcel/vragen/85016-gegevens-kopieren-naar-ander-bestand.html

 

[GerbenDenker]

Bedankt, het werkt, maar dat is niet de oplossing van het gegeven voorbeeld.
De bedoeling is dat de rijen er onderaan worden gevoegd bij de reeds bestaande.
En dat eventueel dubbel waarden (dus de rij ervan) niet gekopieerd wordt.
Zo werkt de marco ook.
Maar dus niet in het geval vanuit een gekoppelde situatie.

Dus het kopieergeelte moet worden > waardes overzetten.
De code kan ik niet; kan je me verder helpen?

 

[huijb]

@GerbenDenker Uiteraard mag je op elk forum posten maar geef op ze minst aan dat je je vraag ook al ergens anders heb gesteld. Dit is niet respectvol naar de helpers, die veelal op meerdere fora actief zijn.

 

[GerbenDenker]

Mijn excuus; niet zo bedoeld.
Omdat ik geen antwoord kreeg, dacht ik dat hier de vraag niet beantwoord zou worden.
Ik zit erg omhoog met de oplossing, vandaar dat ik dacht het op een ander forum te proberen.
Spijt me. Excuus aanvaard ?

 

[Roncancio]

Kan je een voorbeeldbestand bijsluiten wat precies de bedoeling is?

Met vriendelijke groet,


Roncancio

 

[GerbenDenker]

Hooi, heb het al opgelost. Een tussenblad gemaakt waarvan de koppeling eerst verbroken wordt en dan wordt er doorgekopieerd.
Werkt wel.
in ieder geval bedankt.