selectie vraag

[jgdesmit]

Wat ik wil is dat waneer het selectie vakje is aan gevinkt, dat alleen de geselecteerde regels naar een ander blad worden gekopieerd. Zodat dat blad kan worden uitgeprint of gemaild kan gaan worden. Hoe doe ik dat??
of weet iemand een betere oplossing hier voor.

Vast bedankt allemaal

groetjes Jaap

 

[bandito bob]

Waarom zou je gebruik maken van de selectie vakjes?

Ik denk dat je het beste (iets) kan neerzetten in kolom C, zodat je hierna kan werken met een uitgebreid filter. Hier heb je de mogelijkheid om het gefilterde te kopieeren naar een andere locatie.

 

[jgdesmit]

Paul bedankt voor je reactie.

Ik snap eerlijk gezegd niet hoe je dit bedoeld, of mijn bedoeling is niet duidelijk ik zal wat meer over wat ik wil vertellen.
Wat ik wil is verschillende bladen maken met lijsten van verschillende product groepen.
En dat dan andere uit deze lijsten het geen wat ze willen kunnen selecteren en na dat ze alle bladen hebben door genomen de mogelijkheid hebben om alleen het geselecteerde naar mij toe te mailen. Ik hoop dat je begrijpt wat ik bedoel en eigenlijk wil. Is dit ook mogelijk met wat jij voorstelt, zou je dan iets meer er over kunnen vertellen.

Groetjes Jaap

 

[kibus]

een klein opzetje bedoel je zoiets eventueel??

gr

 

[bandito bob]

Had je al eens goed gekeken naar het uitgebreid filter?

Ik heb maar even een voorbeeldje gemaakt.

Hierin selecteer je maanden door ze te vinken. Vervolgens kan je de geselecteerde maanden met een druk op de knop onder elkaar krijgen in een apart lijstje.
De knop stuurt een macro aan, welke een uitgebreid filter laat werken. Deze zet de uitkomst van het filter neer vanaf cel F6.

Dit lijstje kan je hierna makkelijk kopieeren naar een ander excel bestandje, of direct mailen. Deze actie(s) zou je ook kunnen toevoegen in de/een macro.
Maar aangezien ik niet zo goed ben met VBA (de programmeer taal voor excel/office) laat ik dat indien gewenst aan mij voorbij gaan.

edit: Kibus heeft ook al een mooie oplossing aangdragen zie ik

 

[jgdesmit]

Bedankt voor jullie reactie, kibus en bandito bob.
Als ik de bijgevoegde bestanden bekijk gaat mijn idee als eerste naar dat van bandito bob uit
Dat licht het dichts bij wat ik had gedacht. Ik ben verder een leek in dit gebeuren,
maar heb mij zelf door middel van zulke kanjer als Julie van een hoop dingen wijs gemaakt,
dus ik hoop dat met dit ook te doen. Ik heb helpmij babo.xls bekeken en wat
aangepast willen jullie daar eens naar kijken. Ik heb er nog wat vragen over.
Als ik selectie vakjes aanvink en voor het eerst op de selectie knop druk lijkt het goed te gaan,
Maar als ik dan wijzingen aan breng gaat het niet goed als je het uit test zie je wat ik bedoel.
Duidelijk is dan dat ik iets nog niet zie en snap wellicht heeft het met het geen hieronder te maken.

Wat is het doel van :=Range( _"E1:E2") zoals hier onder staat vermeld?

Range("B4:E20").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"E1:E2"), CopyToRange:=Range("F4"), Unique:=False
Columns("I:I").ClearContents

Andere vraag is, nu plakt hij het naar het begin van cel F4 in het zelfde blad,
hoe zet ik het neer als ik het bijvoorbeeld in cel F4 van Blad2 wil laten plakken?

Nog een vraagje, als ik dit ook op mijn website wil zetten met de zelfde functie
kan dat en hoe doe ik dat. Heb al wat uit geprobeerd maar dan werk de selectie functie
niet meer helaas.

Ik hoop op een reactie van Julie, vast bedankt.

Groeten Jaap

 

[kibus]

antwoord op vraag 1 dat is het criterium waaraan het filter moet voldoen
zie bijlage.. in dit geval test en 1
antwoord op vraag 2 volgens mij is dat niet mogelijk in uitgebreid filter copieren naar ander werkblad dat kan je eventueel regelen via een macro en dan plakken als waarde
vraag 3 geen idee

 

[jgdesmit]

Hoi

Het naar een ander blad plaatsen is geluk met Blad2! te plaatsen.

Zo was het:

Range("B4:E20").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"E1:E2"), CopyToRange:=Range("F4"), Unique:=False
Columns("I:I").ClearContents

Zo is het nu:

Range("B4:E20").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"E1:E2"), CopyToRange:=Range(Blad2! "F4"), Unique:=False
Columns("I:I").ClearContents

Het volgende wou ik ook doen met de opdracht:
Columns("I:I").ClearContents

Hier maakte ik van:
Columns(Blad! "I:I").ClearContents

Maar dat doet het niet, waarom niet?

Groetjes Jaap

 

[bandito bob]

Het volgende wou ik ook doen met de opdracht:
Columns("I:I").ClearContents

Hier maakte ik van:
Columns(Blad! "I:I").ClearContents

Maar dat doet het niet, waarom niet?

Groetjes Jaap

Ik denk zo uit mijn hoofd zoiets:

worksheet(Blad1!).range("I:I").ClearContents

 

[jgdesmit]

Bedankt Paul;

Maar helaas, dat werkt niet.
ik ben toch benieuwd of het kan en koe het moet.
Ik weet wel een optie, dat is de kolom verbergen,
maar ik wil graag ook de andere optie leren.

groetjes Jaap.