Status naar 2

[Martijn156]

Voor de eenvoud het eea kort gehouden. In de bijlage een bestand voor het verwerken van orders. Als een order wordt ingevoerd krijgt het een status 1. Als de order klaar is hoort dit een status 2 te krijgen. In het tabblad 'Invoer' kan bovenin een order verwerkt worden en onderin hoort een order afgerond te worden dwz een 2 ipv 1 achter het ordernummer in tabblad 'Orders'. Hoe krijg ik dit gedaan dmv een macro en door alleen op te nemen? Ik krijg het nl. niet voor elkaar om de geselecteerde order op te zoeken in de lijst van 'Orders' of is dit niet te doen?

 

[Roncancio]

Het kan zelfs op 1 regel.

Sub Button3_Click()
Sheet2.Range("A2:A100").Find(Range("B10"), , xlValues, xlWhole).Offset(0, 3).Value = 2
End Sub

Met vriendelijke groet,


Roncancio