Lege cellen verwijderen regels laten staan zonder sorteren!

Status
Niet open voor verdere reacties.
R

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
901
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.

RobertBekijk bijlage 305119[ATTABekijk bijlage Tekst bundelen in kolom.xlsmCH]305121[/ATTACH]Bekijk bijlage 305119
 
Laatst bewerkt:
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
 
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?
 
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
 
Zelf al wat geprobeerd om het op te lossen?

Deze ook alweer vergeten uit jouw vorige vraag?
VenA zei:
Relevante voorbeeldbestanden willen wel eens helpen. Het is hier geen maakhetmaarvoormijengokjeraakenalsikweereennieuwideehebpashetaanvoormij.nl
Klik om te vergroten...
 
En nu? Weer wat anders? Huur even iemand in die het voor je maakt!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan