Indien "gereed' regel verplaatsen naar blad 2 of 3

[ExcellentNL]

Hallo allemaal,

hier even een vraagje:

Voor mijn werk offreren wij erg veel, om dit een beetje te stroomlijnen wil ik dit in Excel bij houden.
Mijn vraag is: is het mogelijk dat, als een bepaalde cel een bepaalde waarde bevat, dat hij dan automatisch
gearchiveerd wordt?

Zie bijlage: Als er dus in de cel Uitgebracht? waarde ja staat, dan archiveren naar blad 2 (Uitgebrachte offertes) en indien er nee staat dan archiveren naar blad 3 (Afgewezen aanvragen).

De regels die verplaatst worden moeten dus verdwijnen van blad 1 (Ingekomen aanvragen)

Ik hoop dat ik het een beetje duidelijk heb omschreven, graag jullie hulp.

 

[Warme bakkertje]

En in welke kolom staat Uitgebracht ?
Wil je deze handeling onmiddelijk telkens je deze waarde verandert of bv 1x dagelijks voor alle resultaten ?

 

[ExcellentNL]

Bedankt voor je snelle reactie.

Zoals je kunt zien staat Uitgebracht? in kolom H.
Ik wil dit meteen laten uitvoeren.

Je hulp is welkom!

Btw. misschien is het ook makkelijk als het automatisch gebeurt wanneer ik alles doorstreep op die regel?

 

[jzeedijk]

Hoi ExcellentNL,


Het spreadsheet voorzien van twee macro's, de eerste schoont de bestaande lijst op en zet ze over naar blad 2 resp blad 3. De macro start als je op H1 drukt met de muis. De tweede macro zorgt er voor dat zodra Ja of Nee (in welke vorm dan ook) de macro uitgevoerd wordt.

Ik vermoed dat de lijst langer is.

Als je de macro's overneemt naar een ander sheet, let er dan wel op dat de cellen E1 op de werkbladen voorzien worden van de matrix-formule die het juiste regelnummer inleest!

Groet,

Jeroen

 

[ExcellentNL]

Jeroen,

Bedankt voor je hulp,ik ga er verder mee experimenteren, ik laat je morgen even weten of het gelukt is.
Voor zover, nogmaals: bedankt!

 

[ExcellentNL]

Kon toch niet wachten

Ik snap hem niet helemaal, die macro met als ja/nee wordt ingevoerd hij meteen verplaatst doet het.
Maar als ik nog een regel ingeef met ook ja/nee verdwijnt de eerste regel.

Dus 2 aanvragen, alle bij de status JA, dan verdwijnt de eerste op blad 2.

 

[jzeedijk]

Hoi ExcellentNL,

Wat ik vermoed is dat de testregels die je invoert geen datum van binnenkomst hebben. In dat geval wordt de nieuwe regel over de reeds bestaande regel geschreven, omdat Kolom A niet ingevoerd was. Ik schat zelf in dat ieder project een datum van binnenkomst heeft.

Zo niet dan moeten de formules in E1 op blad2 en 3 even aangepast worden.

Groet,

Jeroen

 

[Warme bakkertje]

Zonder formule en zonder copy

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
    Select Case LCase(Target)
        Case "ja"
            Worksheets(2).Range("A" & Worksheets(2).Cells(Rows.Count, 8).End(xlUp) _
                    .Offset(1).Row).Resize(, 9) = Range("A" & Target.Row).Resize(, 9).Value
            Rows(Target.Row).Delete
        Case "nee"
            Worksheets(3).Range("A" & Worksheets(3).Cells(Rows.Count, 8).End(xlUp) _
                    .Offset(1).Row).Resize(, 9) = Range("A" & Target.Row).Resize(, 9).Value
            Rows(Target.Row).Delete
    End Select
End If
End Sub