Rij knippen en plakken in ander werkblad en de lege rij deleten

[Piene]

Hallo Experts!! 🤓

 

Ik ken nog niet zoveel van VBA waardoor ik verschillende macro's probeer te combineren. In mijn bestand zitten dus 2 macro's.

 

Macro 1

Wanneer in Kolom I    "Ok" staat, dan wordt de rij geselecteerd, geknipt en geplakt in de eerstvolgende lege rij in Blad 2 

 

Macro 2

Vervolgens moet de rij die eerder werd geknipt nog worden gewist.

 

Bij de tweede macro worden momenteel alle rijen gedeletet waarvan de cel in Kolom I    Blank is. Het is de bedoeling dat enkel rijen worden gewist waarvan deze eerder werden geknipt en geplakt naar Blad 2.

 

 

Zou iemand een oplossing zien? 😵 In bijlage het bestand ter illustratie .

 

 

Merci om dit eens te willen bekijken en jullie kennis te delen!! 

 

 

Vele Grtjs

 

Piene

 

Map1.xlsm

[Haije]

Voeg de regel c.EntireRow.Delete toe aan je macro:

Sub RijenKnippenPlakken()
Dim bottomL As Integer

bottomL = Sheets("blad1").Range("I" & Rows.Count).End(xlUp).Row

Dim c As Range
For Each c In Sheets("blad1").Range("I1:I" & bottomL)
If c.Value = "Ok" Then
c.EntireRow.Cut Worksheets("blad2").Range("A" & Rows.Count).End(xlUp).Offset(1)
c.EntireRow.Delete
End If
Next c

End Sub

 

[Piene]

Hoi Haije

 

Veel dank voor je tijd en feedback! 😊

 

Dit werd een aantal keer getest, maar dit lukt niet. De rijen blijven staan 🤔 

 

 

Grtjs Piene

Uitleg Macro.docx

Map1.xlsm

[alpha]

Gebruik in de macro in plaats van

c.EntireRow.Cut  .....

dit:

c.EntireRow.Copy  ....

15 september 2018 aangepast door alpha

[alpha]

5 minuten geleden, dotchiejack zei:

Dit lijkt mij voldoende ....

Verschilt niet zoveel van de code van Haije (vind ik).

[alpha]

@dotchiejack,

Ik bedoelde mijn opmerking niet als kritiek hoor;

jouw code is (ook) prima !

[alpha]

Natuurlijk !

[Piene]

16 uren geleden, dotchiejack zei:

Hoi hoi dotchiejack en Alpha

Het is gelukt met de Sub dotch()!! Superveel dank allebei voor jullie ondersteuning!!  Ik zal er voor zorgen dat mijn voorbeeldbestandjes wat duidelijker opgemaakt zijn 😊

 

Thanks!!! 

 

16 uren geleden, dotchiejack zei:

 

 

 

 

Dit lijkt mij voldoende

Sub dotch()
Dim i As Long
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If Cells(i, 9) = "Ok" Then
            Range("A" & i & ":H" & i).Copy Sheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
            Cells(i, 9).EntireRow.Delete
        End If
    Next
End Sub

Je voorbeeldbestand kan beter

 

[alpha]

@Piene,

de credits behoren ook te gaan naar Haije, niet naar mij

(met "Gebruik in de macro in plaats van .....") bedoelde ik: Gebruik dat in de macro van Haije).

16 september 2018 aangepast door alpha

[Piene]

Inderdaad Alpha, een naam vergeten! Dus ook aan Haije merci voor de hulp!! Nog een prettige zondag allemaal!!