ik wil een bepaalde range van het ene werkblad kopieren naar een ander werkblad met behoud van opmaak via een macro. De geplakte gegevens worden vervolgens in word gezet met behulp van pastespecial koppeling in word.
Problemen:
- in de geplakte cellen neemt hij niet de gehele tekst mee, maar kapt hem af. (cel terug loop werkt wel in de bron cel maar in de doel cel alleen de eerst 10 regels ofzo)
- de opmaak word niet meegekopieerd (PasteFormat werkt niet.)
- in Word zit er ineens een inspringing in de tabel waardoor de tekst buiten het blad valt.
in word plak ik mbv plakkenspeciaal / koppelingplakken / opgemaakte tekst (RTF)
Problemen:
- in de geplakte cellen neemt hij niet de gehele tekst mee, maar kapt hem af. (cel terug loop werkt wel in de bron cel maar in de doel cel alleen de eerst 10 regels ofzo)
- de opmaak word niet meegekopieerd (PasteFormat werkt niet.)
- in Word zit er ineens een inspringing in de tabel waardoor de tekst buiten het blad valt.
Code:
Sheets("quickscanverslag").Select
Sheets("geselecteerde maatregelen").Range("A2:A60").Copy
Sheets("opgenomen maatregelen").Range("A2:A60").PasteSpecial
Sheets("opgenomen maatregelen").Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
' gooit alle lege regels uit de lijst met besparingen tbv quickscan verslag
With CreateObject("Word.Application").Documents.Add(ThisWorkbook.Path & "\Format Quickscan verslag.doc")
.Application.Visible = True
End With
'opent Word en voegt format quickscan toe: moet in de zelfde map staan!in word plak ik mbv plakkenspeciaal / koppelingplakken / opgemaakte tekst (RTF)
Laatst bewerkt:
