Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 7 van 7

Onderwerp: Sorteren in meerdere werkbladen

  1. #1
    Vraag is opgelost

    Sorteren in meerdere werkbladen

    Ik heb een Excelbestand met een werkblad "Spelers" met 5 kolommen (zie bijlage)
    Die gegevens kan ik eenvoudig sorteren zodat alle data uit kolom E (Team) bij elkaar staan.
    Nu wil ik de data uit kolom A & B & C overbrengen naar het werkblad "Teams", gesorteerd naar team. Dus eerst de spelers van team A1 (heren links, cel A3 en volgende, dames rechts, cel B3 en volgende), dan team A2, team B1 enz.
    Ik heb dat handmatig in de bijlage gedaan.

    Ik ben op zoek naar een VB module die zo'n opdracht kan uitvoeren.
    Kan iemand mij daaraan helpen?
    Bij voorbaat dank!!
    Laatst aangepast door huijb : 11 juli 2018 om 18:17

  2. #2
    Mega Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    samengevoegde cellen en VBA zijn geen vrienden.

  3. #3
    Moderator
    Verenigingslid
    huijb's avatar
    Geregistreerd
    19 december 2001
    Bestand verwijderd. Lees de kop in deze sectie:
    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
    .
    Gegroet
    -_-_-_-_-_-_-_-_-_-_-_-_-_-
    http://www.harleyforum.nl/
    Het Nederlandse Harley Forum

  4. #4
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Voor het sorteren is dit voldoende
    Code:
    Sub sorteerSpelers()
      Cells(1).CurrentRegion.Sort [A1], , [B1], , , [C1], , 1
    End Sub
    Sub SorteerTeam()
      Cells(1).CurrentRegion.Sort [E1], , , , , , , 1
    End Sub
    Om in te delen
    Code:
    Sub VenA()
      ar = Sheets("Spelers").Cells(1).CurrentRegion
      For Each it In Sheets("Teams").Range("A3:B12,D3:E12,A15:B24,D15:E24").Areas
        c00 = Split(it.Cells(1).Offset(-2))(1)
        it.ClearContents
        For j = 2 To UBound(ar)
          If ar(j, 5) = c00 Then it.Cells(10, Abs(ar(j, 4) = "V") + 1).End(xlUp).Offset(1) = ar(j, 1) & IIf(ar(j, 2) = "", "", " " & ar(j, 2)) & " " & ar(j, 3)
        Next j
      Next it
    End Sub
    @huijb, de achternamen heb ik een beetje verminkt.
    Attached Files Attached Files
    Laatst aangepast door VenA : 11 juli 2018 om 19:43
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. #5

    Red face Sorteren van blad 1 naar blad 2

    Ik snap de codes nog niet helemaal, maar het werkt als een speer.
    Nu nog even uitdokteren hoe en waarom....
    Heel erg bedankt voor de hulp!!

  6. #6
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Een langere code maar snellere methode (minder interactie met het blad).
    Code:
    Sub hsv()
      sv = Sheets("Spelers").Cells(1).CurrentRegion
      For Each it In Sheets("Teams").Range("A3:B12,D3:E12,A15:B24,D15:E24").Areas
      ReDim b(1, 0)
        c00 = Split(it.Cells(1).Offset(-2))(1)
        it.ClearContents
        For i = 2 To UBound(sv)
          If sv(i, 5) = c00 Then
            mv = Application.Trim(Join(Array(sv(i, 1), sv(i, 2), sv(i, 3))))
                If LCase(sv(i, 4)) = "m" Then
                   b(0, m) = mv
                   m = m + 1
                 Else
                   b(1, v) = mv
                 v = v + 1
                End If
         End If
      ReDim Preserve b(1, IIf(m > v, m, v))
     Next i
       it.Cells(1).Resize(IIf(m > v, m, v), 2) = Application.Transpose(b)
       m = 0
       v = 0
      Next it
    End Sub
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  7. #7

    top forum

    Wat een top forum! Bedankt Harry en de anderen voor de zeer bruikbare antwoorden op mijn vraag. Ik ben er erg mee geholpen!!

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren