macro voor invoegen regels gevraagd

[gide]

Hoi Ex(cel)perts,

Ik heb een sheets waarin regelmatig (door junior excel-gebruikers) een aantal (steeds dezelfde) regels moet worden ingevoegd. Graag zou ik dit automatiseren met een macroknop.

Stel dat die regels in rij 1 tot en met 5 staan. De gebruiker selecteert een rij, drukt op de macroknop en rij 1 tot en met 5 worden ingevoegd..... De plek waar de rijen ingevoegd moeten worden kan verschillen.

Het koppelen van een macro aan een knop lukt wel, alleen het stukje VBA code......

Wie helpt....?

Gide

 

[richard1970]

Hoi Gide,

Een simpel voorzetje:

Sub Zet_Waarden()
If ActiveCell.Column <> "1" Then
MsgBox ("Je staat niet in kolom A")
Else:
ActiveCell.Value = Range("A1").Value
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Range("A2").Value
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Range("A3").Value
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Range("A4").Value
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Range("A5").Value
ActiveCell.Offset(1, 0).Select
End If
End Sub

Deze macro werkt zodra je 'm activeert, en controleert eerst of de actieve cel wel in kolom A staat. Zo niet, dan gebeurt er neits.

Succes,

Richard

 

[eric roodhooft]

vba vraagje

hey Foerum
ik heb een excellijst gemaakt.
nu is de vraag of iemand mij kan helpen?
ik zou graag een macro maken met textbox zodat ik in een standdard brief ,
achtenaam voornaam
adres
gemeente
en daarna de dag en het uur voor de afspraak in de brief te laten verschijnen;
iemand een voorzetje?
alvast bedankt.
Eric

 

[richard1970]

Beste Eric,

Je kunt hier beter een aparte vraag van maken, in plaats van het achter de vraag van een ander te plakken.

Richard

 

[gide]

Invoegen rijen

Hoi Richard,

Het door jou geschreven stukje code doet niet helemaal wat ik zou willen. Ik denk dat de vraag niet helemaal duidelijk was. Om dit te verhelpen heb ik een voorbeeldbestandje gemaakt.
Het gaat erom dat een kopie van de eerste vijf rijen ingevoegd wordt boven de gele streep. De plaats van de gele rij zal uiteraard gaan wijzigen als het bestand groeit.

Gr. Gide

 

[richard1970]

Beste Gide,

Zo beter?
Sub Macro3()
Dim RMrij
RMrij = ActiveCell.Row

Rows("1:5").Select
Selection.Copy
Range("A" & RMrij).Select
Selection.PasteSpecial Paste:=xlValues
Range("A" & RMrij).Select
End Sub

Richard

 

[eric roodhooft]

Beste Richard,
graag had ik er een vraag van gemaakt.
enkel weet ik niet hoe jie die maakt;
kan je even vertellen hoe ik een vraag plaats ,
alvast bedankt.
Het was niet mijn bedoeling om onbeleefd ergens een vraag tussen te plaatsen
groeten, Eric

 

[gide]

invoegen rijen

Hoi Richard,

Het werkt al beter, alleen de waarden uit rij 1 tm 5 worden over bestaande waarden heen geplakt. De bedoeling is dat de rijen ingevoegd worden.

Heb van Selection.PasteSpecial Paste:=xlValues gemaakt:
Selection.Insert

Lijkt nu goed te werken....!

Wat is het doel van de laatste regel in je code? (Range("A" & RMrij).Select)

bedankt.....

Gr.Gide

 

[richard1970]

Beste Gide,

Fijn als het werkt.
De laatste regel zorgt ervoor dat je weer 1 cel geselecteerd hebt, namelijk de cel die actief was.

groeten,

Richard

 

[CorVerm]

Beste Richard,
graag had ik er een vraag van gemaakt.
enkel weet ik niet hoe jie die maakt;
kan je even vertellen hoe ik een vraag plaats ,
alvast bedankt.
Het was niet mijn bedoeling om onbeleefd ergens een vraag tussen te plaatsen
groeten, Eric

Eric,
Om een vraag te plaatsen klik je rechtsboven in het scherm op "Plaats een vraag". Overigens is het beter, lijkt mij, om in Word een standaardbrief te maken en in Excel een adreslijst. Je kunt dan de gemaakte adreslijst koppelen aan Word.