plakken op eerst volgende lege rij

Status
Niet open voor verdere reacties.
T

tombeerke

Gebruiker
Lid geworden
8 jan 2017
Berichten
280
Hallokes,

Heb een klein probleempje, wie kan me helpen

Ik heb volgende macro gemaakt

Sub ArtikelBijvoegen()
'
' ArtikelBijvoegen Macro
'

'
Range("A6:F17").Select
Selection.Copy
Range("A19").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

Nu plakt de macro steeds in cel "A19"
En dit zou moeten worden in de eerste lege van kolon "A"

Wie kan me helpen

bedankt

Tom
 
Beantwoord in je vorige vraag.
 
Code: 
Sub ArtikelBijvoegen()
Dim lastrow As Long, sr As Worksheet
Set sr = Blad1
lastrow = sr.Range("A" & Rows.Count).End(xlUp).Row + 1

sr.Range("A6:F17").Copy
sr.Range("A" & lastrow).Select
Selection.PasteSpecial

End Sub
 
Als je in dezelfde kolommen blijft is 'pastespeial xlpastecolumnwidths' overbodig
Code: 
[COLOR=#3E3E3E]Sub ArtikelBijvoegen()[/COLOR][COLOR=#333333]
 Range("A6:F17").copy cells(rows.count,1).end(xlup).offset(1)
end sub[/COLOR]
 
Mijn bijdrage:
Code: 
Sub ArtikelBijvoegen()
    Dim LR As Long
    LR = ActiveSheet.Cells(ActiveSheet.Rows.Count, "F").End(xlUp).Row + 2
    Range("A" & LR & ":F" & LR + 11) = Range("A6:F17").Value
End Sub
 
Aan Edmoor

je macro werkt perfect, enkel neemt hij de opmaak niet mee, en dat is wel noodzakelijk, heb geprobeerd zelf met paste.special maar lukte me niet,
jij een idee om de opmaak mee te nemen ?

thx alvast

Tom
 
Gebruik dan die van HSV in #4.
 
Heren,

Ik heb alle subs geprobeerd, als ik die van #4 gebruik krijg ik een foutmelding, dus daar kom ik ook niet verder mee

De sub van edmoor, werkte, enkel de opmaak werd niet mee gecopierd ,

Groetjes

Tom
 
Die van HSV doet het prima. Als je zegt een foutmelding te krijgen vertel deze er dan ook altijd bij. Ook kunnen er andere zaken meespelen en daarom is het altijd belangrijk om een relevant voorbeeld document te plaatsen.
 
Nogmaals geprobeerd, maar krijg altijd volgende foutopsporing

foutmelding.JPG

Raar maar waar :)

Enig idee ?

groetjes

Tom
 
Ik zie nog steeds geen foutmelding, alleen een gemarkeerde regel.
 
Als ik de macro probeer uit te voeren, krijg ik een popup "foutopsporing" of "beeindigen" als ik op foutopsporing klik, krijg ik de melding die ik vorig bericht verstuurde
 
Zulke simpele codes geven geen foutmelding.
 
Eventjes op de knop samengevoegde cellen drukken, klaar.
 
beste Harry,

Heb de samengevoegde cellen terug "losgemaakt", krijg nu geen foutmelding meer, maar de macro kopieert niet op de juiste plaats ?!
Plakt enkel de onderste regels en dan ook nog richting naar boven ?

snap er nu helemaal niks meer van :)

in het bestandje dat ik meestuurde, werkt het daar prima bij jou ?

thx alvast

tom
 
De code kopieert in de eerste de beste lege cel van kolom A.
Als er niets in kolom A staat wordt het in cel A2 geplaatst.

Dus als A10 de laatst gevulde cel is, wordt het geplaatst in A11.
 
Heren,

Het is me gelukt !
het werkt prima nu !

heel hartelijk dank voor jullie hulp

groetjes

Tom
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan