excel sheetje verloop weken artikelen

[yusuf19833]

Hallo iedereen,

ik heb een vraag met betrekking tot het excel sheetje die ik wil maken.

Ik zal het je proberen uit te leggen.
In de bijlage heb ik je een Excel sheetje van onze prijslijst die wij elke week aanvullen. Dit doen we door elke week een nieuwe blad te maken met het weeknummers als naam.
Nou zou ik graag willen dat ik een blad in dit geval de eerste blad dat ik daar iets op kan zoeken wat ik in andere bladen invul.
Dus blad 1 heet dan zoekfunctie.
Daar het artikelnummer invoeren. Dan krijg ik de gegevens te zien van het artikel en het prijs van elke week.
Kijk maar even naar het bestand die ik heb gemaakt als voorbeeld.

ik hoop dat jullie mij kunnen helpen.

http://www.mijnbestand.nl/Bestand-RZDJT3QSZOIZ.xlsb

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$4" Then
    Range("A9:E62").ClearContents
        For i = 2 To Worksheets.Count
            On Error Resume Next
            With Sheets(i).Columns(1)
                .Find(Target.Value, , xlValues, xlWhole).Resize(, 5).Copy
                Sheets("zoekfunctie").Range("A65536").End(xlUp).Offset(1).Resize(, 5).PasteSpecial xlPasteValues
            End With
        Next
    End If
    Application.CutCopyMode = False
End Sub

 

[yusuf19833]

Rudi,

bedankt! hoe bedoel je eigenlijk?

 

[Warme bakkertje]

Zet deze code in de bladmodule v/h blad met de zoekcel. Bij het wijzigen van deze cel worden automatisch de resultaten opgehaald.

 

[yusuf19833]

Ok daannn!!!!!!!! perfect, deze ga ik intern gebruiken en die hoefen de klanten niet te gebruiken.

mag ik nog om een gunst vragen?
is het mogelijk om in elke blad een zoekfunctie te zetten zodat je alleen van die week de prijzen kan opzoeken?
ik maak dan elke week wel kopie van de blad.

iedereen top bedankt voor de hulp en de steun! jullie hebben me echt enorm veel tijd bespaart!!!!!!!!!

 

[oeldere]

De code van Warm Bakkertje in je bestand gezet.

Tevens een validatielijst gemaakt (op basis van de artikelcode van week 1).

Deze lijst heeft een naam gekregen.
Excel 2007 => formules => naam bepalen.

De validatie vind je:
Excel 2007 => gegevens => gegevensvalidatie.

In cel B4 staat nu een pijltjes toets.
Hiermee kun je de artikelcode selecteren.

De code van Warm Bakkertje in je bestand gezet.

Indien de artikelcode wordt aangepast zorgt deze ervoor dat de onderliggende lijst wordt ververst (aangepast).

De code kun je raadplegen in je bestand door:
Alt + F11 tegelijktijd in te drukken.

In het tabblad (zoekfunctie) zie je de code van Warm Bakkertje staan.

Via het kruisje kun je weer uit de code naar Excel.

Week 3 en 4 en het logo in week 1 en 2 verwijdert, zodat het bestand klein genoeg is om te plaatsen.

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

 

[yusuf19833]

De code van Warm Bakkertje in je bestand gezet.

Tevens een validatielijst gemaakt (op basis van de artikelcode van week 1).

Deze lijst heeft een naam gekregen.
Excel 2007 => formules => naam bepalen.

De validatie vind je:
Excel 2007 => gegevens => gegevensvalidatie.

In cel B4 staat nu een pijltjes toets.
Hiermee kun je de artikelcode selecteren.

De code van Warm Bakkertje in je bestand gezet.

Indien de artikelcode wordt aangepast zorgt deze ervoor dat de onderliggende lijst wordt ververst (aangepast).

De code kun je raadplegen in je bestand door:
Alt + F11 tegelijktijd in te drukken.

In het tabblad (zoekfunctie) zie je de code van Warm Bakkertje staan.

Via het kruisje kun je weer uit de code naar Excel.

Week 3 en 4 en het logo in week 1 en 2 verwijdert, zodat het bestand klein genoeg is om te plaatsen.

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

zoooooo hij wordt een beauty!!!!!!!

is het ook mogelijk om een validatie te doen niet van artikelcode maar omschrijving?
en is het mogelijk om in elke blad een zoekfuntie te zetten inplaats van een aparte blad met een overzicht van elke week?


alvast bedankt en nogmaals hij wordt een beauty!!

 

[oeldere]

en is het mogelijk om in elke blad een zoekfuntie te zetten inplaats van een aparte blad met een overzicht van elke week?

