kopieren naar ander werkblad

[chinouk]

Ik ben een planning aan het maken en wil vanuit de beginlijst kiezen voor b.v.auto1 en dat die regel dan naar het werkblad met die naam wordt gekopieerd.
Iemand een oplossing???
Ik ban hier al weken mee bezig maar het lukt niet.
Zie bijlage
Bedankt GeertBekijk bijlage Voorbeeld 1.xls

 

[Cobbe]

Kijk eens of deze werkwijze iets is voor u.
Je kunt elke regel maar één keer wegschrijven.
Als het blad vol en weggeschreven is kun je het gewoon leegmaken en opnieuw beginnen.
Ik heb de validatie voor KLANT en AUTO dynamisch gemaakt zodat je gewoon onderaan kunt bijvullen.

Cobbe

 

[chinouk]

Bedankt dat je me zo snel helpt en dit werkt inderdaad zoals ik bedoelde.
Ik was al met rowcopy bezig geweest maar ik heb nog niet veel kennis van VBA.
Alleen als ik het b.v. naar auto1 kopieer en dan denk o het hoort toch in auto2 en ik wis het handmatig kan ik in het beginlijst niet opnieuw kopieren dan blijft hij zeggen "is al weggeschreven".
Maar het is niet mogelijk om dit met een voorkeuzelijst te doen?
Dus als ik dan auto1 kies en het daarna verander in auto2 dat hij het dan uit auto1 wist en naar auto2 verplaatst?
Misschien is dit erg ingewikkeld?
Bedankt

 

[Cobbe]

Ik heb er een RESET-knop bijgedaan voor de zelfde prijs.
Deze knop haalt de laatste invoer weg uit het doelblad EN het doel in het invulblad, ook reset hij de rij voor Muteren, zodat dat ook weer kan.

Hoop dat het een beetje tegemoetkomt aan uw vraag.

Succes, Cobbe

 

[chinouk]

Oke super bedankt ik ga hier mee aan de slag.

 

[chinouk]

Ik ben een heel eind maar er zitten toch nog wat foutjes in.
Misschien zie jij wat er fout is.
En is het mogelijk om die reset knop ook te gebruiken als je het later wil wissen?
Of misschien heb jij een beter idee?
Het is jammer dat het niet makkelijker kan b.v. als je het kenteken kiest dat het dan zonder knop gelijk in dat blad staat.
en als je het later veranderd weer verplaatst naar een ander kenteken.
Misschien een beetje veel info.
Bedankt Geert
P.S. ben 2 dagen weg dus ik lees het woensdag

 

[Cobbe]

Met deze code achter tabblad 'Beginlijst':

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H4:H100")) Is Nothing Then Exit Sub
rij = Target.Row: Doel = Target.Text: Doelrij = Sheets(Doel).[A56].End(xlUp).Row + 1
Range("A" & rij & ":G" & rij).Copy
With Sheets(Doel).Range("A" & Doelrij)
    .PasteSpecial xlValues
End With
End Sub

wordt de rij weggeschreven bij wijzigen van de cel in kolom H.
Als je deze cel wijzigt wordt het opnieuw weggeschreven naar de waarde uit cel H
Maar daarom is deze rij nog niet weg uit het foute tabblad.

Zoek maar even verder.

Cobbe

 

[chinouk]

Top dit is precies wat ik bedoel.
Werkt goed nu moet ik alleen nog kijken of ik het voor elkaar krijg dat
hij het uit de laadlijst wist als ik in de beginlijst het nummer verander.
Zou het kunnen dat als ik eerst het lege veldje boven de kentekens kies
dat hij het dan wist en dan daarna een nieuw nummer kiezen?
Je hebt me tot dusver erg geholpen bedankt daarvoor.
Geert

 

[Cobbe]

Ik heb er een knop wissen bijgezet.
Deze haalt het autnr weg in beginlijst en de laatste invoer uit het oorspronkelijk blad.
Wil je willekeurig gaan wisselen zal je met een ID-nr moeten werken denk ik zo.

Succes, Cobbe

 

[chinouk]

Ok ik heb het voor elkaar het werkt allemaal perfect bedankt voor alle moeite.
Weer een hoop geleerd.
Super Bedankt Geert