sorteren met VBA

[jellevanbruggen]

Ik heb al het een en ander via dit forum kunnen toepassen maar nu val ik toch echt stil.

In het bijgevoegd bestand doe ik het volgende:

In blad1 kolom C filtreer ik zo dat ik bij voorbeeld alleen mais zie.
Als ik dan op copy druk worden alleen de filters op mais gecopieerd naar blad2

Alleen wil ik dat de waardes die in blad2 komen te staan ook meteen gesorteerd worden op kolom A en dan aflopend. Kan ik dit deze actie ook meenemen in de zelfde macro.
Het eind resultaat zou dan eruit moeten zien als blad3 maar wel moeten staan in blad2 --> dus maar 1 macro.

 

[Roncancio]

Zo zou het kunnen:

Sub NaarBlad2()
Dim lRij As Long
    lRij = Sheets("Blad1").Range("A65536").End(xlUp).Row
  
    Worksheets("Blad1").Range("A6:D" & lRij).SpecialCells(xlCellTypeVisible).Copy Worksheets("Blad2").Range("A2")
    Worksheets("Blad1").Range("G6:K" & lRij).SpecialCells(xlCellTypeVisible).Copy Worksheets("Blad2").Range("E2")
    Worksheets("Blad2").Range("A2:I" & lRij).Sort key1:=Worksheets("Blad2").Range("A3"), order1:=xlDescending
    Worksheets("Blad1").ShowAllData
End Sub

Met vriendelijke groet,


Roncancio

 

[DCWDPT]

Verander jouw macro als volgt en hij doet wat je wil:

Sub NaarBlad2()
 Rij = Sheets("Blad2").Range("A65000").End(xlUp).Row
  With Sheets("Blad2")
    Range("A6:A65000").Copy Destination:=.Range("A2")
    Range("B6:B65000").Copy Destination:=.Range("B2")
    Range("C6:C65000").Copy Destination:=.Range("C2")
    Range("D6:D65000").Copy Destination:=.Range("D2")
    Range("G6:G65000").Copy Destination:=.Range("E2")
    Range("H6:H65000").Copy Destination:=.Range("F2")
    Range("I6:I65000").Copy Destination:=.Range("G2")
    Range("J6:J65000").Copy Destination:=.Range("H2")
    Range("K6:K65000").Copy Destination:=.Range("I2")
 End With
 Sheets("Blad2").Select
 Range("A2:I65000").Sort Key1:=Range("A3"), Order1:=xlDescending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

End Sub

:thumb: