Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Automatyczne Generowanie Numeru Zamówienia

WaldekS · świeżak Posty: 3

Witam mam zrobić formularz zamówień na towar w hurtowni, ma działać tak że gdy zostanie wypełniony np: towar suma dla kogo itd. to po zakończeniu takiego zamówienia ma się w którymś miejscu edytować numer kolejny zamówienia np.było 1/02/12 to żeby automatycznie wskoczyło 2/02/12 czy 101 na 102 i mogłaby się kopia zapisywać a po zapisaniu formularz mógłby z nowym numerem by się generował do następnego zamówienia.

[ Dodano: 2012-02-08, 20:56 ]
może chociaż ktoś będzie znał formułę na generowanie się nowego numeru zamówienia?

bez tytułu.PNG
wzór zamówienia

Plik ściągnięto 41 raz(y) 111.51 KB

Artik · **Pomógł:** 1277 razy Posty: 3463

Formułką to nie bardzo da się zrobić. Raczej potrzebne makro.

Artik

konex · Exceloholic **Pomógł:** 62 razy Posty: 186

Zobacz przykład.
Wystarczy dostosować makro do swoich potrzeb,
kolejny numer generuje formuła.

AutoNr_i_baza.rar

Pobierz Plik ściągnięto 33 raz(y) 8.03 KB

WaldekS · świeżak Posty: 3

zrobiłem z makro ale to trochę skomplikowane, wolałbym coś prostszego, ale pomysł super z makrami :) dziękuje, a czy można zrobić tak żeby sam przycisk generował tylko nowy numer zamówienia bez tworzenia dodatkowej bazy? lub generowanie z automatu numeru zamówienia , po zapisaniu zamówiena wcześniejszego?

Kaper · Excel Expert **Pomógł:** 1151 razy Posty: 1626

Można nie zapisywać numeru w bazie tylko zwiększać go o jeden (i ew. aktualizować miesiąc i rok) po naciśnięciu przycisku.
Poszczególne fragmenty identyfikatora zamówienia można by było elegancko uzyskać funkcją Split, ale myślę, że zastosowanie zwykłych funkcji tekstowych będzie bardziej czytelne.

Pozdrawiam,

AutoNr_Kaper.zip

Pobierz Plik ściągnięto 27 raz(y) 7.69 KB

WaldekS · świeżak Posty: 3

Dziękuję za pomoc bardzo pomogło już teraz mam z górki

[ Dodano: 2012-02-13, 08:22 ]
Witam,
jak można dopisać kolejne arkusze,żeby w tej samej bazie się zapisywały z przypisaniem kolejnego nr.zamówienia.
Set WksZam = ThisWorkbook.Worksheets("Zamówienia") <--czy w tym miejscu dopisuje np. kolejną nazwę arkusza ("Specjalne")?
Set WksMies = ThisWorkbook.Worksheets("Baza")