Hvala na odgovoru,ovo može poslužiti,ja sa lista kasa uzimam datum broj računa,i stavke računa
znam za prvu stavku da upiše to je ovaj kod
....................................................................................................................
Dim xy As String 'deklarisanje promenljive xy
xy = Sheets("bazaizlaz").Range("A1000").End(xlUp).Row + 1 'prvi prazan red za unos
Dim spec As Worksheet, nal As Worksheet 'delariranje sheetova
Set spec = Sheets("bazaizlaz")
Set nal = Sheets("kasa")
Application.ScreenUpdating = False
With spec
.Range("A" & xy).Value = nal.Range("c5").Value 'datum
.Range("B" & xy).Value = nal.Range("f6").Value 'broj fakture
.Range("C" & xy).Value = nal.Range("b9").Value 'fikalni račun
.Range("D" & xy).Value = nal.Range("b11").Value 'šifra artikla
.Range("E" & xy).Value = nal.Range("c11").Value 'naziv
.Range("F" & xy).Value = nal.Range("d11").Value 'jed.mj
.Range("G" & xy).Value = nal.Range("e11").Value 'broj fakture
.Range("H" & xy).Value = nal.Range("f11").Value 'cijena
Range("A1").Select
....................................................................................................
ali kako da i sljedeće stavke ako imaju da upiše jednu ispod druge na listu baza.
Hvala
[Ovu poruku je menjao jaskojsako dana 02.07.2014. u 22:11 GMT+1]
[Ovu poruku je menjao jaskojsako dana 02.07.2014. u 22:11 GMT+1]
[Ovu poruku je menjao jaskojsako dana 02.07.2014. u 22:12 GMT+1]
Jasmin