pozdravljeni,
verjamem, da ste že v naslovu ugotovili moj problem.
Torej, rad bi prekopiral vsebine vseh listov v zvezku v list1.
torej vse ostale liste v zvezku bi en za drugim dodal v list1,
struktura teh listov je enaka.
upam da za nekatere ne bo prehudo.
za odgovor se zahvaljujem.
lp
kopiranje vseh listov v enega
Re: kopiranje vseh listov v enega
Spodnji makro bo naredil to kar želite:
Koda: Izberi vse
Option Explicit
Sub ZdruziListe()
Dim novList As Worksheet: Set novList = Worksheets.Add
Dim list As Worksheet
For Each list In Worksheets
If (list.Name <> novList.Name) Then
list.Activate
list.UsedRange.Select
Selection.Copy Destination:=novList.Range("A65536").End(xlUp)(2)
End If
Next
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: kopiranje vseh listov v enega
poddravljen Matjaž,
zahvaljujem se za hiter odgovor, rad bi malo korekcijo, želel bi,
da mi vse skupaj prekopira na obstoječi activesheet
in ne na novi list.Upam matjaž, da tudi to ne bo za vas problem.
še enkrat hvala za pomoč,
lp
zahvaljujem se za hiter odgovor, rad bi malo korekcijo, želel bi,
da mi vse skupaj prekopira na obstoječi activesheet
in ne na novi list.Upam matjaž, da tudi to ne bo za vas problem.
še enkrat hvala za pomoč,
lp
Re: kopiranje vseh listov v enega
Samo zamenjajte.
z
Koda: Izberi vse
Set novList = Worksheets.Add
Koda: Izberi vse
Set novList = ActiveSheet
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: kopiranje vseh listov v enega
Pozdravljeni,
hvala in še enkrat hvala, stvar deluje .
Zelo mi pomagate.
Matjaž, imel bi še eno vprašanje, potem pa se bom malo
"umiril".Odprl bom novo temo.
Hvala in lp.
hvala in še enkrat hvala, stvar deluje .
Zelo mi pomagate.
Matjaž, imel bi še eno vprašanje, potem pa se bom malo
"umiril".Odprl bom novo temo.
Hvala in lp.
Re: kopiranje vseh listov v enega
pozdravljeni,
glede kode, ki ste mi jo dali bi rad imel še eno korekcijo
in sicer:
ta koda mi vse liste združi skupaj, torej celotne tabele-tudi z glavami,
te se nahajajo v prvih treh vrsticah.
torej kako bi združil liste brez prvih treh vrstic.
za odgovor se iskreno zahvaljujem.
kako
glede kode, ki ste mi jo dali bi rad imel še eno korekcijo
in sicer:
ta koda mi vse liste združi skupaj, torej celotne tabele-tudi z glavami,
te se nahajajo v prvih treh vrsticah.
torej kako bi združil liste brez prvih treh vrstic.
za odgovor se iskreno zahvaljujem.
kako