[ konislav @ 19.11.2009. 17:58 ] @
Imam sledeci problem. Na listu Unos vrsim ipisivanje odredjenih podataka u koloni u rasponu pr.D5:D12, po unosu iste kopiram na listu Osnovni. Po izvrsenom kopiranju menja se vrednost u celiji D5, odnosno ako je prv unos imao vrednost1 i podaci su uneseni, sada je vrednost u celiji D5 =2, pa prema tome se i podaci u rasponu D5:D12 kopiraju u koloni pored. Posle ovog kopiranja vrednost u celiji raste za 1, a sledece podatke treba uneti pomerene za jednu kolonu udesno.
u prilogu je dato kako bi to trebalo da izgleda u excel-u.
[ timmy @ 20.11.2009. 07:14 ] @
U proceduri:

Code:

Sub Macro3()
    Range("D5:D12").Select
    Selection.Copy
    Sheets("osnovni").Select
    Range("E7").Select
    ActiveSheet.Paste
    Sheets("UNOS").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("D6:D12").Select
    Selection.ClearContents
    Range("D6").Select
End Sub


zameni red
Code:
    Range("E7").Select


sa
Code:
    Range("E7").Offset(0, Range("UNOS!D5").Value - 1).Select


Pozdrav
[ konislav @ 20.11.2009. 12:17 ] @
Da, to je to. Hvala Vam puno za brzo i kvalitetno resavanje mojeg problema.