Regels verplaatsen aan de hand van grootte.

[Meaurk]

Hallo,

Ik heb voor mijn werk een afspraken agenda gemaakt. Deze agenda loopt per week.
Wanneer de week voorbij is, kun je op een "formulierbesturingselement (knop)" drukken waardoor de laatste week naar een ander blad wordt verplaatst.
Op dit moment werkt deze code nog op datum, ik wil deze echter op de eerstvolgende witregel laten acteren in kolom B. Hieronder staat de VBA code die ik nu gebruik met "endWeek".

Alvast bedankt.

Sub AgendaNaarHistorieVarBer()


    vWeetzeker = MsgBox("Are you sure you want to move the last week to the History worksheet?", vbInformation + vbYesNo, "Confirmation")

    If vWeetzeker = vbYes Then

        endWeek = Blad2.Range("B3").End(xlDown).Offset(1, 0).Row

            Blad2.Range("A3:N" & endWeek).Cut
            Blad1.Range("A3").Insert Shift:=xlDown
            Blad2.Range("A3:N" & endWeek).EntireRow.Delete

        MsgBox "The week is moved to the History worksheet.", vbInformation, "Week moved"

    Else

        MsgBox "No action is taken.", vbInformation, "No action"

    End If


End Sub

 

[Cobbe]

Zou deze dat voor u opknappen?

 endWeek = Blad2.Range("B"& rows.count).End(xlUp).Offset(1, 0).Row

 

[Meaurk]

Nee, helaas niet. Hij verplaatst dan het hele blad naar het andere blad.

Hieronder een voorbeeld bestand met de oude VBA code. Je ziet dat het gedeeltelijk werkt, maar hier en daar nog wat foutjes bevat. Vandaar dat ik het op witregel wil hebben.

Bekijk bijlage voorbeeld planning.xlsm

 

[Cobbe]

Helaas werkte dat wel maar het loopt fout door die samengevoegde cellen.
Heb de check nu gedaan op kolom C en de samengestelde cellen ontkoppeld.

 

[Meaurk]

Ook in jouw bestand komen fouten voor wanneer je op de knoppen drukt.

 

[Cobbe]

Ik heb niets in uw bestand gedaan dan de laatste regel, die gevuld is bepalen met de regel:

 endWeek = Blad2.Range("C" & Rows.Count).End(xlUp).Row

Ik heb niet naar de rest gekeken.

 

[Cobbe]

Kijk maar eens of het nu doet wat moet. Heb wel ipv Lastweek een Input ingevoegd, is wel makkelijk aan te passen indien nodig.

 

[Meaurk]

Bedankt, het werkt!

Is het trouwens ook mogelijk om dit in plaats van via de week, via een (order) nummer gezocht wordt?

 

[Cobbe]

Ja dat kan, geen enkel probleem.
Maar omdat nu zo klaar en duidelijk uit teleggen zal wel wat moeilijk liggen.
Maar als je laat weten wat er precies moet gebeuren........

 

[Meaurk]

Een ander voorbeeld bestand zal ik toevoegen aan deze post.

De bedoeling is dat wanneer er een order "complete" is, hij gemakkelijk verplaatst kan worden naar een ander blad waar dus de "completed orders" op staan. Alle orders hebben een uniek sales order nummer (zie kolom E). Op dat nummer moet dan de actie komen.
In principe moet er hetzelfde gebeuren als bij het andere bestand, alleen hier maar met één regel (één order) en niet met een hele week.

Bekijk bijlage ORDER TEST.xls

Alvast bedankt!

 

[Cobbe]

Hoe en in welke kolom wordt aangegeven dat een order compleet(afgewerkt) is?

 

[Meaurk]

Als bij data 2 (kolom L) een datum staat.

 

[Cobbe]

Je kan de datum invullen door te dubbelklikken in kolom L.
De rijen met een datum in kolom L worden weggeschreven via de button.
De gegevens op blad2(archief) worden bij elke wegschrijving gesorteerd op het weeknummer.

Zie maar of het dat is wat je in gedachte had.

 

[Meaurk]

Dat werkt helemaal super!
Dankjewel!

EDIT: Ja, het werkt inderdaad in jouw bestand.
Als ik het kopieer naar het officiële bestand, krijg ik het niet aan de praat.
Zijn er dingen waar ik absoluut op moet letten?