Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kopiranje i Paste value opsega iz jednog lista u drugi

[es] :: Office :: Excel :: Kopiranje i Paste value opsega iz jednog lista u drugi

[ Pregleda: 3489 | Odgovora: 13 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

stefann127
Stefanovic Nebojsa
ITS
Beograd

Član broj: 55741
Poruke: 91
195.222.97.*



Profil

icon Kopiranje i Paste value opsega iz jednog lista u drugi23.12.2011. u 11:07 - pre 149 meseci
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]
Prikačeni fajlovi
 
Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1318

Jabber: 3okc@elitesecurity.org


+116 Profil

icon Re: Kopiranje i Paste value opsega iz jednog lista u drugi23.12.2011. u 12:14 - pre 149 meseci
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.
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!
 
Odgovor na temu

stefann127
Stefanovic Nebojsa
ITS
Beograd

Član broj: 55741
Poruke: 91
195.222.97.*



Profil

icon Re: Kopiranje i Paste value opsega iz jednog lista u drugi23.12.2011. u 12:38 - pre 149 meseci
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

 
Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1318

Jabber: 3okc@elitesecurity.org


+116 Profil

icon Re: Kopiranje i Paste value opsega iz jednog lista u drugi23.12.2011. u 13:45 - pre 149 meseci
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")).

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!
 
Odgovor na temu

stefann127
Stefanovic Nebojsa
ITS
Beograd

Član broj: 55741
Poruke: 91
195.222.97.*



Profil

icon Re: Kopiranje i Paste value opsega iz jednog lista u drugi23.12.2011. u 14:11 - pre 149 meseci
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
 
Odgovor na temu

p.djole
Petrović Đorđe
Ugrinovci

Član broj: 265690
Poruke: 46
*.klasgroup.rs.



+6 Profil

icon Re: Kopiranje i Paste value opsega iz jednog lista u drugi23.12.2011. u 14:53 - pre 149 meseci
prikaci fajl pa da resimo
djole
 
Odgovor na temu

stefann127
Stefanovic Nebojsa
ITS
Beograd

Član broj: 55741
Poruke: 91
195.222.97.*



Profil

icon Re: Kopiranje i Paste value opsega iz jednog lista u drugi23.12.2011. u 15:08 - pre 149 meseci
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
 
Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1318

Jabber: 3okc@elitesecurity.org


+116 Profil

icon Re: Kopiranje i Paste value opsega iz jednog lista u drugi23.12.2011. u 15:46 - pre 149 meseci
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

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!
 
Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1318

Jabber: 3okc@elitesecurity.org


+116 Profil

icon Re: Kopiranje i Paste value opsega iz jednog lista u drugi23.12.2011. u 19:02 - pre 149 meseci
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

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!
Prikačeni fajlovi
 
Odgovor na temu

mick_bg

Član broj: 328776
Poruke: 54
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Kopiranje i Paste value opsega iz jednog lista u drugi12.07.2019. u 13:48 - pre 57 meseci
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.
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2267
89.216.49.*

Sajt: www.gowi.rs


+109 Profil

icon Re: Kopiranje i Paste value opsega iz jednog lista u drugi12.07.2019. u 15:02 - pre 57 meseci
Ako imaš sređenu tabelu (bez praznih redova/kolona), filtriraj po tom kriterijumu pa jednostavno Copy - Paste.
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

mick_bg

Član broj: 328776
Poruke: 54
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Kopiranje i Paste value opsega iz jednog lista u drugi12.07.2019. u 16:59 - pre 57 meseci
A kako mogu to da uradim? Početnik sam u Excelu.
 
Odgovor na temu

mjanjic
Šikagou

Član broj: 187539
Poruke: 2679



+690 Profil

icon Re: Kopiranje i Paste value opsega iz jednog lista u drugi12.07.2019. u 20:30 - pre 57 meseci
Ima odavno celo Help na srpskom za Ofice.
https://support.office.com/sr-...5d-2a90-4610-a6ae-2e545c4a4654
Blessed are those who can laugh at themselves, for they shall never cease to be amused.
 
Odgovor na temu

mick_bg

Član broj: 328776
Poruke: 54
*.com
Via: [es] mailing liste



+1 Profil

icon Re: Kopiranje i Paste value opsega iz jednog lista u drugi12.07.2019. u 20:55 - pre 57 meseci
Snašao sam se uz pomoć opcije "Sort & Filter (Filter)". Hvala svima na odgovorima, a naročito Jpeci.
Sve najbolje.

[Ovu poruku je menjao mick_bg dana 12.07.2019. u 22:43 GMT+1]
 
Odgovor na temu

[es] :: Office :: Excel :: Kopiranje i Paste value opsega iz jednog lista u drugi

[ Pregleda: 3489 | Odgovora: 13 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.