1) En waarom zou je dat doen?
1) Wat is de reden hiervan?

Bijgaand het aangepaste bestandje met onderstaande code.
Deze zoekt op de artikelomschrijving in kolom B.

Ik krijg met deze code niet de artikelcode in kolom A gepresenteerd.

Private Sub Worksheet_Change(ByVal Target As Range)  'gemaakt door Warm Bakkertje en gewijzigd door Oeldere
    If Target.Address = "$B$4" Then
    Range("A9:E62").ClearContents
        For i = 2 To Worksheets.Count
            On Error Resume Next
            With Sheets(i).Columns(2)
                .Find(Target.Value, , xlValues, xlWhole).Resize(, 4).Copy
                Sheets("zoekfunctie").Range("B65536").End(xlUp).Offset(1).Resize(, 6).PasteSpecial xlPasteValues
            End With
        Next
    End If
    Application.CutCopyMode = False
End Sub

Ik ben er zeker van dat hier forumleden deze ommissie kunnen verhelpen.

P.s. de 1e code (verwijzend naar cel a4) werkt op dit moment niet (meer).

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

 

[oeldere]

En met deze code wordt ook kolom A opgehaald.

Private Sub Worksheet_Change(ByVal Target As Range)  'gemaakt door Warm Bakkertje en gewijzigd door Oeldere
    If Target.Address = "$B$4" Then
    Range("A9:E62").ClearContents
        For i = 2 To Worksheets.Count
            On Error Resume Next
            With Sheets(i).Columns(2)
                .Find(Target.Value, , xlValues, xlWhole).Offset(, -1).Resize(, 5).Copy
                Sheets("zoekfunctie").Range("B65536").End(xlUp).Offset(1, -1).Resize(, 6).PasteSpecial xlPasteValues
            End With
        Next
    End If
    Application.CutCopyMode = False
End Sub

 

[yusuf19833]

En met deze code wordt ook kolom A opgehaald.

Private Sub Worksheet_Change(ByVal Target As Range)  'gemaakt door Warm Bakkertje en gewijzigd door Oeldere
    If Target.Address = "$B$4" Then
    Range("A9:E62").ClearContents
        For i = 2 To Worksheets.Count
            On Error Resume Next
            With Sheets(i).Columns(2)
                .Find(Target.Value, , xlValues, xlWhole).Offset(, -1).Resize(, 5).Copy
                Sheets("zoekfunctie").Range("B65536").End(xlUp).Offset(1, -1).Resize(, 6).PasteSpecial xlPasteValues
            End With
        Next
    End If
    Application.CutCopyMode = False
End Sub

Thanxxsss!!!! zou je deze in de excel sheet willen zetten voor mij? ik weet niet hoe dat moet

 

[oeldere]

Gegevensvalidatie met zoeken op voorletters.

en als laatste met gegevensvalidatie op de voorletters (zie bijlage)

Als je zoekt via A4, worden de artikelcodes gezocht.
Als je zoekt via B4, worden de artikelomschrijvingen gezocht.
De laatst ingevulde aktie wordt uitgevoerd.
Je kunt in beide invulcellen ook blanco kiezen.
Vul in B4 een letter in en klik op de zoekpijl.
Je krijgt alleen de keuzen met die letter
De waarden in week 1 B18 t/m B760 dienen oplopend gesorteerd te zijn
Deze oplossing heb ik ook van een forum (is niet van mezelf)

De VBA code van Warm bakkertje aangepast, zodat je zowel op artikelcode als op artikelomschrijving kunt zoeken.

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

 

[yusuf19833]

en als laatste met gegevensvalidatie op de voorletters (zie bijlage)

Als je zoekt via A4, worden de artikelcodes gezocht.
Als je zoekt via B4, worden de artikelomschrijvingen gezocht.
De laatst ingevulde aktie wordt uitgevoerd.
Je kunt in beide invulcellen ook blanco kiezen.
Vul in B4 een letter in en klik op de zoekpijl.
Je krijgt alleen de keuzen met die letter
De waarden in week 1 B18 t/m B760 dienen oplopend gesorteerd te zijn
Deze oplossing heb ik ook van een forum (is niet van mezelf)

De VBA code van Warm bakkertje aangepast, zodat je zowel op artikelcode als op artikelomschrijving kunt zoeken.

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

Beste Oeldere, Bij mij werkt cel b4 niet kan dat?

 

[oeldere]

VBA is een leerprocesje voor mij.

Op mijn PC werkt het bestandje wel. (maar heb ik dus niet goed genoeg getest).

