Van gekopieerde tekst in een pdf naar tekst in 1 cel met vba

[gunarke]

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 ...

 

[edmoor]

Je vertelt er niet bij welke foutmelding je krijgt en hoe die code wordt geactiveerd.

 

[gast0660]

Probeer het eens zo:

Sheets(“22”).Select
[COLOR="#FF0000"]On Error GoTo OOPS:[/COLOR]
Range("A1").Select
ActiveSheet.Paste
Range("A302").Select
Selection.Copy
Sheets(“11”).Select
[COLOR="#FF0000"]ActiveCell[/COLOR].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
[COLOR="#FF0000"]Exit Sub
OOPS:
MsgBox "geen tekst gekopieerd", vbCritical, "Opgepast"[/COLOR]
End Sub

 

[gunarke]

Ik heb de code geprobeerd met en zonder gekopieerde tekst en krijg steeds de melding :

Fout 9 tijdens uitvoering: Het subscript valt buiten bereik

Groeten

 

[gunarke]

Probleem opgelost door onderaan Range("G30").Select te vervangen door Range("G2").Select

Heel erg bedankt voor de aanpassing van mijn code :thumb:

en nog een fijne dag ...

 

[snb]

Ik zou er eerst eens VBA van maken:

sub M_snb()
  on error goto XL90
  Sheets(“22”).Paste sheets("22").cells(1)
  Sheets("11").cells(302,1)=sheets("22").cells(302,1).value
  Sheets(“22”).Range("A1:A300").ClearContents

XL90:
   if err.number<>0 then MsgBox "geen tekst gekopieerd", vbCritical, "Opgepast"
End Sub