Tabel rij selecteren en kopieren op basis van een waarde in een cel.

[novec]

Ik ben op zoek naar een stukje VBAcode die het volgende doet:
Vindt in de Tabel tbJaar1e en tbJaar2e in de kolom Senior de waarde "S".
als dat waar is dan die hele tabel rij kopiëren naar 1e lege rij in tbJaarSenioren.
Het kan in een module macro welk ik activeer met een button.

De button bouwen en de tbJaarsenioren vooraf schoon maken voor de module start kan ik zelf maar wat hier boven staat wil me niet lukken.
Ik heb het geprobeerd met application.match maar die blijft fouten geven over een ongeldige verwijzing...????
Ik heb deze code

Range("tbJaar2e").Select             
    If Application.Match(("S"), .Columns(5), 0) Then

Bekijk bijlage testje.xlsx

Ik hoor het graag

Steven

 

[HSV]

Reduceer de seniorentabel tot één lege rij en draai onderstaande code eens.

Sub hsv()
Dim i As Long
application.screenupdating = false
For i = 1 To 2
    With Sheets("blad1").ListObjects("tbjaar" & i & "e").DataBodyRange
      .AutoFilter 6, "S"
      .Copy Sheets("blad1").ListObjects("tbjaarsenioren").ListRows.Add.Range
      .AutoFilter
    End With
Next i
End Sub

 

[novec]

Helemaal super
en wederom zat ik weer vel te moeilijk te doen. Wat ongelofelijk simpel heb je het gemaakt.
Ik wil die routine toch leren en blijf doorgaan.

Dank je man

Steven