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

sorteer op aanwezig getal in regel

Status
Niet open voor verdere reacties.
P

paul1950

Gebruiker
Lid geworden
22 jun 2007
Berichten
34
beste XLers

voor de golfclub stellen wij flights samen van 4 spelers en zo mogelijk op gelijke spelers-niveau

deze staat vermeld achter hun naam.
is er een sorteer mogelijkheid om kolom F te herschikken zoals in kolom I ?
het liefs via een formule, of eventueel met een macro, VB ben ik helaas niet machtig

bij voorbaat dank
Paul
 

Bijlagen

  • sorteer op aanwezeg getal.xlsx
    9 KB · Weergaven: 51
Waarom is die lijst zo inconsequent? Achter Henk k 26 staat geen punt, en achter de Jokes ook niet. Erger nog: Joke S29 heeft ook nog eens geen spatie in het niveau. Dat wordt dus érg lastig met formules. Sowieso natuurlijk erg onhandig dat de waarden er áchter staan, en niet los.
 
Deze even runnen

Code: 
Sub jveer()
Application.ScreenUpdating = False
jv = Range("F2", Cells(2, 6).End(xlDown))
 ReDim ar(UBound(jv))
  For i = 1 To UBound(jv)
   ar(i) = Trim(Right(Replace(jv(i, 1), " .", ""), 2))
  Next
  With Cells(1, 7)
   .Resize(UBound(jv) + 1) = Application.Transpose(ar)
   .Sort Cells(2, 7), 1, , , , , , xlYes
   .CurrentRegion.Offset(, 1).ClearContents
  End With
End Sub
 
Of even simpel...maak er een tabel van. Kun je op alles sorteren met de pijltjes...
 

Bijlagen

  • Kopie van sorteer op aanwezeg getal.xlsx
    12 KB · Weergaven: 29
de -spatie punt- geeft mij in een gekoppeld bestand,het verschil aan ( onder voorwaardelijke opmaak) in een andere kleur, tussen 9 holes flights en 18 holes., vandaar
 
JVeer,

U is een held; dat is um.


for your information; wekelijks delen wij 60 spelers in met handicaps tussen hc 11 en hc 54
met 9-holes lopers en 18 hole lopers, welke elke week in een ander combinatie moeten tegen elkaar moeten spelen
Door de spelers nu in oplopende handicap volgorde achter elkaar te zetten maakt de puzzel weer iets makkelijker

nogmaals DANK
paul
 
neen hoor, er zijn twee joke's

het enig verschil in namen is de toevoeging -spatie punt- (koud tegen de naam geplakt) ivm voorwaardelijke opmaak
grt
P
 
met deze udf kun je de waarde uit je tekst halen het aantal tekens van de waarde.
Code: 
Function eersteWaarde(T As String)
eersteWaarde = ""
For n = 1 To Len(T)
    If IsNumeric(Mid(T, n, 1)) Then
        For nn = n To Len(T) + 1
            If Not IsNumeric(Mid(T & " ", nn, 1)) Then
                eersteWaarde = CDbl(Mid(T, n, nn - n))
                Exit Function
            End If
        Next
    End If
Next
End Function
 
Of zo

Code: 
Function jveer(cell)
 With CreateObject("VBscript.regexp")
           .Pattern = "[^0-9]"
           .Global = True
   jveer = .Replace(cell, "") * 1
 End With
End Function
 
Of:
Code: 
=ZOEKEN(99^99;--("0"&DEEL(F2;MIN(VIND.SPEC({0;1;2;3;4;5;6;7;8;9};F2&"0123456789"));RIJ($1:$100))))
Of matrix:
Code: 
=ZOEKEN(99^99;--("0"&DEEL(F2;MIN(VIND.SPEC(RIJ($1:$10)-1;F2&"0123456789"));RIJ($1:$100))))


Of:
Code: 
=-ZOEKEN(-1;-DEEL(F2;MIN(VIND.ALLES({0\1\2\3\4\5\6\7\8\9};F2&"0123456789"));RIJ(INDIRECT("1:"&LENGTE(F2)))))
Of matrix:
Code: 
=-ZOEKEN(-1;-DEEL(F2;MIN(VIND.ALLES(RIJ($1:$10)-1;F2&"0123456789"));RIJ(INDIRECT("1:"&LENGTE(F2)))))
 
voor excel 365
Code: 
=TEKST.SAMENV(ALS.FOUT( DEEL(I2;RIJ($1:$100);1)*1;""))
 
Laatst bewerkt:
Code: 
=mid(f2;large(iferror(search({1;2;3;4;5;6;7;8;9;0};f2);0);2);2)
 
de oplossing va Jveer werkt als een tierelier, echter, als ik de beginpositie ( F2 ) verander naar AB9 loopt het niet.
Met mijn matige kennis kan ik in de macro niet herleiden wat rij en kolomposities zijn.
Wie o wie laat mij het licht zien??
bvd
Paul
 
Kijk eens of het zo goed gaat.
Belangrijk is ook dat de kolom niet grenst aan andere kolommen. Dan zal het ook misgaan.

Code: 
Sub jveer()
Application.ScreenUpdating = False
jv = Range("AB9", Cells(9, 28).End(xlDown))
 ReDim ar(UBound(jv))
  For i = 1 To UBound(jv)
   ar(i) = Trim(Right(Replace(jv(i, 1), " .", ""), 2))
  Next
  With Cells(9, 28)
   .Resize(UBound(jv) + 1) = Application.Transpose(ar)
   .Sort Cells(10, 28), 1, , , , , , xlYes
   .CurrentRegion.Offset(, 1).ClearContents
  End With
End Sub
 
Laatst bewerkt:
nee, dat is hem niet. hij vreet alle namen op en laat de getallen staan.
ik stuur een plaatje mee van het resultaat tot nu, het sheet zelf is denk ik alleen voor ingewijde leesbaar, maar stuur ik op verzoek graag toefoto sheet.jpg

veel dank zover.
grt
P
 
Ik zou je bestand maar even meesturen dan
 
nou, sterkte in het doorgronden...:)
 

Bijlagen

  • zomer MATCH play 15 - april - 6 jv.xlsm
    1,2 MB · Weergaven: 24
Met een hulpkolommetje kom ik een heel eind.
 

Bijlagen

  • sorteer op aanwezig getal (AC).xlsx
    11,3 KB · Weergaven: 13
op tab startlijsten worden de deelnemers geplakt uit de website, en vv spatie punt (en handicap )voor later een onderscheid te maken tussen 18 of 9 holes
deze plak ik in blad1 samen met waarde gekopieerde namen
op dit blad worden de flight samengesteld en de datum erin geplakt
dit gaat met een macro naar blad menukeuze

na het naam intypen in gele balk in blad ZOEKEN trekt deze na aanklikken ophalen DATA de gespeelde namen naar voren
dit genereerd twee kolommen waarin vermeld; ''gespeeld met'' en ''komt nog aan de beurt''
middels 4 aankliktoetsen sorteer, geeft dit een overzicht wie met wie , en wie nog niet.
kat in het bakkie.....

ps de bladbeveiliging is de spatiebalk...

grt
P
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan