Kopiranje listov

[direndaj]

Imam delovni list v excelu, ki bi ga moral skopirati 30 krat (rabim 31 listov, za vsak dan v mesecu), pa da se ne matram z vsakim posebej me zanima ali se da kako to rešiti, imena listov pa bi morala biti po dnevih, se pravi prvi naprimer ponedeljek 1.6., drugi torek 2.6. in tako do konca meseca. Imam pa še en problem, kako bi se naprimer v celici A1 avtomatsko skopiralo ime lista. Hvala, Roman.

[admin]

Spodaj imate VBA proceduro, ki bo naredila, tisto kar želite:

Koda: Izberi vse

'
'  www.matjazev.net
'  maj 20098
'
Sub kopirajList()
    Dim danVmesecu As Date: danVmesecu = DateSerial(2009, 3, 10)
    
    Dim naslednji As Date: naslednji = danVmesecu
    While (Month(naslednji) = Month(danVmesecu))
        ActiveSheet.Copy after:=ActiveSheet
        ActiveSheet.Name = Format(naslednji, "dddd dd.mm.yyyy")
        naslednji = naslednji + 1
    Wend
End Sub

• Popravite datum v prvi vrstici makra (v DateSerial zapišite najprej leto, nato mesec in nato dan - trenutno je vnesen 10.marec.2009)
• Postavite se na list, ki ga želite kopirati in izvedie makro
• Makro vam bo kopiral list za vsak dan v izbranem mesecu, do konca meseca.

[direndaj]

Še enkrat hvala, deluje.

[kljuka13]

Napačna tema. Se opravičujem