Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 7 van 7

Onderwerp: Lege cellen verwijderen regels laten staan zonder sorteren!

  1. #1
    Vraag is opgelost

    Lege cellen verwijderen regels laten staan zonder sorteren!

    Beste Helpmij'ers,

    Ik ben op zoek naar een vba in Excel die in kolom C de gevulde cellen onder elkaar zet (niet sorteren!!!) met één lege cel ertussen. Om het probleem te verduidelijken heb ik een voorbeeldbestand meegestuurd. Het is de bedoeling dat kolom C er precies zo uit gaat zien als de inhoud van kolom D.

    Alvast heel erg bedankt.

    RobertBijlage 305119[ATTATekst bundelen in kolom.xlsmCH]305121[/ATTACH]Bijlage 305119
    Laatst aangepast door Robert Smidt : 13 augustus 2017 om 11:22 Reden: bestand vergeten

  2. #2
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Bv,

    Code:
    Sub VenA()
      With Sheets("Blad1").Columns(3)
        lr = .Cells(Rows.Count, 1).End(xlUp).Row
        s = .Cells(lr, 1)
        For Each ar In .SpecialCells(2).Areas
          ar.Cells(ar.Rows.Count + 1, 1) = "|"
        Next ar
        .SpecialCells(4).Delete Shift:=xlUp
        .Replace "|", "", 1, 1
        .Cells(Rows.Count, 1).End(xlUp).ClearContents
        .Cells(lr, 1) = s
      End With
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  3. #3
    De code werkt voortreffelijk, ik was alleen vergeten dat er nog een regel boven moet (kop) en de code dus niet moet beginnen op de eerste regel, maar op de tweede regel. Zou dat ook kunnen?

  4. #4
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    De zin ontgaat me:

    Code:
    Sub M_snb()
       sn = Filter([transpose(if(C2:C27="",if(C1:C26<>"","","~"),C2:C27))], "~", 0)
       Cells(2, 6).Resize(UBound(sn) + 1) = Application.Transpose(sn)
    End Sub
    VBA voor smarties

    VBA is een taal die je moet leren met een grammatica- en een woordenboek.
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  5. #5
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Zelf al wat geprobeerd om het op te lossen?

    Deze ook alweer vergeten uit jouw vorige vraag?
    Quote Origineel gepost door VenA Bekijk Bericht
    Relevante voorbeeldbestanden willen wel eens helpen. Het is hier geen maakhetmaarvoormijengokjeraakenalsikweereennieuwideehebpashetaanvoormij.nl
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  6. #6
    Sorry, dat is niet wat ik bedoel. Ik stuur even een voorbeeld. Het is de bedoeling dat de code zich binnen een bepaald bereik afspeelt, in mijn voorbeeld is dat vanaf regel 6.Tekst bundelen in kolom.xlsm

  7. #7
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    En nu? Weer wat anders? Huur even iemand in die het voor je maakt!
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Aanbiedingen