Bereik plakken met macro

[jolly01]

Met onderstaande macro wil ik het bereik in tabblad Uitwerking F4:X4 plakken met de plakknop naar een regel in vanaf kolom F. Dus als ik klik bijvoorbeeld op cel F21, dan wil ik dat met de macro het bereik van F4:X4 in regel 21 vanaf cel F21 wordt geplakt.

Nou heb ik de macro uit een andere sheet gekopieerd in de hoop dat het met de code zijn werk doet. De macro plakt weliswaar iets in de regel waarop ik klik maar niet gewoon het bereik F4:X4

Sub Plak()

Dim rij As String
Dim eerstecell As String

rij = ActiveCell.Row
Range("F" & rij).Select
eerstecell = ActiveCell.Address

Range("F4:X4").Copy
    
Range(eerstecell).Select

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
Range(eerstecell).Select
ActiveCell.Offset(0, -1).Select
Application.CutCopyMode = False

End Sub

Kan iemand de code zo aanpassen dat de macro simpelweg het bereik F4:X4 plakt in de regel vanaf kolom F waarop ik klik?

 

[Wigi]

Sub Plak()
    Range("F4:X4").Copy ActiveCell
End Sub

of iets uitgebreider:

Sub Plak()
    Range("F4:X4").Copy Range("F" & ActiveCell.Row)
End Sub

 

[jolly01]

Bedankt voor je snelle reactie !

Ik heb de oude code gewist en jouw code er voor in de plaats geplakt. Ik heb de macro gebruikt voor de regels 7 t/m 11 in tabblad uitwerking. Ik krijg dan iedere keer een andere uitkomst, het bereik F4:X4 wordt er niet in geplakt. Althans niet vanaf cel F4. Cel F7 krijgt de uitkomst van Cel I4. Cel F8 van J4. Cel F9 van K4 enz. Het lukt me (nog) niet om hiermee het bereik te plakken vanaf kolom F.

Ik heb in F15:X15 de gewenste uitkomst gezet.

Wat doe ik niet goed?

 

[snb]

Sub zonder_lijm()
   [F21:X21]=[F4:X4].value
End

 

[jolly01]

Bedankt voor je reactie snb!

Regel 21 was als voorbeeld bedoeld. Nou wil ik dat de macro daar plakt waar ik eerst de cel heb aangeklikt dus dat kan elke cel binnen F7:F377 zijn.

 

[snb]

Sub lijmloos()
  with activecell
    range("F" & .row &":X" & .row)=[F4:X4].value
  end with
End Sub

maar waarom niet

sub lijmloos()
  cells(rows.count).end(xlup).offset(1).resize(,18))=[F4:X4].value
End Sub

en als je in E4 de datum zet kan het met

sub lijmloos3()
  columns(1).find([E4],,xlvalues,xlwhole).offset(,1).resize(,18))=[F4:X4].value
End Sub

 

[jolly01]

Hoi snb,

De eerste werkt prima ! :thumbe laatste 2 nog niet. Moet er niet End Sub aan het einde staan?

Nog een vraag:

Sub lijmloos()
  with activecell
    range("F" & .row &":X" & .row)=[F4:X4].value
  end with
End Sub

Hoe ziet de code eruit als ik naast het bereik F4:X4 ook AF4:AG4 en AY4:AZ4 wil plakken?

 

[jolly01]

Iemand een idee om hoe ook de bereiken [AF4:AG4] en [AY4:AZ4] in de code te betrekken?

 

[Wigi]

Iemand een idee om hoe ook de bereiken [AF4:AG4] en [AY4:AZ4] in de code te betrekken?

Begrijp jij wat de aan jou gegeven code doet?

 

[jolly01]

Klein beetje. Ik probeer zoiets als:

Sub lijmloos()
  with activecell
    range("F" & .row &":X" & .row)=[F4:X4] [AF4:AG4] [AY4:AZ4].value
  end with
End Sub

Maar dan krijg ik een foutmelding.

 

[snb]

Koop een boek over VBA en neem dat systematisch van voor naar achter door.

 

[gelens]

SNB

Koop een boek over VBA en neem dat systematisch van voor naar achter door.

Kan jij een advies geven over wat een goed boek is ? Als het kan in het nederlands maar als het niet anders is mag het ook een engels boek zijn.

 

[Revdutchie]

Gelens,

Ik heb sinds kerst "Macro's en VBA in Excel 2007"
In het nederlands geschreven door Gerrit Bruijnes maar het komt van
Pearson

Kost bij Bol.com ik dacht 19.95

 

[snb]

Mijn voorkeur:
Guy Hart Davis ( in het Engels, jawel; maar zeer leesbaar)

 

[Revdutchie]

Mijn voorkeur:
Guy Hart Davis ( in het Engels, jawel; maar zeer leesbaar)

Jouw advies wil ik zeker niet in de wind slaan, dus die ga ik morgen ook maar even aanschaffen.

Bedankt voor de tip.

 

[gelens]

Hallo SNB

Jouw favoriet is nogal een veel schrijver.

Mijn voorkeur gaat uit naar een verbetering van mijn Excel kennis d.m.v VBA.

Heb jij een favoriet boek dat daar bij aansluit ? :shocked::shocked:

 

[gelens]

Revdutchie,

Jouw advies wil ik zeker niet in de wind slaan, dus die ga ik morgen ook maar even aanschaffen.

Bedankt voor de tip.

War ga jij aanschaffen van deze schrijver ? Hij schrijft zoveel.

PS Jouw tip heb ik al besteld.

 

[Revdutchie]

Dat weet ik nog niet had aan het begin van de avond wel even gezocht, maar dacht dat zoek ik morgen wel uit. Denk wel als Snb het adviseert het een bruikbaar boek moet zijn.

Maar met de mijne die ik omschreef ben ik ook blij, al loop ik een beetje mank omdat ik nog excel 2003 heb en het boek over 2007 gaat, maar toch haal ik er veel nuttigs uit.