hitro kopiranje

Pomoč pri delu z MS Excelom
Odgovori
miha1
Prispevkov: 20
Pridružen: Sr Avg 10, 2005 5:07 pm

hitro kopiranje

Odgovor Napisal/-a miha1 »

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
lp miha1
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

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.

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
miha1
Prispevkov: 20
Pridružen: Sr Avg 10, 2005 5:07 pm

Odgovor Napisal/-a miha1 »

pozdravljen

hvala Matjaž za makro...ga že preizkušam.
mislim.da bo ok.
lp miha1
Odgovori