Automatisch sorteren (meerdere ranges in 1 werkblad)

[Edwinvd90]

zoiets dan?

Hoe heb je dit nu gedaan en kan je ook automatisch sorteren op B?

 

[emields]

bedoel je kolom B?

 

[Edwinvd90]

bedoel je kolom B?

Ja, kolom B inderdaad. En dan van hoog naar laag.

 

[VenA]

Het quoten van volledige berichten is niet nodig.

Goed lezen en dan toepassen geeft vaak het beste resultaat. Lukt blijkbaar allemaal niet niet zo heel goed.

 

[Edwinvd90]

Goed lezen en dan toepassen geeft vaak het beste resultaat. Lukt blijkbaar allemaal niet niet zo heel goed.

Je hebt eerder dit topic aardig geholpen, maar de helft van je bijdragen voegen eigenlijk niets toe. Net zo zuur als ik nu zou vallen over jou 'niet niet', maar dat zou kinderachtig zijn en niets helpen aan het vraagstuk. Als je niet verder wil helpen vraag ik je graag bij andere vraagstukken je expertise te tonen in plaats van hier het zure forumlid te zijn.

 

[VenA]

Je hebt eerder dit topic aardig geholpen, maar de helft van je bijdragen voegen eigenlijk niets toe. Net zo zuur als ik nu zou vallen over jou 'niet niet', maar dat zou kinderachtig zijn en niets helpen aan het vraagstuk. Als je niet verder wil helpen vraag ik je graag bij andere vraagstukken je expertise te tonen in plaats van hier het zure forumlid te zijn.

Daar heb je volkomen gelijk in.

 

[emields]

zoiets dan.

 

[snb]

Laat Excel het werk voor je doen:

Maak een intelligente tabel van de gegevens
Verwijder samengevoegde cellen.
Gebruik een draaitabel en eventueel een slicer.

 

[Edwinvd90]

zoiets dan.

Dit werkt top Emiel! Heb het nu in het originele bestand toegepast en werkt uitstekend, echt een mooie oplossing! Bedankt!!

 

[cow18]

Deze code werkt nu op Rolcontainer 1, alleen werkt nog niet door in de andere Rolcontainers. Heb ook de samengevoegde cellen gesplitst.

nu ben ik "echt" wel nieuwsgierig wat er verschil zit tussen beide oplossingen tussen mijn #11 en nu, behalve dat het niet werkt en mogelijks in de grootte van het bereik

Sub Knop1_Klikken()
For Each cell In Range("A6:A" & [a10000].End(xlUp).Row)
    If cell.Value = "GRONDSTOF" Then cell.Range("a2:h17").Sort [b2], xlDescending
Next
End Sub

Sub Sorteren_Op_B2()
   With Sheets("blad1")                          'in dit blad
      .Range("A1:A200").Name = "kolomA"          'gedefinieerde naam
      arr = Filter([transpose(if(kolomA="grondstof",row(kolomA),"~"))], "~", 0)   'bepaal alle A-cellen met "grondstof"

      If UBound(arr) = -1 Then Exit Sub         'stop in geval er geen zijn
      For i = 0 To UBound(arr)                   'in een loopje aflopen
         With .Cells(arr(i), 1).Resize(18, 8)    'bereik van 18 rijen en 8 kolommen
            .Sort .Cells(1, 2), xlDescending, Header:=xlYes   'sorteren op B-kolom aflopend
         End With
      Next
   End With
End Sub

 

[emields]

Waarschijnlijk geen buiten dat er geen blad1 is in het bestand.

 

[VenA]

Sub VenA()
  For Each ar In Sheets("Rolcontainers").Columns(2).SpecialCells(-4123).Areas
    ar.CurrentRegion.Resize(, 8).Sort ar.Cells(1, 2), 2, , , , , , xlYes
  Next ar
End Sub

 

[cow18]

Ach ja zo ! Die eerste lukte op blad1 en die andere containers stonden op blad2.

@emields, dit is niet tegen jou, maar eerder tegen het gebrekkig testen en onvoldoende nadenken van TS.
Rap rap de vraag stellen, het voorbeeldbestand dat volgt is anders en dan volgt er nog 1.
Als je toch in VBA bezig bent, dan haal je toch heel de boel uit je lijst zonder formules.
Dan kan je ook het aantal zakken en dozen er bij denken.
Alleen weet je nog niet hoe je die over 4 rolcontainers moet verdelen, maar daar zal ook wel een logica in zitten.