Zoekprobleem Help!

[Smoofert]

hallo ik heb hulp nodig bij het volgende probleem

Ik wil de gegevens per dag zien als ik een week selecteer. in een nieuw tabblad laat ik zoeken naar de datum op het eerste tabblad. daarbij wil ik de resultaten van ma tot vrijdag zien. That's all

week 28
ma 100
di 200
wo 300
do 400
vr 500

week 29
ma 300
di 600
wo 700
do 800
vr 000

 

[trucker10]

Waarschijnlijk met HORIZ.ZOEKEN ( kan ook VERT.ZOEKEN zijn ) je maakt niet duidelijk hoe de gegevens op je tabblad zijn weggeschreven , onder of naast elkaar . een dummie bestandje kan heel veel verheldering brengen

 

[Smoofert]

Je hebt gelijk sorry,

Hierbij het bestandje.

In sheet 2 moeten de resultaten komen.

 

[danny147]

Beste Smoofert

Zie bestandje.

Groetjes Danny. :thumb:

 

[Smoofert]

Danny,

zou dit ook lukken volgens het formaatje wat ik heb meegestuurd?

 

[Smoofert]

Danny,

zou dit ook lukken volgens het formaatje wat ik heb meegestuurd?

of iemand?

 

[DCWDPT]

Welke van de 5 data die je op de maandag noteert wil je zien? In jouw originele vraag staat maar 1 getal bij elke dag. In jouw databestand staan er echter 5. Kijk dat maakt het dan weer lastig.

 

[Smoofert]

Eigenlijk alle data, in dezelfde volgorde. maar als ik de formule heb voor de 1e kolom, kan ik die wel doortrekken naar de overige kolommen.

kortom,

ik wil eigenlijk een kopie hebben van sheet 1 maar dan alleen zichtbaar per week, wanneer ik deze in een invoerveld invul.

 

[DCWDPT]

Met deze macro, zoek je de geselecteerde week en kopieert de gegevens naar blad 2, cel D20.

Sub KopieerWeek()

    Dim weekno
    Dim celnu
    weekno = [D2].Value
    
    Sheets("Sheet1").Select
    Columns("A:A").Select
    Selection.Find(What:=weekno, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
    celnu = ActiveCell.Address
    ActiveCell.Offset(7, 5).Select
    Range(celnu, ActiveCell).Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("D20").Select
    ActiveSheet.Paste
End Sub

 

[Smoofert]

heel erg bedankt :thumb:, maar op 1 of andere manier krijg ik em niet aan de praat :shocked:

 

[DCWDPT]

heel erg bedankt :thumb:, maar op 1 of andere manier krijg ik em niet aan de praat :shocked:

Wat zegt ie dan? Je moet deze macro wel draaien vanaf Sheet2 anders werkt ie niet.

 

[Smoofert]

Methode van klasse range is mislukt. ?

Columns("A:A").Select

vanuit sheet 2 heb ik em gedraaid

 

[Warme bakkertje]

Wijzig de waarde in D2 en de gegevens worden automatisch opgehaald

 

[Smoofert]

Super!!!!! :thumb:

deze krijg ik aan de praat!

DCWDPT, Jij ook nog bedankt!

 

[HSV]

Het staat al als opgelost, maar met een formule gaat het ook.
Wil het doch nog plaatsen voor de geïnteresseerden.

 

[Smoofert]

Is inderdaad handig als je niet zo overweg kan met macro's.

Harry bedankt,

hier kan ik ook zekers wat mee.