Rijen selecteren en volledig weergeven in andere sheet op basis van conditie

[lemonstreet25]

Excel kenners,

De bedoeling is op basis van de conditie Voorw. 6 > 10 (Kolom G) in tab Data automatisch, middels formule of VBA, de gehele rijen weer te geven in Tab Tabel. Zie voorbeeld.
Ik zie graag enige suggesties tegemoet.

Bij voorbaat dank,

LucBekijk bijlage Excel voorbeeld.xlsb

 

[edmoor]

Zoiets?
Bekijk bijlage Excel voorbeeld-1.xlsb

 

[VenA]

Of met het geavanceerde filter

Sub VenA()
  Blad1.Cells(1).CurrentRegion.AdvancedFilter xlFilterCopy, Blad1.Range("O1:O2"), Blad2.Cells(1)
End Sub

 

[lemonstreet25]

Top!!

Werkt perfect zo. Is mijn gevoel juist dat dit alleen met een stukje VBA opgelost kan worden? Mag ik als extraatje vragen hoe het VBA eruit ziet als ik op basis van de conditie (Voorw. 6 >10) alleen de waardes uit kolom A, B, E en G terug wil zien in een tabel. Met 4 kolommen: Zie ook gewijzigd attachement (nog incl. je VBA uiteraard)Bekijk bijlage Excel voorbeeld 2.xlsbBekijk bijlage Excel voorbeeld.xlsb

A B C D
Regel Nr. Voorw. 1 Voorw. 4 Voorw. 6 (>10)

 

[VenA]

Bv zo

Sub VenA()
Dim ar, ar1, j As Long, t As Long
ar = Sheets("Data").Cells(1).CurrentRegion
ReDim ar1(UBound(ar), 3)
For j = 2 To UBound(ar)
    If ar(j, 7) > 10 Then
        ar1(t, 0) = ar(j, 1)
        ar1(t, 1) = ar(j, 2)
        ar1(t, 2) = ar(j, 5)
        ar1(t, 3) = ar(j, 7)
        t = t + 1
    End If
Next j
Sheets("Tabel").Cells(2, 1).Resize(UBound(ar1) + 1, UBound(ar1, 2) + 1) = ar1
End Sub