Het geuploade (en nu dus gedownloade) bestandje werkt het niet meer.

Ik ga even zoeken waar dit aan ligt.

Kom ik op terug.

Het ligt vast aan de VBA code.

Private Sub Worksheet_Change(ByVal Target As Range) 'gemaakt door Warm Bakkertje
    If Target.Address = "$A$4" <> 0 Then
    Range("A9:E62").ClearContents
        For i = 2 To Worksheets.Count
            On Error Resume Next
            With Sheets(i).Columns(1)
                .Find(Target.Value, , xlValues, xlWhole).Resize(, 5).Copy
                Sheets("zoekfunctie").Range("A65536").End(xlUp).Offset(1).Resize(, 5).PasteSpecial xlPasteValues
            End With
        Next
    End If
'    Application.CutCopyMode = False
'End Sub
'Private Sub Worksheet_Change(ByVal Target As Range)  'gemaakt door Warm Bakkertje en gewijzigd door Oeldere
    If Target.Address = "$B$4" Then
    Range("A9:E62").ClearContents
        For i = 2 To Worksheets.Count
            On Error Resume Next
            With Sheets(i).Columns(2)
                .Find(Target.Value, , xlValues, xlWhole).Offset(, -1).Resize(, 5).Copy
                Sheets("zoekfunctie").Range("B65536").End(xlUp).Offset(1, -1).Resize(, 6).PasteSpecial xlPasteValues
            End With
        Next
    End If
    Application.CutCopyMode = False
End Sub

Het ligt vast aan de koppeling tussen de "oude" en "nieuwe" change event.

Even de reactie van derden afwachten.

Ik plaats hem even hier, dan kunnen VBA kenners vast meteen zeggen waar het fout gaat.

Ik heb de vraag ook hier geplaatst.

 

[yusuf19833]

VBA is een leerprocesje voor mij.

Op mijn PC werkt het bestandje wel. (maar heb ik dus niet goed genoeg getest).

Het geuploade (en nu dus gedownloade) bestandje werkt het niet meer.

Ik ga even zoeken waar dit aan ligt.

Kom ik op terug.

Het ligt vast aan de VBA code.

Private Sub Worksheet_Change(ByVal Target As Range) 'gemaakt door Warm Bakkertje
    If Target.Address = "$A$4" <> 0 Then
    Range("A9:E62").ClearContents
        For i = 2 To Worksheets.Count
            On Error Resume Next
            With Sheets(i).Columns(1)
                .Find(Target.Value, , xlValues, xlWhole).Resize(, 5).Copy
                Sheets("zoekfunctie").Range("A65536").End(xlUp).Offset(1).Resize(, 5).PasteSpecial xlPasteValues
            End With
        Next
    End If
'    Application.CutCopyMode = False
'End Sub
'Private Sub Worksheet_Change(ByVal Target As Range)  'gemaakt door Warm Bakkertje en gewijzigd door Oeldere
    If Target.Address = "$B$4" Then
    Range("A9:E62").ClearContents
        For i = 2 To Worksheets.Count
            On Error Resume Next
            With Sheets(i).Columns(2)
                .Find(Target.Value, , xlValues, xlWhole).Offset(, -1).Resize(, 5).Copy
                Sheets("zoekfunctie").Range("B65536").End(xlUp).Offset(1, -1).Resize(, 6).PasteSpecial xlPasteValues
            End With
        Next
    End If
    Application.CutCopyMode = False
End Sub

Het ligt vast aan de koppeling tussen de "oude" en "nieuwe" change event.

Even de reactie van derden afwachten.

Ik plaats hem even hier, dan kunnen VBA kenners vast meteen zeggen waar het fout gaat.

Ik heb de vraag ook hier geplaatst.

zoals ik al zij de sheet die ik heb nu die is mooi genoeg om intern te gebruiken.
ik wil die sheet niet rond sturen naar klanten.
dat wekt vragen op omdat je precies kan zien hoe de verloop van de prijzen gaat.
graag zou ik willen dat ik in elk blad een zoek cel heb waar ik het omschrijving in kan tikken.

is dit mogelijk?

dan kopieer ik elke week wel de blad naar een nieuwe week telkens.

hoor graag of dat mogelijk is?

 

[oeldere]

Vergeet de vorige oplossingen.

Back to the basics (zie bijlage).

Je kunt in cel A4 of B4 selecteren.

Vervolgens worden alle gegevens uit de werkbladen getoond.

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

P.s. op het andere forum heeft XLcoach onder #4 ook een oplossing aangeboden.

de link naar die oplossing tref je hier aan.