Regel wissen na verplaatsing

[chinouk]

Ik heb een code die regels kopieert naar een ander werkblad d.m.v. (doel)
Maar ik wil in een ander werkblad hetzelfde doen maar dan verplaatsen dan moet hij de regel wissen.
Ik ben al met clearcontents bezig geweest maar ik krijg het niet voor elkaar.
B.V.D. Geert
Zie code

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).[A4].End(xlUp).Row + 1
Range("A" & rij & ":G" & rij).Copy
With Sheets(Doel).Range("A" & Doelrij)
    .PasteSpecial xlValues
End With
End Sub

 

[danny147]

Beste chinouk

Kan je het bestandje hier plaatsen ?

Groetjes Danny. :thumb:

 

[Cobbe]

Normaal gezien zou deze dat moeten doen.

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).[A4].End(xlUp).Row + 1
Range("A" & rij & ":G" & rij).Copy
[COLOR="red"][B]Range("A" & rij & ":G" & rij).ClearContents[/B][/COLOR]
With Sheets(Doel).Range("A" & Doelrij)
    .PasteSpecial xlValues
End With
End Sub

Succes, Cobbe

 

[chinouk]

Hoi bedankt je had me al geholpen met deze werkmap maar toen ik het ging gebruiken werkte het niet zoals ik wilde.
Dus wil ik dat als ik het bij auto 1 het heb toegevoegd en ik denk later nee het gaat toch met auto 2 of wat dan ook mee dat ik het dan kan verplaatsen.
met Range("A" & rij & ":G" & rij).ClearContents
wist hij het wel maar hij plaatst het niet in de nieuwe rij op het andere werkblad.
Hier weer het voorbeeld met jou toevoeging in auto 1

 

[ExcelAmateur]

chinouk,

Ik ben maar een amateur in VBA maar probeer het eens zo.

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).[A4].End(xlUp).Row + 1
Range("A" & rij & ":G" & rij).Copy
With Sheets(Doel).Range("A" & Doelrij)
    .PasteSpecial xlValues
End With
Range("A" & rij & ":G" & rij).ClearContents
End Sub

 

[chinouk]

Helemaal top bedankt werkt perfect.
Is niet echt werk van een amateur vind ik!!!
Ik begin het wel steeds leuker te vinden.
Bedankt Geert

 

[chinouk]

Ik ben er nu mee gaan werken maar kwam tot de conclusie dat de regels die ik verplaats dan leeg blijven.
Kan ik nog wat aan de code toevoegen zodat hij alles weer bij elkaar schuift na het verplaatsen van de regel?
Heb er naar gezocht maar na uren tobben ga ik toch nog maar hulp vragen.
Alvast bedankt Geert

 

[ExcelAmateur]

chinouk,

Test dit eens op een test file.

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).[A4].End(xlUp).Row + 1
Range("A" & rij & ":G" & rij).Copy
With Sheets(Doel).Range("A" & Doelrij)
    .PasteSpecial xlValues
End With
Range("A" & rij & ":G" & rij).[COLOR="red"]EntireRow.Delete[/COLOR]
End Sub

 

[chinouk]

Dat heb ik al geprobeerd maar dan wordt mijn blad steeds kleiner.
Hij moet eigenlijk alles wat er onder staat naar boven schuiven.
Ben al een tijd bezig maar het lukt maar niet.
Geert

 

[Cobbe]

Laat eens weten over welke regel het gaat en wat er eigenlijk gebeurt en/of moet gebeuren.
Kun je dat in je bestand aangeven?

Cobbe

 

[chinouk]

Ok als je zeg maar meerdere klanten om te laden in de lijst heb staan van b.v. auto1 en je wil ze later verplaatsen naar een andere auto dan kies je dus aan het eind van de regel voor b.v. auto2.
Dan verplaatst hij die regel naar auto2 dit is goed maar als je dit meerdere malen doet krijg je overal lege regels en is het blad ineens vol.
Ik wil dus dat hij na het verplaatsen alles weer naar boven aanschuift.
Alvast bedankt Geert

 

[Cobbe]

De vraag stellen is vaak moeilijker dan een oplossing verzinnen!

Sorry, maar 't zal wel aan mij liggen maar ik snap niet wat je bedoelt.
Is het dan zo moeilijk om in je bestand de situatie te creëren die het probleem veroorzaakt.
En daar nota's bijschrijft van wat je nu eigenlijk wil.

Succes, Cobbe

 

[chinouk]

Ok ik ben er weer ik heb het bestand aangepast en duidelijk gemaakt wat ik bedoel.
Alvast bedankt

 

[Cobbe]

Vervang dan de verwijderde rij:

End With
Range("A" & rij & ":G" & rij).EntireRow.Delete
Rows("57").Insert Shift:=xlDown
End Sub

Zo blijft je layout intact.

Cobbe

 

[chinouk]

Ik ben een eind op weg ik heb alleen geen entirerow maar cells gebruikt.
Ik kreeg met entirerow een fout melding en met cells dezelfde foutmelding.
Hij doet wel wat ik wil maar krijg daarna een fout melding.
hoe krijg ik dit weg?
Zie bijlage