• 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.

Data in excel anders sorteren

Status
Niet open voor verdere reacties.
Zie bijlage voor een mogelijkheid.
 

Bijlagen

  • voorbeeld andere datasortering (AC).xlsx
    12,1 KB · Weergaven: 45
Beste AlexCEL,

Het werkt perfect. Had wat moeite met het kopieeren over alle rijen, maar uiteindelijk werkt alles perfect.
Bedankt voor je snelle oplossing

Roeffie
 
In VBA

Code: 
Sub M_snb()
  sn = Cells(1).CurrentRegion
  ReDim sp(UBound(sn), 4)
     
  sp(0, 0) = "ref"
  For jj = 1 To UBound(sp, 2)
    sp(0, jj) = "color " & jj
  Next
     
  For j = 3 To UBound(sn)
    For jj = 0 To UBound(sp)
      If sp(jj, 0) = sn(j, 1) Or sp(jj, 0) = "" Then Exit For
    Next
    sp(jj, 0) = sn(j, 1)

    For jjj = 1 To UBound(sp, 2)
      If sp(0, jjj) = sn(j, 2) Then Exit For
    Next
    sp(jj, jjj) = sn(j, 3)
  Next
    
  Cells(10, 5).Resize(UBound(sp) + 1, UBound(sp, 2) + 1) = sp
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan