Kopyalayıp İsimlendirme

[iplikci_80]

Arkadaşlar mevcut kodu sayfayı tüm şekil ve biçimleri ile olduğu gibi kopyalayıp 01, 02, 03……………31 kadar isimlendirecek şekilde revize etme hususunda yardımlarınızı rica ediyorum.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kod ile yapabilirsiniz.

Sub SayfaCogalt()
    Dim Bak As Integer
    Dim syfAdi As String
    For Bak = 2 To 31
        Worksheets("01").Copy Before:=Sheets(Worksheets.Count)
        syfAdi = IIf(Bak < 10, "0" & Bak, Bak)
        ActiveSheet.Name = syfAdi
    Next
    MsgBox "İşlem tamamlandı."
End Sub

 

[iplikci_80]

Sayın dalgalikur ilginize teşekkür ederim.