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.
pozicija kopiranja zavisno od vrednosti u celiji
Zaključano
Zakačeno
U proceduri:
zameni red
sa
Pozdrav
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
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
Range("E7").Select
sa
Code:
Range("E7").Offset(0, Range("UNOS!D5").Value - 1).Select
Range("E7").Offset(0, Range("UNOS!D5").Value - 1).Select
Pozdrav
Da, to je to. Hvala Vam puno za brzo i kvalitetno resavanje mojeg problema.