[ stefann127 @ 23.12.2011. 11:07 ] @
Zamolio bih za jedno objašnjenje, tema je stara, ali nailazim na grešku. Imam sledeći problem: U jednom workbook NIS_prazan.xls imam dva Sheeta, nazivi "NIS_izvestaj" i "kopiranje" i potrebno mi je kopiranje opsega A1:K186 iz sheet "kopiranje" i Paste special as Value u "NIS_izvestaj" u opseg A14:K.... Koristim ovaj Code Code: Sub CopytoNIS() Dim ws1 As Worksheet, ws2 As Worksheet 'Saved workbook will have extension like Workbooks("Book1.xls") Set ws1 = Workbooks("NIS_prazan").Sheets("kopirati") Set ws2 = Workbooks("NIS_prazan").Sheets("NIS_izvestaj") ws1.Range("A1:K100").Copy ws2.Range("A14").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub prijavljuje se greška 400 i na Help "Run time error 1004". Da li mogu ovaj Code koristiti i za Copy Paste Value kada imam da kopiram iz jednog wbook u drugi. Hvala unapred [Edit: Dodati tagovi] [Ovu poruku je menjao 3okc dana 23.12.2011. u 13:16 GMT+1] |