Automatisch regels verplaatsen naar nieuw werkblad

[PJMS]

Wie kan mij helpen met het volgende:

Ik heb een crediteurenlijst van binnengekomen facturen.

Nu wil ik in de laatste kolom met een code werken, bijv. de B van betaald. Als de code B wordt ingevoerd dan wil ik graag dat die regel verdwijnt uit de lijst maar wel wordt
overgezet naar het nieuwe werkblad betaalde facturen.
Ik kom er niet uit, graag support.

Bij voorbaat dank.

Paul

 

[ExcelAmateur]

Ik heb een macro gevonden van VenA
https://www.helpmij.nl/forum/showth...0491&highlight=regels+verplaatsen#post6110491

Ik heb het bestandje verwijderd omdat het volgens mij niet juist werkt.
Sorry

 

[roeljongman]

Een Selection_change event macro kan dit voor je doen. bijv met deze code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 16 Then
    If UCase(Target.Value) = "B" Then
        pasteRow = Sheet3.Range("A50000").End(xlUp).Offset(1).Row
        With Cells(Target.Row, 1).Resize(1, 15)
            .Copy Destination:=Sheet3.Cells(pasteRow, 1)
            .EntireRow.Delete
        End With
    End If
End If
End Sub

deze code kopieert de eerste kolom A tm N van inkoopfacturen naar betaalde facturen
en verwijderd daarna de rij uit inkoopfacturen
zowel de invoer van de hoofdletter B als kleine letter b in kolom P zal de rij verplaatsen

zie ook bijlage.

 

[PJMS]

Bedankt!

Beste Roel,

Enorm bedankt voor jouw support!

Als ik in de macro de B verander in DATE en ik voer in kolom P
een datum in ipv een B gebeurd dan hetzelfde met het wegschrijven van de regel naar werkblad Betaalde Facturen?

Groet,

Paul

 

[roeljongman]

Nee dan heb je een andere test nodig

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 16 Then
    If [COLOR="#FF0000"]IsDate(Target)[/COLOR] Then
        pasteRow = Sheet3.Range("A50000").End(xlUp).Offset(1).Row
        With Cells(Target.Row, 1).Resize(1, [COLOR="#FF0000"]16[/COLOR])
            .Copy Destination:=Sheet3.Cells(pasteRow, 1)
            .EntireRow.Delete
        End With
    End If
End If
End Sub

Ik heb het aantal te kopieren kolommen ook aangepast van 15 naar 16 zodat kolom P met de datum ook naar het archief wordt gekopieerd

 

[PJMS]

Nog 1x

Roel,

Bij de eerste Makro kreeg ik voor elkaar in kolom P

Maar met de nieuwe 'datum Makro' krijg ik het niet voor elkaar.
Ik heb eerst een aantal cellen P3 tot P? geselecteerd, geen resultaat en vervolgens
de kolom p geselecteerd. Ook geen resultaat.
Ja, ik ben een leek, weet ik. Toch graag jouw support.

Groet,

Paul

 

[PJMS]

Fout (?)

Roel,

De makro 'DATE' geeft deze foutmelding:
Copy Destination:=Sheet3.Cells(pasteRow, 1)

Groet,

Paul

 

[emields]

Ik snap niet wat je niet voor elkaar krijgt

nu werkt het zowel met een b als met een datum.

 

[PJMS]

Nogmaals

Dank, het werkt perfect. Ik ben blij!

Paul