Bepaalde data van basistab op volgende tab plaatsen via formule.....

[Dietvorst]

Hallo ,
In tab "leden " staat basis info.
Ik wil op tabs ABC , DEF , Dames (let op M/V) de info onder de kolomhoofden : Team , Naam , LFT , Norm 2016-17.
Kan dit via een formule of iets anders ?

BVDBekijk bijlage Vraagalstabteams.xlsm
Leo

 

[Gijsbert1]

Je vraag is niet heel duidelijk:
Maar het antwoord misschien wel: gebruik draaitabellen!

 

[VenA]

Om er maar eens een gokje in te gooien wat je wilt bereiken. Zorg er wel voor dat je macro's mag uitvoeren.

Alle vrouwen komen in de tab 'Dames', Mini wordt nergens aan toegekend. Je kan ook eens kijken naar geavanceerd filteren.

Sub VenA()
ar = Sheets("Leden").Cells(1).CurrentRegion
For j = 2 To UBound(ar)
    If LCase(ar(j, 2)) = "v" Then
        Sheets("Dames").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 4) = Array(ar(j, 12), ar(j, 1), ar(j, 4), ar(j, 11))
      Else
        Select Case Asc(UCase(Left(ar(j, 11), 1)))
            Case 65, 66, 67
                Sheets("ABC teams").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 4) = Array(ar(j, 12), ar(j, 1), ar(j, 4), ar(j, 11))
            Case 68, 69, 70
                Sheets("DEF Teams").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 4) = Array(ar(j, 12), ar(j, 1), ar(j, 4), ar(j, 11))
            Case 83
                Sheets("Senior Teams").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 4) = Array(ar(j, 12), ar(j, 1), ar(j, 4), ar(j, 11))
        End Select
    End If
Next j
End Sub