Rij naar ander werkblad kopiëren afhankelijk van waarde in cel

[tijmen_4real]

Goedemorgen,

Ik heb een document wat de status van een aantal productieorders bijhoudt (PENDING ORDERS).

Hierin staat:
- Algemene informatie van een order (datum,naam,hoeveelheid)
- Specifieke informatie (inhoud,kleur,volgorde)
- Statusinformatie (input,wacht,in proces)

Hiernaast hanteer ik een werkblad waar de afgeronde orders (COMPLETED) in een lijst staan. Hieraan kan dan een notitie/opmerking gekoppeld worden, indien gewenst.
Ook wordt er van dit werkblad statistieken gemeten voor een derde werkblad (STATS)

Momenteel moet ik handmatig de order verplaatsen van PENDING naar COMPLETED wanneer deze afgerond is.
Het zou natuurlijk veel makkelijker zijn om dit in Excel te automatiseren, wanneer bijvoorbeeld de status in COMPLETED veranderd.
Kan dit zonder VBA? Zo ja, welke richting qua formule moet ik dan op?

Met vriendelijke groet,

Tijmen

 

[SjonR]

Een bestand zou je vraag enorm verduidelijken!

 

[tijmen_4real]

Een bestand zou je vraag enorm verduidelijken!

Zie hier een bestand: Bekijk bijlage vb_helpmij.xlsx
Wanneer dus eventueel de status veranderd in "COMPLETE" zou ik deze regel graag automatisch geknipt+geplakt wordt in werkblad "COMPLETED"

 

[SjonR]

Ik ben geen ster in VBA, maar hiermee zou het moeten lukken. (Code in blad "PENDING")

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R As Range, lastrow As Long
Set R = Blad1.Range("G1:G200")

lastrow = Sheets("COMPLETED").Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1

For Each cell In R
If cell.Text = "completed" Then
cell.EntireRow.Copy Destination:=Sheets("COMPLETED").Range("A" & lastrow)
cell.EntireRow.Delete
End If
Next cell
End Sub