automatisch afdrukken met boodschap

[tamoti]

in het excel bestand is een factuur, via een knop "factuur afdrukken" kan je de factuur afdrukken. Als je een factuur al zou hebben afgedrukt moet er een boodschap verschijnen dat de factuur al reeds is afgedrukt.

Met andere woorden de bedoeling is dat excel op de een of andere manier onthoud bij welk factuurnummer de knop afdrukken werd ingedrukt. En als je een factuurnummer ingeeft waarvan de factuur al eens werd afgedrukt dan komt er een zinnetje tevoorschijn "OPMERKING: deze factuur is al afgedrukt!"

[ATTACH]8351[/ATTACH]

meubelzaak peeters.xlsx

[bucky]

tamoti

via een knop "factuur afdrukken" kan je de factuur afdrukken

1. Ik zie geen code

2. Maak de factuur weer leeg, nadat hij is afgedrukt, (Ik zou hem 2 maal laten afdrukken) voor eigen adm.

3. Of laat het factuurnummer naar een daarvoor bestemd Blad "factuurnummer" kopieren in je code, en laat kijken of het nummer al voorkomt.

Gr. bucky

meubelzaak peeters_1.xlsx

7 januari 2011 aangepast door bucky
kleine aanpassing

[tamoti]

Het is een goede oplossing , maar hoe moet je puntje 3 dan schrijven in je code. MAW Het factuurnummer laten kopiëren.

De reden waarom je geen code ziet is omdat ik een excel werkmap met macro's niet kon uploaden en ik daarom het bestand als een gewone werkmap heb opgeslagen en dat geüpload, de code van de knop afdrukken zag er zo uit:

Application.Dialogs(xlDialogPrint).Show

Wat zou ik dan bij die code moeten bijschrijven om de factuurnummers naar een appart tabblad te laten kopiëren?

[bucky]

Zet dit stukje code net voor je End sub

With Sheets("Factuurnummer").Cells(Rows.Count, 1).End(xlUp)

.Offset(1, 0).Value = Sheets("Verkoopfactuur").[b19].Value

End With

Gr. bucky

[bucky]

tamoti,

Ik heb met al mijn kennis van VBA:D nog een aanpassing gemaakt. Op het Blad "Factuurnummer" staat de code.

bucky

meubelzaak peeters_1_2.xlsx

[tamoti]

Bedankt voor de hulp Bucky, je hebt mijn probleem opgelost!

Alles werkt nu perfect zoals ik het wou.