Excel en Word

[corania17]

Beste forumleden,
Is het mogelijk om data in cellen in verschillende bladen van Excel over te zetten in een Word-document?
Of kan er een link in een Word-document worden geplaatst om naar Blad1-Cel A1 t/m A100 en/of Blad2 B1 t/m B100 te verwijzen?
Met vriendelijke groet, Rubik

 

[OctaFish]

Wat wil je precies? Ik snap het niet helemaal. Waarom zet je de gegevens niet eerst op één blad?

 

[roeljongman]

Ik denk dat je met deze link beter geholpen ben dan dat ik dat hele verhaal probeer uit te leggen..

https://www.opatel.nl/excel-tabel-koppelen-word

uiteraard moet je dat kunstje voor 2 bereiken 2x doen..

 

[corania17]

Beste OctaFish en Roeljongman, bedankt voor jullie reactie.
Ik denk ook dat het beter is om een nieuw blad aan te maken en daaruit de data halen die in Word kan worden ingegeven.
Maar er zijn twee bladen waaruit de data moet worden overgezet naar Word.
Een blad daarvan geeft een probleem.
In bijgevoegde bestand staat op Blad1 de data die moet worden omgezet naar Blad3, wat laat zien hoe het er uit moet komen te zien.
Van tekst naar kolom kan wel maar hoe moet dat nu anders om?
Als dat zal lukken dan kan ik van het andere tweede blad de data er achter plaatsen.
Het tweede blad is hierbij niet bijgevoegd omdat dit gewoon kopieerwerk is.
Bedankt bij voorbaat, Rubik.

 

[gast0660]

Met volgende code komt blad1 eruit te zien als blad3, is dit wat je zoekt?

Sub dotch()
Dim mRij As Long
Application.ScreenUpdating = False
mRij = 2
Do Until Cells(mRij, "A") = ""
        If Cells(mRij, "A") = Cells(mRij - 1, "A") Then
            Cells(mRij - 1, Columns.Count).End(xlToLeft).Offset(0, 1) = Cells(mRij, "B")
            Rows(mRij).Delete
        Else
            mRij = mRij + 1
        End If
    Loop
Application.ScreenUpdating = True
End Sub

 

[corania17]

Geachte gast0660, bedankt voor de hulp en het werkt prima.
Ik weet alleen nog niet hoe de macro precies werkt, maar dat moet ik later maar eens uit gaan zoeken.
Nu kunnen we de brieven personaliseren en verzenden.
Hartelijk dank, Rubik

 

[gast0660]

Blij dat het is opgelost.