pozdravljeni vsi v forumu
imel bi vprašanje in sicer:imam pet odprtih delovnih zvezkov(ki so minimizirani),no te zvezke ki imajo samo po en list,pa bi rad prekopiral
v aktivni delovni zvezek(kolikor zvezkov,toliko listov).makro sicer
znam posneti,vendar se mi bo nadalje ustavil,saj bom v bodoče odpiral
zvezke,ki so različno imenovani,in tudi število zvezkov bo različno.toda ne več kot deset.
vsi odprti zvezki naj se prekopirajo v en zvezek?
upam da moje vprašanje ne bo prehudo.
za odgovor se zahvaljujem
hitro kopiranje
Pozdravljeni,
Spodaj imate makro, ki vam bo opravil željeno akcijo. Najprej bo doprl nov delovni zvezek in nato iz vseh trenutno odprtih delovnih zvezkov premaknil vse delovne liste v novega.
Spodaj imate makro, ki vam bo opravil željeno akcijo. Najprej bo doprl nov delovni zvezek in nato iz vseh trenutno odprtih delovnih zvezkov premaknil vse delovne liste v novega.
Koda: Izberi vse
' www.matjazev.net
' 19.10.2005
Sub PrekopirajVseListeVNovDZ()
' 1. odprem nov DZ
Dim dz As Workbook
Set dz = Workbooks.Add
Dim dz1 As Workbook
' 2. za vsak delovni zvezek, ki ni prej odprt
' vse liste prekopiram v prejšnjega
For Each dz1 In Workbooks
If (Windows(dz1.Name).Visible = True) And (dz1.FullName <> dz.FullName) Then
dz1.Sheets.Copy Before:=dz.Sheets(1)
End If
Next
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator