het omgekeerde van subtotalen?

[ChristianEvers]

Hoi,

heb een lijst gekregen met werknemers per postcodegebied. Nu heeft de afzender deze al via subtotalen samengevat (en als waarden geplakt), alleen wil ik deze lijst nog samenvoegen met andere lijsten en dus weer 'on-samenvatten'. Dus niet:

Kolom A - Kolom B
1234 - 2
1235 - 3

maar:
Kolom A - Kolom B
1234 - 1
1234 - 1
1235 - 1
1235 - 1
1235 - 1

kan dat?

 

[Gert Bouwmeeste]

Heb je een voorbeeldbestand zonder gevoelige informatie?

 

[ChristianEvers]

hierbij.

 

[MJONK]

als het echt waarden zijn is het wat lastig,

wat je kunt doen is een kolom toevoegen met de nr's 1 2,3, enz. om later weer terug te sorteren.

Daarna sorteer je op de kolom met de teksten die je eruit wilt halen, verwijdert alle rijen met de te verwijderen tekst en sorteert weer terug op de kolom met het nummer.

Mvg,


martin

 

[modbeek]

ik heb een bestandje gemaakt met een macrotje:

 

[modbeek]

of met jou data (ik had iets verkeerd begrepen) is het nog wat simpeler:

 

[ChristianEvers]

Geniaal! :thumb:

Helemaal wat ik bedoelde, dankjewel

 

[Warme bakkertje]

Vermijdt ActiveCell, Activate en Select in je code.

Sub uitbreiden()
For Each c In Range("A2", Range("A65536").End(xlUp))
    If c.Offset(0, 1).Value = 1 Then
        c.Copy Range("D65536").End(xlUp).Offset(1, 0)
    Else
        c.Copy Range("D65536").End(xlUp).Offset(1, 0)
        Range("D65536").End(xlUp).Resize(c.Offset(0, 1).Value, 1) = c.Value
    End If
    Next
    Range("D2", Range("D2").End(xlDown)).Offset(0, 1).Value = 1
End Sub

Mvg

Rudi