automatisch sorteren

[ronnie123]

bedankt voor je hulp
groetjes ronnie

 

[AD1957]

Maak van je overzicht op blad "stand" een echte tabel (kolom A natuurlijk niet meenemen.

Code in UserForm2

Private Sub CommandButton1_Click()
  With Sheets("wedstrijden")
   x = .Cells(Rows.Count, 2).End(xlUp).Row
      Set nr = Range("a13:a" & x).Find(lnr.Caption, , xlValues, xlWhole)
        nr.Offset(, 4).Resize(, 3) = Array(s11.Value, s12.Value, s13.Value)
        nr.Offset(1, 4).Resize(, 3) = Array(s21.Value, s22.Value, s23.Value)
   End With

   nr.Select
   Unload Me
   
   
 With Sheets("Stand").ListObjects(1).Sort
        .SortFields.Clear
        .SortFields.Add2 _
            Key:=Range("Tabel1[[#All],[T-Pnt]]"), _
            SortOn:=xlSortOnValues, _
            Order:=xlDescending
        .Apply
    End With

 

[VenA]

Ben je nu met allerlei verschillende bestanden bezig? Weinig opgestoken van de suggesties in jouw andere draadje blijkbaar.