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
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]