Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako se dodaje

Kopiranje i Paste value opsega iz jednog lista u drugi

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 13 odgovora
  • 5.140 pregleda

Najnovija ↓

Kopiranje i Paste value opsega iz jednog lista u drugi 23.12.2011. u 12:07 · pre 180 meseci
izmenjeno 1 put, poslednji put 3okc 23.12.2011. u 13:16
Izmene poruke
  1. 3okc23.12.2011. u 13:16zapis iz teksta poruke
#1
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]
NIS ES.zip38.63k
Re: Kopiranje i Paste value opsega iz jednog lista u drugi 23.12.2011. u 13:14 · pre 180 meseci #2
Citat:
stefann127: ... imam dva Sheeta, nazivi "NIS_izvestaj" i "kopiranje" ...


Možda je problem što se u programu referenciraju "NIS_izvestaj" i "kopirati".

Što se tiče tvog pitanja, da li će ti program obaviti kopiranje i iz dokumenta u dokument (tj radni list), jedini način da ti odgovorimo je da uzmemo to parče koda i ispitamo ga na dva dokumenta. Ne vidim zašto se ne bi u to sam uverio, možda ćeš nešto naučiti.
Potpis
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!
Re: Kopiranje i Paste value opsega iz jednog lista u drugi 23.12.2011. u 13:38 · pre 180 meseci #3
3okc,


radio sam sa ovim


Code:

Sub CopyNIS()
Dim ws1 as Worksheet, ws2 as Worksheet

'Saved workbook will have extension like Workbooks("Book1.xls")
Set ws1 = Workbooks("Book1").Sheets("Sheet1")
Set ws2 = Workbooks("Book2").Sheets("Sheet1")

ws1.Range("A1:B10").Copy
ws2.Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub


na novootvorenim Wbook1 i Wbook2 i funcioniše.
Probao sam i Copy iz Sheet1 u Sheet2, isti wbook i funkcioniše.

Referencirao sam imena wbook i Sheets kako je meni odgovaralo i "ničevo".
Imaš li neki predlog? Ili neko drugi?


poz

Re: Kopiranje i Paste value opsega iz jednog lista u drugi 23.12.2011. u 14:45 · pre 180 meseci #4
Citat:
stefann127: na novootvorenim Wbook1 i Wbook2 i funcioniše


Naravno da funkcioniše kada radiš sa novootvorenim jer je i primer koji koristiš, izvorno tako zamišljen: Book1 i Book2 su generička imena radnih listova koji *još uvek nisu snimljeni* pa tako još uvek *nemaju ekstenziju*. Čak ti je autor u komentaru skrenuo pažnju na razliku ako radiš sa snimljenim ('Saved workbook will have extension like Workbooks("Book1.xls")).
Potpis
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!
Re: Kopiranje i Paste value opsega iz jednog lista u drugi 23.12.2011. u 15:11 · pre 180 meseci #5
Imaš li neku ideju ili preporuku sa wbook koji već imaju ime?
Obišao sam mnogo foruma, ali nisam našao ni približno slično. Većina slučajeva je radila sa uslovima, ovo je bezuslovno obično kopiranje i Paste Specal.
Pokušaj mi bar preporučiti nešto.
Hvala unapred
Re: Kopiranje i Paste value opsega iz jednog lista u drugi 23.12.2011. u 16:08 · pre 180 meseci #7
Fajl prikačen.
Samo bih ponovio, u Sheetu kopirati je mesečni izveštaj o potrošnji.
Kada se kopira u NIS_izvestaj kao Paste Special as Value, treba još prekopirati kolonu N preko kolone C i posle se šalje izveštaj svakom.
Hvala zainteresovanima da pomognu.

pozdrav
Re: Kopiranje i Paste value opsega iz jednog lista u drugi 23.12.2011. u 16:46 · pre 180 meseci #8
Citat:
stefann127: Imaš li neku ideju ili preporuku sa wbook koji već imaju ime?


Mislio sam da je previše očigledno da bih tu išta "preporučivao".. Puno ime se sastoji od imena koje je sa ekstenzijom, dakle, navedi ime - ma koje ono bilo - i ekstenziju pod kojom si snimio.

Dakle, na tvom primeru, to bi proizvelo ovo:

Code:
Sub CopytoNIS()
Dim ws1 As Worksheet
Dim ws2 As Worksheet

    Set ws1 = Workbooks("NIS_prazan.xls").Sheets("kopirati")
    Set ws2 = Workbooks("NIS_prazan.xls").Sheets("NIS_izvestaj")

    ws1.Range("A1:K100").Copy
    ws2.Range("A14").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub
Potpis
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!
Re: Kopiranje i Paste value opsega iz jednog lista u drugi 23.12.2011. u 20:02 · pre 180 meseci #9
Proverio sam fajl, kod je ispravan - nije radio ali to je zato što je grešaka bilo na više strana.

Prvo, Korisničke funkcije i procedure uopšte moraju da se nalaze unutar modula.

Drugo, nisi na početku naveo kompletan opis greške: jeste Runtime 1004 ali je u nastavku navedeno i da opseg u koji hoćeš da "nalepiš" podatke ne odgovara po dimenzijama onom iskopiranom. Ovo je greška koja nije specifična za VBA, isto bi ti prijavilo i kada bi pokušao sa C/P. Razlog za ovo su spojene ćelije na odredištu.

Ubacio sam alternativnu proceduru kojom možeš preneti podatke i bez korišćenja Clipboard memorije tj bez kopiranja, naime, prosto dodeliš vrednost jednog opsega drugom.

Code:
Sub Copy_bezCopy()
Dim ws1 As Worksheet
Dim ws2 As Worksheet

    Set ws1 = Workbooks("NIS ES2.xls").Sheets("kopirati")
    Set ws2 = Workbooks("NIS ES2.xls").Sheets("NIS_izvestaj")

    ws2.Range("A14").Resize(Range("A1:K100").Rows.Count, Range("A1:K100").Columns.Count).Value = _
        ws1.Range("A1:K100").Value
End Sub
Potpis
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!
NIS ES2.zip38.85k
Re: Kopiranje i Paste value opsega iz jednog lista u drugi 12.07.2019. u 14:48 · pre 88 meseci #10
Pozdrav svima.

Da ne otvaram novu temu jer mislim da pitanje pripada upravo ovoj.

Elem, interesuje me kako da iskopiram sve redove u Excelu koji sadrže jedan kriterijum (primera radi neko lično ime, u drugi Excel dokument ili Sheet) a da ne idem "pešački" tj. putem opcije Find All, pa onda copy-paste red po red u novi dokument tj. novi Sheet???

Unapred hvala.
Re: Kopiranje i Paste value opsega iz jednog lista u drugi 12.07.2019. u 16:02 · pre 88 meseci #11
Ako imaš sređenu tabelu (bez praznih redova/kolona), filtriraj po tom kriterijumu pa jednostavno Copy - Paste.
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme