makro: sel. rijnummer, kopieer cellen, sel. rijnummer, plak

[nonono]

Ik probeer een makro te maken, die het volgende zou moeten doen:

- InputBox
- selecteer rijnummer (row#)
- selecteer eerste 5 cellen (A#:E#)
- kopieer
- InputBox
- selecteer rijnummer (row##)
- ga naar cel A##
- plak

Als in deze stappen in “Recording macro” uitvoer, dan vind ik rijnummer niet terug.
Hoe moet e.e.a er in visual basic uitzien?
Bedankt!

 

[Hoornvan]

nonono,

Zet deze code in een Module en verbind een knop op het werkblad hier mee.
Kijk of dit de bedoeling is.

Sub Copy_Plak()
 R = InputBox("Welke regel kopieren?")
  Rows(R).Columns("A:E").Copy [A6000]
 RP = InputBox("In welke regel plakken?")
  [A6000:E6000].Copy
  Rows(RP).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
 [A1].Select
End Sub

Hij kopieert het eerst naar A6000.
Anders is hij het gekopieerde bij de vraag waar te plaatsen al kwijt.

 

[Warme bakkertje]

Dit kan eenvoudiger

Sub tst()
    sq = Range("A" & InputBox("Welke regel kopieren?")).Resize(, 5)
    Range("A" & InputBox("In welke regel plakken?")).Resize(, 5) = sq
End Sub

 

[Hoornvan]

Warme bakkertje,

Het is zeker een stuk eenvoudiger en werkt uitstekend.:thumb:

 

[nonono]

Dank Rudi. Dit ziet er inderdaad heel eenvoudig uit.
Vervolgens heb ik geprobeerd om de regel “plakken” te vervangen door “Selection.Copy”.
Het idee is, dat ik na het selecteren van de regel vervolgens de selectie in een ander werkblad of document kan plakken.
Met “Selection.Copy” krijg ik echter de inhoud van de macro te zien.
Wat is de juiste syntax?
Bedankt!

 

[Hoornvan]

nonono,

Eerste vraag is;

- InputBox
- selecteer rijnummer (row#)
- selecteer eerste 5 cellen (A#:E#)
- kopieer
- InputBox
- selecteer rijnummer (row##)
- ga naar cel A##
- plak

Nu kom je met een heel andere vraag;

Het idee is, dat ik na het selecteren van de regel vervolgens de selectie in een ander werkblad of document kan plakken.

Had je dit niet gelijk kunnen vragen?

 

[Hoornvan]

nonono,

Nu schrijft hij de gekopieerde regel in Blad2 op de regel die je ingeef.

sq = Range("A" & InputBox("Welke regel kopieren?")).Resize(, 5)
Blad2.Range("A" & InputBox("In welke regel plakken?")).Resize(, 5) = sq

 

[nonono]

Dus niet. Run-time error ‘424’: Object required.
Mijn vraag was: om niet de macro te laten kiezen waar de selectie geplakt moet worden.
Als ik normaal in een werkblad een range kies, dan kan ik vervolgens eerst naar een ander werkblad of document gaan en dan plakken. De range wordt dus eerst op het clipboard geplaatst.
Ik wil dus dat de macro stopt na het kiezen van de te kopiëren range en vervolgens kies ik zelf waar te plakken.
Bedankt.

 

[Hoornvan]

nonono ,

Jouw blad heet waarschijnlijk Sheet (dit kun je zien in de VBA editor)

 

[Hoornvan]

nonono ,

Nu staat het op het clipboard.

sq = Range("A" & InputBox("Welke regel kopieren?")).Resize(, 5).Copy

 

[nonono]

Klopt. Sorry!
Maar de vraag blijft hetzelfde. Niet de macro het plakken laten bepalen.
De macro stopt na het selecteren van de range en vervolgens kies ik zelf waar te plakken.
Bedankt!

 

[Hoornvan]

Sub tst()
  sq = Range("A" & InputBox("Welke regel kopieren?")).Resize(, 5).copy   
End Sub

 

[nonono]

Het is opgelost.
Dank aan jou en Rudi.
Perfect!

 

[Hoornvan]

Graag gedaan.

Vergeet niet om de vraag als opgelost te zetten, dank u.:thumb: