als de cel ok bevat verplaatsen naar andere tabblad

[davylenders123]

Ik heb een excel bestand waar altijd actie punten in komen.
Als deze zijn afgewerkt dan komt er in de kolom H vanaf rij 20 "ok" te staan.
Als er ok staat moet ik manueel de rij knippen en plakken.

Kan ik dit automatiseren door bv vanaf er in kolom h vanaf cel 20 "ok" komt te staan dat deze dan wordt verplaatst naar het andere tabblad "Afgeronde Acties en Besluiten" vanaf rij 23.
Dit mag ook gebeuren bij het opslaan van het bestand dat dan de rijen waar in kolom h een "ok" staat dat deze worden verplaatst naar het andere tabblad."Afgeronde Acties en Besluiten" (dit is misschien nog de makkelijkste werkwijzen)

Maar hoe kan ik dit oplossen ?

Bekijk bijlage 20150209 - A en B lijst MT PenC.xls

 

[jolivanes]

Je wilt waarschijnlijk nog meer. Laat maar weten wat!!!
Ik geloof niet dat snelheid hier belangrijk is want het is maar een klein bereik.
Looping is daardoor in orde volgens mij.
Zie bijlageBekijk bijlage 20150209 - A en B lijst MT PenC A.xls

 

[davylenders123]

Beste jolivanes

Al bedankt voor dit :thumb: top.

In het eerste tabblad (Acties en Besluiten) zouden eigenlijk de ok lijnen die verplaatst zijn moeten verdwijnen in het tablad .
En wat dan blijft staan nog in de lijst terug mooi onder elkaar komen te staan.

En als het mogelijk is deze aktie automatische laten gebeuren bij het opslaan van het bestand en niet via de button.

 

[Leotaxi]

denk dat je zoiets willt


mvg

Leo

 

[davylenders123]

Leotaxi

Dit is hem helemaal Bedankt :thumb:

Ik heb echter nog een bestand waar eigenlijk het zelfde in zou moeten gebeuren .
Heb zelf al wat geprobeerd maar weet eigenlijk niet wat ik moet aanpassen voor hetzelfde te verkrijgen.


Bekijk bijlage Uit te voeren acties PC.xlsm

 

[davylenders123]

Ben nog bij een probleempje uitgekomen.
Als er een rij wordt verplaatst door een ok in kolom h dan verdwijnen de vakjes ook mee.
Zo wordt het invul deel steeds kleiner en dit zou niet mogen.

 

[Leotaxi]

Hoi Davy

bij deze aangepast


mvg

Leo

 

[Leotaxi]

zijn toch maar kleine aanpassingen voor ander bestand


mvg

Leo

 

[davylenders123]

Leotaxi

Bedankt weeral voor je 2 bestanden :thumb:

Het bestand van vraag #7 heeft nog een lastig iets.
Als je per ongeluk op het tabblad Afgeronde Acties en Besluiten staat en je slaat het bestand dan op dan doet hij foute dingen.
Dan verplaatst hij ook de lijnen uit het andere tabblad zonder ok, naar het tabblad Afgeronde Acties en Besluiten.
Enkel de 2 bovenste laat hij staan.

Als ook als ik in tabblad "Acties en Besluiten" in rij 35 iets zet en er zit een ok bij dan wordt terug alles verplaats (gegevens en de vakjes (lijnen) ).en verdwijnen de vakjes en al ook weer mee zoals in je vorige vb.
Het mag zelfs tem lijn 40 zijn dat dit werkt in plaats van tem 35.

Ik heb zelf al wat proberen aanpassen aan de code maar wil maar niet lukken.

 

[jolivanes]

Speel eens met deze versie.

 

[davylenders123]

jolivanes

Bedankt voor u hulp ook al tot hier toe :thumb:

Hij laat steeds een rij met ok staan in plaats van alle rijen met ok te verplaatsen

Dat er niet meer gevraagd wordt om op te slaan is wel een mooie oplossing ook .:thumb:

 

[davylenders123]

jolivanes

Ook als ik in u bestand de laatste rij 32 invul verdwijnen de vakjes ook mee.
Zoals bij het bestand van Leotaxi

 

[jolivanes]

Re: "Hij laat steeds een rij met ok staan in plaats van alle rijen met ok te verplaatsen"

Staan er extra spaties in ok? Voor "ok" of na "ok" Zijn het kleine letters?

 

[davylenders123]

jolivanes

Er staan geen spaties voor of achter de ok
En het zijn kleine letters
maar kleine of grote letters zou geen probleem mogen geven ook niet
Het bestand wordt Door meer personen gebruikt en de meeste ken niet zo wel van werken met p c

 

[jolivanes]

En weer wat om te proberen.

 

[davylenders123]

jolivanes

Ik denk dat dit hem is voor dit bestand.
Enkel wat moet ik aanpassen om in tabblad "Acties en Besluiten" invul vakjes wil hebben tot rij 40.(is nu tot rij 32)
En dat deze ook blijven staan.
Nu gaat dat goed tot lijn 32 .
Je kan er meer toevoegen en gebruiken maar na een keer sluiten zijn ze terug weg onder de rijen 32.

Heb al een aanpassing gedaan maar dit is blijkbaar niet de juiste.(staat in het rood)

Option Explicit
Option Compare Text

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lr As Long, a As Long, j As Long, i As Long
Application.ScreenUpdating = False
a = WorksheetFunction.CountIf(Range("H20:[COLOR="#FF0000"]H40[/COLOR]"), "ok")
lr = Cells(Rows.Count, "H").End(xlUp).Row
For i = lr To 20 Step -1
If Cells(i, 8).Value = "ok" Then
        With Cells(i, 8).Offset(, -6).Resize(, 7)
            .Copy Sheets("Afgeronde Acties en Besluiten").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)
            .ClearContents
            .Delete Shift:=xlUp
        End With
    End If
Next i

With Sheets("Acties en Besluiten").Range("B20:H32").Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
End With

ThisWorkbook.Save
Application.ScreenUpdating = True
End Sub

 

[jolivanes]

Die lijn met de a was niet meer nodig. Heb ik vergeten er uit te halen.

Option Explicit
Option Compare Text

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lr As Long, a As Long, j As Long, i As Long
Application.ScreenUpdating = False
lr = Cells(Rows.Count, "H").End(xlUp).Row
For i = lr To 20 Step -1
If Cells(i, 8).Value = "ok" Then
        With Cells(i, 8).Offset(, -6).Resize(, 7)
            .Copy Sheets("Afgeronde Acties en Besluiten").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)
            .ClearContents
            .Delete Shift:=xlUp
        End With
    End If
Next i

With Sheets("Acties en Besluiten").Range("B20:H40").Borders    '<----Hier (H40) aanpassen
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
End With

 

[davylenders123]

jolivanes

Dit is het helemaal :thumb::thumb:

B E D A N K T

Voor het bestand van #8 .
Heb ik u macro al wat aangepast voor dit bestand maar nog niet voldoende om deze ook werkend te krijgen op de zelfde wijzen.
Kan je me hier nog mee verder helpen aub

Option Explicit
Option Compare Text

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lr As Long, a As Long, j As Long, i As Long
Application.ScreenUpdating = False
lr = Cells(Rows.Count, "J").End(xlUp).Row
For i = lr To 20 Step -1
If Cells(i, 8).Value = "ok" Then
        With Cells(i, 8).Offset(, -6).Resize(, 7)
            .Copy Sheets("Afgeronden Actielijst").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)
            .ClearContents
            .Delete Shift:=xlUp
        End With
    End If
Next i

With Sheets("Uit te voeren Actielijst").Range("B5:J20").Borders    '<----Hier (H40) aanpassen
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
End With

 ThisWorkbook.Save
Application.ScreenUpdating = True
End Sub

 

[Leotaxi]

Dag Davy,

beide versies aangepast


mvg

Leo

 

[davylenders123]

Leotaxi

Het bestand Uit te voeren acties PC L2 heeft het probleem nog steeds dat hij de vakjes verwijderd in het eerste tabblad.