Na jeigu tinka, kad visos pamainos is eiles eina, tai makrose elementaru cikla rasai:


for i=1 to partiju 'eilutes
  partija=26000 'modifikuoji kad duomenis imtu is sheeto kazkurio tai
  pamainu = partija/260 'modifikuoji kad imtu reiksmes is kazkurio tai sheeto
  k=0 'gamybos pradzios poslinkis, apsirasai pagal kazkoki tai algoritma kaip reikia

  for j= 1 to pamainu 'stulpeliai    
    Worksheets("sheetas").Range("B2").Offset(i-1,j-1+k).Value="g" '"B2" modifikuoji i toki kokio reikia
  next i

next j

O jeigu pamainos gali buti deliojamos ne is eiles o su tarpais, na tada sudetingiau, tada tobulini algoritma :)


On Mon, 28 Feb 2011 18:22:21 +0200, "MinVodai" <minvodai@gmail.com> wrote:

>gal ir teisus, rimux, iseitiniu duomenu mazokai surasiau...
>taisausi:
>zinau pamainos norma, sakykim 260 vnt.
>partijos dydis, sakykim 26000 vnt., savaime aisku jau galiu isskaiciuoti 
>pamainu skaiciu sitos partijos gamybai 26000/260=100 pamainu
>pagal plana uzsidedu pats "g" raide, nuo kada turi prasideti gamyba, bet 
>grafike 100 pamainu turiu ivesti i celes su "g" raide
>kaip sita veiksma "priversti" exceli atlikti?