Hallo ,
Het is mijn bedoeling een macro te maken om tekst die gekopieerd is van een pdf of website
te plakken in één cel.
Normaal wanneer je 10 regels in een pdf kopieerd en plakt in excel staan deze 10 regels in 10 rijen onder elkaar.
Ik probeer dit met een macro op te lossen , wat slechts gedeeltelijk gelukt is.
Ter info : in cel A302 staat een formule om de tekst van A1 tot A300 samen te voegen .
De code die ik tot nu toe heb is :
Sub TekstVanPdfNaarCel()
Sheets(“22”).Select
Range("A1").Select
ActiveSheet.Paste
Range("A302").Select
Selection.Copy
Sheets(“11”).Select
Range("G30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(“22”).Select
Range("A1:A300").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Sheets(“11”).Select
Range("G30").Select
End Sub
De code wordt geactiveerd door bovenaan in een vastgezette rij te klikken op een knop (rechthoek)
Mijn vragen :
De code werkt maar plakt de tekst in altijd G30 .
Hoe moet de code aangepast worden voor het plakken in een willekeurig geselecteerde cel ?
Wanneer ik nu de code uitvoer zonder dat er iets op het klembord staat , krijg ik een foutmelding.
Kan dit verholpen worden zodat er dan een bericht verschijnt met " geen tekst gekopieerd" ?
De foutmelding is :
Fout 1004 tijdens uitvoering: Methode Paste van klasse Worksheet is mislukt .
Alvast bedankt voor de hulp ...
Het is mijn bedoeling een macro te maken om tekst die gekopieerd is van een pdf of website
te plakken in één cel.
Normaal wanneer je 10 regels in een pdf kopieerd en plakt in excel staan deze 10 regels in 10 rijen onder elkaar.
Ik probeer dit met een macro op te lossen , wat slechts gedeeltelijk gelukt is.
Ter info : in cel A302 staat een formule om de tekst van A1 tot A300 samen te voegen .
De code die ik tot nu toe heb is :
Sub TekstVanPdfNaarCel()
Sheets(“22”).Select
Range("A1").Select
ActiveSheet.Paste
Range("A302").Select
Selection.Copy
Sheets(“11”).Select
Range("G30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(“22”).Select
Range("A1:A300").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Sheets(“11”).Select
Range("G30").Select
End Sub
De code wordt geactiveerd door bovenaan in een vastgezette rij te klikken op een knop (rechthoek)
Mijn vragen :
De code werkt maar plakt de tekst in altijd G30 .
Hoe moet de code aangepast worden voor het plakken in een willekeurig geselecteerde cel ?
Wanneer ik nu de code uitvoer zonder dat er iets op het klembord staat , krijg ik een foutmelding.
Kan dit verholpen worden zodat er dan een bericht verschijnt met " geen tekst gekopieerd" ?
De foutmelding is :
Fout 1004 tijdens uitvoering: Methode Paste van klasse Worksheet is mislukt .
Alvast bedankt voor de hulp ...
Laatst bewerkt: