kopyalanan sayfaların isimlerini değiştirme

[rastbin]

merhabalar,
elimde xxx.001 adlı bir sayfam var.for döngüsünü kullanarak istediğim kadar sayfayı elde edebiliyorum.fakat sayfaların isimleri normal olarak şu şekilde oluyor.
xxx.001(1),xxx.001(2)

ben bu şekilde değilde şu şekilde istiyorum.

xxx.002,xxx.003.......xxx.010,xxx.011........,xxx.100....

3 basamaklı sayılarda son buluyor bu sayfalarım.nasıl yapabilirim acaba.

 

[PLİNT]

Merhaba
"xxx.002" sayfanızın olmadığını varsayarak
Ek dosyadaki gibi denermisiniz?

https://drive.google.com/open?id=1GqOStdDA5T7zoDH3D-P7wxSYEnWRXPwD

[SIZE="2"]Private Sub CommandButton1_Click()
For a = 1 To 10
b = Sheets("xxx.001").Name
c = Format(Split(b, ".")(1) + a, "00#")
Sheets("xxx.001").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Split(b, ".")(0) & "." & c
Next
End Sub [/SIZE]

 

[Haluk]

Başka bir alternatif;

Sub Test()
    For i = 1 To 150
        Sheets("XXX.001").Copy After:=Sheets(Sheets.Count)
        N = Format(i + 1, "000")
        ActiveSheet.Name = "XXX." & N
    Next
End Sub

 

[rastbin]

Merhaba
"xxx.002" sayfanızın olmadığını varsayarak
Ek dosyadaki gibi denermisiniz?

https://drive.google.com/open?id=1GqOStdDA5T7zoDH3D-P7wxSYEnWRXPwD

[SIZE="2"]Private Sub CommandButton1_Click()
For a = 1 To 10
b = Sheets("xxx.001").Name
c = Format(Split(b, ".")(1) + a, "00#")
Sheets("xxx.001").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Split(b, ".")(0) & "." & c
Next
End Sub [/SIZE]

teşekkür ederim önem verdiğiniz için.
c = Format(Split(b, ".")(1) + a, "00#")
bu kodda hata veriyor.

 

[Haluk]

Bir de benim kodu deneyin isterseniz ....

.

 

[rastbin]

Başka bir alternatif;

Sub Test()
    For i = 1 To 150
        Sheets("XXX.001").Copy After:=Sheets(Sheets.Count)
        N = Format(i + 1, "000")
        ActiveSheet.Name = "XXX." & N
    Next
End Sub

ikinizede çok çok teşekkür ederim.aradığım buydu.hallettim.

çok teşekkür ederim gerçektende ikinize.başarılar.