Cellen kopieren naar een andere blad

[Djoties]

Help,

Ik wil graag met behulp van een macro rij 2 van werkblad "Gegevens" kopieren naar werkblad "register".
Bij het wegschrijven moet eerst worden gekeken wat de laatste regel is en daaronder wegschrijven.

Graag na wegschrijven ook een nummer automatisch toevoegen.


Ben benieuwd

 

[Roncancio]

Sub Wegschrijven()
Dim RglGgv As Integer
Dim RglReg As Integer
RglGgv = 2
RglReg = RglGgv

Do Until Worksheets("gegevens").Cells(RglGgv, "A") <> ""
RglGgv = RglGgv + 1
Loop
Do Until Worksheets("register").Cells(RglReg, "A") <> ""
RglReg = RglReg + 1
Loop

Worksheets("register").Cells(RglReg + 1, "A") = Left(Worksheets("register").Cells(RglReg, "A"), 4) & Format(Right(Worksheets("register").Cells(RglReg, "A"), 5) + 1, "00000")
Worksheets("register").Cells(RglReg, "C") = Worksheets("gegevens").Cells(RglGgv, "E")
Worksheets("register").Cells(RglReg, "D") = Worksheets("gegevens").Cells(RglGgv, "A")
Worksheets("register").Cells(RglReg, "E") = Worksheets("gegevens").Cells(RglGgv, "B")
Worksheets("register").Cells(RglReg, "F") = Worksheets("gegevens").Cells(RglGgv, "C")
Worksheets("register").Cells(RglReg, "G") = Worksheets("gegevens").Cells(RglGgv, "D")




End Sub

 

[Djoties]

Ik ben een leek

Roncanio,

Bedankt voor je reactie op mijn vraag.
Maar helaas kom ik nog niet uit.
Op e.a.manier werkt het macrootje niet.

Zou je s.v.p voor mij werkend in mijn voorbeeldje kunnen zetten

 

[Roncancio]

Ik heb de macro in het bijgevoegde document gedaan.
Je kan de macro starten via:

- EXTRA - MACRO - MACRO'S..
- CTRL-w

De macro kijkt op beide werkbladen wat de eerste lege regel is.
Vervolgens schrijft hij de gegevens van de laatste regel van werkblad "Gegevens" naar werkblad "Register".
Daarna voegt hij een nieuwe nummer toe. Dus van

VTV-00001
VTV-00002
VTV-00003
...
VTV-00010
VTV-00011

etc.

Ik hoop dat ik zo duidelijk. Als je nog vragen heb dan hoor dat wel van je.

Met vriendelijke groet,


Roncancio

 

[LucB]

Djoties,

Probeer deze eens.

 

[Djoties]

Thanks Ron & Luc

Luc, nogmaals bedankt.
Maar ik heb tot even nog een kort vraagje:

Stel nu dat:
Map "gegevens" in doc VTV staat en
Map "Register " in doc VTV Register.

Beiden open ik.
En vervolgens met een macro, vanuit VTV Register, wilt kopieren

Hoe doe ik dit?????

 

[LucB]

Djoties,

Als je het woord "Map" vervangt door "Blad" dan kan het.

Zet de Macro-recorder eens aan en doe dan alle handelingen die nodig zijn.
Zet die macro dan op het Forum, dan kan ieder je helpen om de macro te stroomlijnen.