• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Bestellijst

Status
Niet open voor verdere reacties.

ridito2011

Gebruiker
Lid geworden
18 okt 2011
Berichten
5
Ik heb een vraag
Ik ben geen expert in excel ,meestal kom ik er wel uit maar nu weet ik het echt niet meer.
Dat komt mede door dat ik niet precies weet hoe ik het moet vragen.
Ik heb een excel lijst waar ik een aantal bladeren in heb zitten.
Ik doe hier een voorbeeld mijn is makkelijk om uit te leggen.
Ik heb 2 Blad stencils 1 = INVULLIJST en 2 = BESTELLIJST
Nu is de bedoeling dat ik een bestelling plaats op blad 1 ( INVULLIJST ) door middel van in cel B de aantal in te vullen.
Verder hoeft hier niets meer te gebeuren.
Wat ik nu zou willen is dat de producten die ik ga bestellen die periode verhuizen naar blad 2 ( BESTELLIJST ) dus stel ik heb in blad 1 750 producten maar ik heb deze periode alleen maar 10 producten nodig,dan komt alleen de producten waar een cijfer wordt ingevuld verhuist naar blad 2.
Is dit mogelijk ?
Dit is namelijk voor mijn groothandel bestellijst.
Ik heb een inkoop lijst maar elke week moet ik alles opnieuw uitrekenen.
Ik zou graag een bestellijst willen printen zodat ik elke week een andere lijst kan samenstellen.

Mvg Ricardo
 

Bijlagen

Het mooiste voor een code is dat je in cel A1 start en aaneengesloten te werk gaat.

Test het maar eens.
Je bestand later opslaan als macrobestand.

Code:
Sub hsv()
Sheets("bestellijst").UsedRange.ClearContents
With Sheets("invullijst").UsedRange.Resize(, 14)
  .AutoFilter 1, "<>"
  .Copy Sheets("bestellijst").Cells(1)
  .AutoFilter
End With
End Sub
 
Het mooiste voor een code is dat je in cel A1 start en aaneengesloten te werk gaat.

Test het maar eens.
Je bestand later opslaan als macrobestand.

Code:
Sub hsv()
Sheets("bestellijst").UsedRange.ClearContents
With Sheets("invullijst").UsedRange.Resize(, 14)
  .AutoFilter 1, "<>"
  .Copy Sheets("bestellijst").Cells(1)
  .AutoFilter
End With
End Sub

Sorry maar mijn kennis gaat nog niet zo ver.
Ik ga wel trachten om te kijken hoe ik met macro bestanden moet werken,dit heb ik nog nooit gedaan.
Sorry voor mijn gebrek van deze applicatie , ik zal wel gaan zoeken op google hoe dat werkt.
Of zou u dat in mijn bestand kunnen verwerken ? Alles mag aangepast worden in die bestand.
Mvg Ricardo
Bedankt voor u antwoord
 
Maakt niet uit Ricardo.

Ik heb een knopje op het werkblad geplaatst waar je op kan klikken.
Het kan ook automatisch als je naar blad 'bestellijst' gaat, maar dat is een keuze aan jou.
 

Bijlagen

Maakt niet uit Ricardo.

Ik heb een knopje op het werkblad geplaatst waar je op kan klikken.
Het kan ook automatisch als je naar blad 'bestellijst' gaat, maar dat is een keuze aan jou.

Super
Dit is echt top.
Onwijs bedankt dit is echt helemaal waar ik naar opzoek was.
Kan ik deze knop verplaatsen naar een andere plek ?
Ik kan de lijst nu zeker verder aanvullen toch ?
Onwijs bedankt voor u hulp fijn .
Mvg Ricardo
 
Ik weet niet of het potlood/liniaal/driehoek (Ontwerpmodus) standaard op je applicatie staat, anders kun je er zo bij.
In de opties van Excel → Aanpassen → Kies opdrachten uit → Alle opdrachten → Ontwerpmodus → toevoegen.
Nu staat de knop Ontwerpmodus in het lint van Excel.

Door daarop te klikken kun je de Commandbutton selecteren.
Voor de werking weer op Ontwerpmodus klikken.
 
Ik weet niet of het potlood/liniaal/driehoek (Ontwerpmodus) standaard op je applicatie staat, anders kun je er zo bij.
In de opties van Excel → Aanpassen → Kies opdrachten uit → Alle opdrachten → Ontwerpmodus → toevoegen.
Nu staat de knop Ontwerpmodus in het lint van Excel.

Door daarop te klikken kun je de Commandbutton selecteren.
Voor de werking weer op Ontwerpmodus klikken.

Bedankt
Ik ga er morgen ochtend mee aan de slag.
Alvast een fijne weekeinde
Mvg Ricardo
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan