kopiranje vseh listov v enega

[rick]

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

[admin]

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

[rick]

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

[admin]

Samo zamenjajte.

Koda: Izberi vse

Set novList = Worksheets.Add

z

Koda: Izberi vse

Set novList = ActiveSheet

[rick]

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.

[rick]

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