Ga naar inhoud

Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers sinds 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

Vriendelijk verzoek: whitelist www.pc-helpforum.be in je adblocker.

Beste bezoeker. Je ziet deze tekst omdat een adblocker, plugin of andere software onze advertenties blokkeert. PC Helpforum helpt jaarlijks gratis duizenden mensen met computerproblemen. Deze website en server kunnen we enkel onderhouden dankzij de inkomsten uit advertenties. Vandaar een vriendelijk verzoek: whitelist onze site zodat we jullie gratis verder kunnen helpen. Klik hier om te lezen waarom en hoe je kunt whitelisten.



Piene

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

    Aanbevolen berichten

    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!! :adore:

     

     

    Vele Grtjs

     

    Piene

     

    Map1.xlsm

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

    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

     

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

    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

    Deel dit bericht


    Link naar bericht
    Delen op andere sites


    Gast
    Dit topic is nu gesloten voor nieuwe reacties.

    Logo

    OVER ONS

    PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

    ×

    Belangrijke informatie

    We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.