• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Hoe meerdere rijen verwijderen met behoud van 2 opvolgende rijen?

Status
Niet open voor verdere reacties.
S

snowseals

Gebruiker
Lid geworden
19 dec 2016
Berichten
77
Ik heb een Excel-sheet waar de volgende waardes instaan:
rijen excel.png

Ik wil alleen Artiest + titel overhouden, ofwel de 1ste 2 rijen.
Vervolgens kunnen de 6 rijen eronder verwijdert worden.
En dan kom ik weer bij Artiest + titel, die ik wil behouden (Rij 9+10)
Vervolgens weer 6 rijen eronder verwijderen.
Enz.

Hoe doe ik dat zonder dat manueel te selecteren en dan verwijderen?

Document als bijlage toegevoegd.
 

Bijlagen

  • artiest-titel.xlsx
    10 KB · Weergaven: 31
Welke zinvolle info houdt je dan over? Of is de vraag niet compleet?
 
Laatst bewerkt:
De zinvolle info die ik dan over wenst te houden is Artiest + Titel (zonder al die andere data ertussen).

Vervolgens wil ik die Artiest + titel samenvoegen op 1 rij.

Dan houd ik dus gewenst het volgende over:
rijen excel-def.png

Zie ook bijlage bewerkt (manueel).
 

Bijlagen

  • artiest-titel-def.xlsx
    9,3 KB · Weergaven: 25
probeer deze eens in achter het blad

Code: 
Sub SjonR()
LR = Range("A" & Rows.Count).End(xlUp).Row + 1
SR = UsedRange
j = 1
    For i = 1 To 80 Step 8
        SR(j, 1) = SR(i, 1) & " - " & SR(i + 1, 1)
        j = j + 1
    Next
    For i = LR / 8 + 1 To LR - 1
        SR(i, 1) = ""
    Next
UsedRange = SR
End Sub
 
Laatst bewerkt:
Zonder vba met een formule.

Resultaten van de formule kun je kopieren en plakken als waarden en daarna sorteren om de lege rijen kwijt te raken.

PHP: 
=ALS(REST(RIJ();8)=1;A1&" - "&A2;"")

PHP: 
=IF(MOD(ROW();8)=1;A1&" - "&A2;"")

zie bijlage
 

Bijlagen

  • Copy of artiest-titel.xlsx
    11,6 KB · Weergaven: 15
Of een andere macro
Code: 
Sub VenA()
  For Each ar In Columns(1).SpecialCells(2).Areas
    c00 = c00 & ar(1) & " - " & ar(2, 1) & "|"
  Next ar
  ar = Split(c00, "|")
  Cells(1, 5).Resize(UBound(ar)) = Application.Transpose(ar)
End Sub
 
Wow!
Zoveel opties om dit voor elkaar te beunen.

Ik heb die laatste van VenA geprobeerd en werkt perfect!
Dank jullie wel :thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan