Completare automata din lista

[TudyBTH]

Bine,

Asa vom face.
(doar ca paranteza) Tabelul cu caloriile stabileste cate calorii contine fiecare aliment pe unitaea de masura. Acel retetar de care va vorbeam, stabileste cantitatea necesara din fiecare aliment pentru a "compune" un preparat/fel de mancare din meniu. Produsul celor doua este LZA. Este imposibil sa pregatesti un preparat fara un retetar, este cerut de lege, deci el sigur exista doar ca se afle la bucatarie (probabil). Daca introducem acel retetar in program, alaturi de tabelul cu caloriile, este mult mai usor sa introduci saptamanal preparatele in meniu decat sa introduci zilnic toate alimentele cerute de ACELASI MENIU. Cum am spus la inceput este doar o paranteza, deci nu mai insist pe tema asta, fiind costient de limitarile ce le impune in anumite situatii o astfel de solutie (si aceea rezolvabila de altfel prin lista suplimentara pe care oricum o intocmiti).

OK, consider ca acestea sunt datele problemei. O sa revin cu un model de rezolvare.

[awlex]

Am revenit cu o mica problema ... am o lista cu produse si as vrea sa completeze automat intr-o fisa de magazie si sa genereze pagini cu fise atat cat este lista de produse...
Eu am facut un macro dar nu stiu sa il fac sa continue pana la sfarsitul listei ...

Cod: Selectaţi tot

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+j
'
    Sheets("Fisa").Select
    Sheets("Fisa").Copy Before:=Sheets(2)
    Sheets("Lista").Select
    Range("A2:D2").Select
    Selection.Copy
    Sheets("Fisa (2)").Select
    Range("Y14").Select
    ActiveSheet.Paste
    Sheets("Lista").Select
    Range("A3:D3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Fisa (2)").Select
    Range("Y15").Select
    ActiveSheet.Paste
End Sub

Acesta este codul macro ...

[awlex]

Chiar nimeni nu ma poate ajuta ?