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!


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.

    • Welkom op PC Helpforum

    • Leden statistieken

      • Aantal leden
        39.240
      • Meeste online
        1.622

      Nieuwste lid
      Bird1973
      Registratiedatum
    • Gerelateerde inhoud

      • Door Benjaplus
        Hoi hoi,
         
        Ik ben bezig met het opstellen van een factuur in Excel alleen heb ik nog niet al te veel ervaring met Excel en ik kan niks vinden over mijn probleem op internet.
         
        Mijn probleem:
        Ik wil deze zin onderaan mijn factuur: U wordt vriendelijk verzocht het bedrag van (Bedrag uit H36(volledig uitgeschreven in euros)) voor (VANDAAG+14) over te maken op NL00 RABO 0123 4567 89 t.n.v. Naam onder melding van factuurnummer: (nummer uit A14)
         
        Alle ( ) moeten formules worden
         
        Dingen die vet gedrukt zijn moet dat ook zijn in excel
         
        Ik kom zelf tot: ="U wordt vriendelijk verzocht het bedrag van €"&H36&" voor "&VANDAAG()+14&" over te maken naar NL00 RABO 0123 4567 89 t.n.v. Naam onder melding van factuurnummer: "&A14&""
         
        Dan krijg ik: U wordt vriendelijk verzocht het bedrag van €254.1 voor 43775 over te maken naar NL00 RABO 0123 4567 89 t.n.v. Naam onder melding van factuurnummer: 2001
         
        €254.1 moet €254.10 worden (komt door getalnotaties)
        43775 moet 06-11-19 worden (komt door getalnotaties)
        en de andere moet vet gedrukt worden
         
        Het is veel gevraagd, ik weet het, maar ik kom er niet uit. Misschien is het gewoon niet mogelijk, laat het maar weten.
         
        Alvast enorm bedankt!
      • Door Kadoim
        Is er een manier in Excel om automatisch te laten berekenen welke kolommen de minste overlap hebben?
        Ik heb een draaitabel (mijn eerste...) gemaakt van de inschrijvingen in bepaalde opleidingen. De opleidingen gaan altijd door op maandagnamiddag.
        Door het toevoegen van slicers kan ik één voor één bekijken welke opleidingen géén overlappende inschrijvers hebben, maar voor het opmaken van de opleidingskalender, zou ik ook graag automatisch te zien krijgen welke opleidingen de minste overlappers hebben - aangezien het niet altijd haalbaar is om de opleidingen te plannen zonder enige overlap.
         
        Ik heb een bestandje toegevoegd als voorbeeld.
        Vertaald naar dat voorbeeld zou ik dus graag weten of het mogelijk is om op een snelle, geautomatiseerde manier te weten te komen welke twee kolommen de minste overlappende 1'tjes hebben, zodat ik weet dat ik die opleidingen eventueel op eenzelfde dag kan laten doorgaan.
         
        Alvast bedankt voor de hulp!
        Voorbeeld voor pc helpforum draaitabel.xlsx
      • Door lv
        Hallo,
         
        Ik heb een Excelbestand met meerdere kolommen, in de eerste kolom staat het aantal, in de tweede een artikelnummer, in de andere kolommen staat informatie over dit artikelnummer.
        Ik ben op zoek naar een macro waarbij de dubbelen uit kolom 2 (Artikelnummers) gevonden worden, de aantallen in kolom 1 van deze overeenkomende artikelnummers worden opgeteld en dan op 1 na, de dubbele artikelnummers verwijderd worden.
         
        In mijn tabel zitten afbeeldingen en de volgorde is essentieel, waardoor een draaitabel niet geschikt is (voor zover ik weet). Ik ben zelf niet zo thuis in de macro's en heb nog geen goede macro kunnen ontdekken. 

        Iemand die mij hierbij kan helpen?

         
      • Door Excel dummy
        Ik heb een basis excel-bestand gecreëerd bestaande uit verschillende tabs.
        Per klant zal dit bestand worden aangemaakt. Graag wil ik een "extern dashboard" creëren waar ik bepaalde informatie gegroepeerd kan zien.
        Liefst zou ik dit niet met bvb. een Vlookup formule doen, maar een macro creëren die ervoor zorgt dat deze informatie automatisch wordt opgevraagd op het moment dit document voor een nieuwe klant wordt aangemaakt.
         
        Ik wil het risico vermijden dat een collega of ik vergeet om manueel de vlookup formule toe te voegen en dat de gegroepeerde gegevens niet zouden kloppen. 
         
        Heeft er iemand raad hierbij?
         
        Alvast bedankt!
      • Door Rik123
        Beste lui,
         
        Ik een ander topic heb ik deels een oplossing gevonden voor hetgeen wat ik in Excel wil. Namelijk dat je dubbel kan klikken en de cel automatisch in groen veranderd.
        De code hiervoor is de onderstaande.
         
        Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean) If target.Interior.ColorIndex = xlNone Then target.Interior.ColorIndex = 43 ElseIf target.Interior.ColorIndex = 43 Then target.Interior.ColorIndex = xlNone End If End Sub
         
        Het probleem wat zich voortdoet is dat dit alleen werkt wanneer een cel geen kleur heeft. Weet iemand hoe je deze code kan veranderen zodat je ook een gekleurde cel kan aanpassen naar groen met dubbelklik?
    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!

    ×
    ×
    • Nieuwe aanmaken...

    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.