sorteren

[don42]

Beste helpers,

ik wil graag de waarde sorteren uit meerdere kolommen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Integer
 For x = 1 To 90
 Dim nr As Range
  Set nr = Range("D1:I90").Find(Cells(x, 1))
  Cells(x, 12).Value = nr.Row
   Next x
    End Sub

dit gaat 1 x goed (alleen cel L1 (Cells(x, 12).Value )
maar gaat dan niet verder
wie ziet waar het mis gaat

bvd
Don

 

[snb]

Gebruik de macrorecorder in de ingebouwde sorteerfunkties in Excel.

 

[don42]

snb

bedankt voor je hulp
maar daar lukt het ook niet mee!

blijf maar hangen in de code

 

[VenA]

Waarom met een selction_change?

met een gewone sub

Sub VenA()  ar = Cells(1, 11).CurrentRegion.Resize(, 2) 'zet de waarden in kolom K in een array en maak deze 1 kolom breder voor de resultaten
  For j = 1 To UBound(ar) 'doorloop deze array
    Set x = Range("D1:I96").Find(ar(j, 1), , xlValues, xlWhole) 'ga zoeken naar de waarde in het bereik D1:I96
    If Not x Is Nothing Then ar(j, 2) = x.Row 'als de waarde gevonden is schrijf deze dan weg in de 2e kolom van de array
  Next j 'zoek de volgende
  Cells(1, 11).CurrentRegion.Resize(, 2) = ar 'schrijf de resultaten terug
End Sub

 

[don42]

Noem jij het maar een gewone Sub
het werkt perfect
ga proberen er iets van te snappen

Kan je mij iets uitleggen hoe deze code werkt
Of waar ik informatie kan vinden

bedankt voor je hulp
don

 

[VenA]

In de VB editor heb je diverse mogelijkheden om de code te analyseren.

De code in #4 heb ik van commentaar voorzien.

 

[don42]

Geweldig
Bedankt voor alle moeite
Don.