Opgelost Filteren en gegevens aanvullen op ander tabblad

[Moby123888]

Goedemorgen,
Ik heb al veel gehad door het lezen van onderwerpen op dit forum, waarvoor hartelijk dank.
Nu loop ik tegen iets aan waarvan ik het antwoord niet kan vinden en hoe eenvoudig het ook moet zijn, ik even niet weet wat voor methode of functie ik hiervoor moet gebruiken.

In blad1 heb ik een vrij uitgebreide tabel staan waarop ik ook kan filteren.
Met de gegevens die na het filteren overblijven wil ik slechts enkele kolommen gebruiken op blad2 om vervolgens nieuwe gegevens in kolommen toe te voegen.
Hoe krijg ik de gegevens automatisch ook op blad2?

Met een query maken krijg ik de gehele tabel weer ongefilterd en met een celverwijzing naar het andere blad lijkt mij ook niet de juiste wijze.
Zou iemand mij even op weg kunnen helpen?
Alvast bedankt!

 

[jverkerk]

Weet niet wat je precies bedoeld, maar in de query kun je er allerlei toestanden bij zetten.

 

[Moby123888]

Goedemorgen Johan,
Bedankt voor uw reactie.
Met kolommen toevoegen in de query gaat mij lukken.
Probleem is dat wanneer ik in blad1 op iets anders filter, na het refreshen de gegevens niet veranderd op blad2 en dus de query moet openen om daar ook opnieuw een filter selectie te maken.
Vraag is dus puur, is er iets dat ik de gegevens na filteren op blad1 ook direct (of na "refresh") op blad2 krijgen?
Groeten,Dick

 

[AHulpje]

Zo dan misschien:

 

[Warme bakkertje]

Je gebruikt een tabel dus maken we gebruik van de eigenschappen daarvan.
Ook wilde je enkel bepaalde kolommen, ik heb nu voor 1 en 2 gekozen.
Selecteer in Blad2!A1 de gewenste regio.

 

[snb]

Dubbele gegevens in een bestand lijkt me onhandig.
De dynamische tabel kun je gemakkelijk filteren, met groeperen kun je met 1 klik kolommen verbergen/tonen.
Kans op fouten ? : 0

 

[MaitreJan]

hey Moby,

maak een macro met deze in houd:
de macro krijgt de naam : kopieer1naar2

' ----------- begin -----------------
Sub kopieer1naar2()


Dim wsBron As Worksheet
Dim wsDoel As Worksheet
Dim regio As String
Dim rng As Range

Set wsBron = Sheets("Blad1")
Set wsDoel = Sheets("Blad2")

' Vraag de regio op
regio = InputBox("Welke regio wil je filteren?", "Regio kiezen")

If regio = "" Then
MsgBox "Geen regio ingevoerd. Actie afgebroken.", vbExclamation
Exit Sub
End If

' Wis Blad2
wsDoel.Cells.Clear

' Bepaal het bereik
Set rng = wsBron.Range("A1").CurrentRegion

' Filter toepassen
rng.AutoFilter Field:=1, Criteria1:=regio

' Controleren of er zichtbare rijen zijn
On Error Resume Next
Dim zichtbare As Range
Set zichtbare = rng.SpecialCells(xlCellTypeVisible)
On Error GoTo 0

If zichtbare Is Nothing Then
MsgBox "Geen resultaten gevonden voor regio: " & regio, vbInformation
wsBron.AutoFilterMode = False
Exit Sub
End If

' Kopiëren naar Blad2
zichtbare.Copy wsDoel.Range("A1")

' Filter uitzetten
wsBron.AutoFilterMode = False

MsgBox "Klaar! De gefilterde gegevens voor regio '" & regio & "' staan nu in Blad2.", vbInformation

End Sub
' ---------------- einde -----------------


succes,groet Jan

Bericht automatisch samengevoegd: Gisteren om 16:40

o Ja

je hoeft niet in blad 1 te fileren, als je de macor start krijg je de vraag voor de regio,

op blad1 zie je de filter en dat wordt naar Blad2 gekoplieerd.

ieder keer op nieuw

grt Jan

 

[emields]

zo kan het ook met een macro.

 

[HSV]

Office 365 formule.

 

[snb]

Als je het tweede werkblad wil gebruiken als een userform kuin je beter een userform gebruiken.

 

[Moby123888]

Dank jullie wel voor alle support. De formule met "uniek" had mij dus kunnen helpen hierin.
Ook ga ik de VBA toepassingen eens testen.
Ik zie nu voor andere toepassingen ook van allerlei mogelijkheden.
Een userform hoort hier ook bij, maar hier wil ik in de toekomst nog een keer tijd voor maken om mij hier eens in te verdiepen.
Nogmaals dank voor jullie hulp.