Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1


Odgovori na temu





Pomoc


Prosiri Boja Prosiri Velicina Spoiler WMP-Videos Neprimjereno
Podebljano Kurziv Podvuceno Slika Internet adresa (URL) Citat Van teme Neuredena lista Narucena lista Pretplata Nadredeni
Grinning Happy Cool Surprised Disappointed Laughing In love Angry No comment Embarrassing Shy Smiling Tongue Undecided Innocent Wink Sad Prosiri i skupi vise smajlica
Povecaj velicinu · Smanji velicinu Provjeri duzinu
Pretvori smajlice u postu
Pretvori & quot; vokable & quot; u postu

Upravljanje prilozima
Mozete priloziti 3 datoteke!



Posljednjih 15 postova u ovoj temi

Ova tema sadrzi vise od 15 postova. Kliknite ovdje da biste pogledali cijelu temu.

Avko (16.02.2017 19:01):
Predmet: Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
i ja tako radim no dodem u situaciju kad radim sa petljama i celijama koje zahtijevaju ili formatiranje ili pretvorbu a onda stanem

dex (16.02.2017 18:32):
Predmet: Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
Jedan od najboljih načina za učenje VB-a za Excel je da snimaÅ¡ macroe preko snimača i posle proučavaÅ¡ kod koji je napravio, eventualno pokradeÅ¡ delove koji su ti potrebni. Ja sam tako učio, a i dan danas ponekad upotrebim kad ne mogu da se setim sintakse.

Avko (16.02.2017 15:44):
Predmet: Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
veliko hvala

zxz (16.02.2017 13:33):
Predmet: Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Kopiraj()
  2. With Sheet1
  3. .Range("C1:C5").Copy
  4.  .Range("E1:E5").PasteSpecial Paste:=xlPasteValues
  5. End With
  6. End Function

Naziv vrijednostOpis
xlPasteValues-4163Kada se tijesto XlPasteType = xlPasteValues, samo vrijednosti u kopiranog raspona.
xlPasteComments-4144Kada se tijesto XlPasteType = xlPasteComments, samo Komentari na kopiranog raspona.
xlPasteFormulas-4123Kad XlPasteType = xlPasteFormulas, samo formulama u prepisanog niza se zalijepiti.
xlPasteFormats-4122Kad XlPasteType = xlPasteFormats, samo format kopirane raspon je zalijepljen.
xlPasteAll-4104Kad XlPasteType = xlPasteAll, zadani a sve iz kopiranog raspona će se zalijepiti.
xlPasteValidation6Kad XlPasteType = xlPasteValidation, samo Provjere prepisanog niza se zalijepiti.
xlPasteAllExceptBorders7Kad XlPasteType = xlPasteAllExceptBorders, sve iz kopiranog raspona će se zalijepiti, osim granica.
xlPasteColumnWidths8Kad XlPasteType = xlPasteColumnWidths, samo Å¡irine stupca kopiranog raspona zalijepiti.
xlPasteFormulasAndNumberFormats11Kad XlPasteType = xlPasteFormulasAndNumberFormats, samo Formule i broj formata zalijepiti.
xlPasteValuesAndNumberFormats12Kad XlPasteType = xlPasteValuesAndNumberFormats, samo Vrijednosti i broj formata zalijepiti.
xlPasteAllUsingSourceTheme13Kad XlPasteType = xlPasteAllUsingSourceTheme, sve će se zalijepiti pomoću kopiranu raspon tema.
xlPasteAllMergingConditionalFormats14Kad XlPasteType = xlPasteAllMergingConditionalFormats, Sve će biti zalijepljen i uvjetne formate izvor i odrediÅ¡te rasponima će biti spojene.

Avko (15.02.2017 23:23):
Predmet: Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
zna li netko koja je naredba u VBA copy paste samo vrijednosti

znaci ovo:


ali u VBA

Avko (09.02.2017 16:27):
Predmet: Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
e vidis mozda je i kod mene tako.

malo cu pogledati u cemu je problem, ali za sada sumnjam na to da bi trebao staviti umjesto copy-paste, u VBA copy pa onda izabrati posebno ljepljenje-vrijednosti. Cini mi se , a kako si ti objasnio, da se u nekoj celiji nalaze neke makronaredbe ili sta ti ja znam jer kod kopiranja vidim da mi je autofit napravljen nakon paste.
Moze biti Grunfe da je to sto ti kazes. Kopiram sve pa mi blokira.

Grunf (08.02.2017 23:44):
Predmet: Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
da kratko opisem jedno zanimljivo iskustvo sa Excelom, ali ne znam ima li ikakve veze sa ovim problemom.
naime, imao sam jednu aplikaciju koja je radila pod starom verzijom Office-a, a kad sam morao instalirati novu verziju aplikacija je drasticno, ali grozomorno drasticno usporila. problem je bio prilicno banalan. novi Excel je imao milion redova po sheet-u, a onaj stari oko 65 hiljada. a u aplikaciji sam na par mjesta imao kopiranja tipa "zagrabi sve" (ctrl+A) i prebaci u drugi sheet. i to je bio razlog...

dex (08.02.2017 22:49):
Predmet: Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
Citiraj Avko:

slozi mi obrnuti redosljed listova, znaci kopira od zadnjeg prema prvom

stavi

tabla.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Citiraj Avko:

kada zelim snimiti to sto je napravljeno prijavi mi greske one sa slika gore.

Citiraj Avko:

mozda ipak da ja rucno iz 10 excel fajlova kopiram metodom copy-paste po nekih 10-tak listova u novi excel fajl?

Ne znam kako se excel ponasa sa stotinak sheetova, mozda mu je previse

ispod reda tabla.Copy after:=
stavi

Application.ThisWorkbook.Save

da snimi posle svakog ubacenog sheeta, pa da vidimo na kom ce sheetu ce da zabaguje

zxz (08.02.2017 20:35):
Predmet: Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
uff zaboravi napisi i verziju op. sistema win.

zxz (08.02.2017 20:31):
Predmet: Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
De sad napisi u kjoj verziji ofisa si radio.
Onda cemo ti dati poblize o cemiu se radi.

Avko (08.02.2017 13:21):
Predmet: Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
dexxxl:
1. morao sam promijeniti: tabla.Copy after:=Sheet1 u tabla.Copy after:=List1
2. slozi mi obrnuti redosljed listova, znaci kopira od zadnjeg prema prvom, ali to i nije tako bitno
3. kada zelim snimiti to sto je napravljeno prijavi mi greske one sa slika gore.

moze biti da nesto kod mene u sistemu ne valja, mozda imam malo memorije ili je procesor preslab

zxz:
naziv datoteka mi je bio predugacak pa sam morao preimenovati u ime1.xlms,ime2.xlsm ...itd


nakon toga sam htio izbrisati staru zbirna datoteku ali je bilo nesto blokirano


onda sam skinuo unlock i lockHunter pa sam ju uspio izbrisati na jedvice jade

pokrenuo sam prije 10 minuta funkciju koju sam stavio kao sub...endsub, a ne kao funkciju i evo jos cekam u VBA pise running, a na listu excela pise

i ja sam kliknuo na u redu
sada cekam
...nakon nekih 20min



=> Next ExSit

mozda ipak da ja rucno iz 10 excel fajlova kopiram metodom copy-paste po nekih 10-tak listova u novi excel fajl?

zxz (08.02.2017 00:26):
Predmet: Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
Hehe sad vidim da je i @dexxxl postavio.

zxz (07.02.2017 22:54):
Predmet: Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Explicit
  2.  
  3. Function Kopiraj()
  4.  Dim ObEx As Excel.Application
  5.  Dim Vork As Excel.Workbook, VorkN As Excel.Workbook
  6.  Dim ExSit As Excel.Worksheet, ExSitN As Excel.Worksheet
  7.  Dim excelFile, DirF As String, Filename As String, Putanja As String
  8.  Dim f As Integer, I As Integer
  9.  
  10. excelFile = Array("knjiga1.xlms", "knjiga2.xlms", "knjiga3.xlms")
  11. DirF = "c:\excelFile\"
  12. Putanja = DirF & "Zbirna.xlms"
  13. Set ObEx = New Excel.Application
  14. Set VorkN = ObEx.Workbooks.Add
  15. VorkN.SaveAs Putanja
  16. For f = 0 To UBound(excelFile)
  17.     Filename = Dir(DirF & excelFile(f))
  18.     If Filename <> "" Then
  19.     Putanja = DirF & Filename
  20.     Set Vork = ObEx.Workbooks.Open(Putanja)
  21.     For Each ExSit In Vork.Sheets
  22.     I = I + 1
  23.     ExSit.Copy VorkN.Sheets(I)
  24.     VorkN.Sheets(I).Name = Filename & "_" & ExSit.Name
  25.     Next ExSit
  26.     Vork.Close
  27.     End If
  28. Next f
  29. VorkN.Save
  30. VorkN.Close
  31. End Function

To ces ti fino srediti i objasniti kod.

dex (07.02.2017 21:57):
Predmet: Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
Ovo kod mene radi
importuje sve neprazne sheetove iz direktorijuma gde je smesten fajl
radi za xls fajlove
trebalo bi dodati petlju da to jos jednom uradi za xlsx, xlsm, eventualno csv ili sta vec

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub CommandButton2_Click()
  2. On Error GoTo Error_Handler
  3.    
  4.     Dim putanja As String
  5.     Dim Fajl As String
  6.     Dim kriterija As String
  7.     Dim puninaziv As String
  8.     Dim book As Workbook
  9.    
  10.     Application.ScreenUpdating = False
  11.     kriterija = "xls"   ' za xls (excel 2003 i nize fajlove)
  12.    putanja = Application.ThisWorkbook.Path 'nalazi tekuci direktorijum
  13.     puninaziv = putanja & "\*." & kriterija
  14.     Fajl = dir(puninaziv)
  15.         Do While Fajl <> vbNullString
  16.             If Fajl <> "." And Fajl <> ".." And Fajl <> Application.ThisWorkbook.Name Then ' da ne importuje tekuci fajl
  17.          
  18.                 Set book = Workbooks.Open(Fajl, True, True)
  19.                     For Each tabla In book.Sheets
  20.                     If tabla.UsedRange.Cells.Count > 1 Then ' da li i sheetu ima podataka
  21.                        tabla.Copy after:=Sheet1
  22.                     End If
  23.                 Next tabla
  24.  
  25.                 book.Close
  26.                  
  27.             End If
  28.             Fajl = dir
  29.         Loop
  30.         Application.ScreenUpdating = True
  31.        
  32. Error_Handler_Exit:
  33.     On Error Resume Next
  34.     Exit Sub
  35. Error_Handler:
  36.     MsgBox "The following error has occured." & vbCrLf & vbCrLf & _
  37.             "Error Number: " & Err.Number & vbCrLf & _
  38.             "Error Source: DirFajl" & vbCrLf & _
  39.             "Error Description: " & Err.Description, _
  40.             vbCritical, "An Error has Occured!"
  41.     Resume Error_Handler_Exit
  42. End Sub

Avko (07.02.2017 19:08):
Predmet: Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
kada radim sa procedurom jedan, dugo to traje ali napravi na kraju.
Problem je kada zelim snimiti taj excel fajl, javi mi sljedece greske:





Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 8: 58 am.