Cellen in excel automatisch verplaatsen bij bepaalde waarde in kolom

[dannieshelp]

Hallo,

Mijn probleem is het volgende:
Ik gebruik in excel 2 werkbladen. Blad 1: Active list (lopende projecten); Blad 2: Project archive.
In kolom A geef ik een waarde van 1 t/m 4 afhankelijk van prioriteit en wanneer project klaar is verander ik de waarde in: complete (ik dit nu via een keuzelijst met invoervak).

Ik wil een soort update knop hebben, dat wanneer ik op deze knop druk alle projecten die klaar zijn verplaatst worden naar het werkblad "Project archive".
Dus de acties zoals ik zie zijn op te delen in:
-waarde checken in kolom A
-wanneer waarde "complete" is en men op knop "update" drukt dan moeten de relevante cellen (of rij) verplaatst worden naar werkblad : Project archive
Hoe kan ik dit programmeren? Want ik weet niet zoveel van Excel.

Groeten,

Danny

 

[gast0667]

Heb je dan een een excel-bestand met die gegevens ?
Kan ik even kijken.

 

[dannieshelp]

Excelbestandje

Hier heb je een gedeelte van mijn excelbestandje. Formulieren maakt lukt wel redelijk, alleen het programmeren gaat me allemaal iets te ver.

Alvast bedankt.

Danny

 

[gast0667]

Ik zal even kijken naar de code.

Maar zie dat je wel wat hebt gedaan.
Klopt het dat je geen "Userform" hebt toegevoegd ?
Heb je er wel 1 gemaakt ?

 

[gast0667]

Public Sub CommandButton3_Click()

With Worksheets("Formulation Active").Range("A5:A100")
Do
Set A = .Find("Complete", LookIn:=xlValues, searchdirection:=xlNext)
If Not A Is Nothing Then
    B = A.Row
    Rows(B).Copy
    Worksheets("Formulation Archive").Select
        With Worksheets("Formulation Archive").Range("A5:A100")
        Set Z = .Find("", LookIn:=xlValues)
        If Not Z Is Nothing Then
            Z = Z.Row
            Worksheets("Formulation Archive").Range("A" & CStr(Z)).Select
            ActiveSheet.Paste
            Application.CutCopyMode = False
        End If
        End With
    Worksheets("Formulation Active").Select
    Rows(B).Select
    Selection.Delete
End If
Loop Until A Is Nothing
End With

End Sub

Probeer deze code eens. De code werkt aan de hand van een commandbutton genaamd "CommandButton3".

 

[dannieshelp]

Yes, werkt perfect!

Ha gast0667,

Ja, dit is wat ik wilde. Het werkt geweldig!
Klopt, ik was bang dat het bestand te groot zou worden om te uploaden dus ik heb het bestand maar van alle formulieren en plaatjes ontdaan.

Nogmaals bedankt, ik kan weer verder. Misschien heb ik je hulp in de zeer nabije toekomst nodig, maar dit scheelt al heel veel hersengymnastiek.

Groeten,

Danny