Asagidaki kodu yazdim. butona makroyu atadım. calistirdigimda once "BOŞ SAYFA1", tekrar butana bastığımda "BOŞ SAYFA0" geliyor. 3. basışta ise 400 hatasını veriyor. istedigim ise eğer sayfa mevcutsa sayaç şeklinde numaratörün artması... Tesekkurler...
Sub ser()
Dim i As Integer
i = 0
Dim Sayfa As Worksheet
Set Sayfa = ThisWorkbook.Worksheets.Add
Sayfa.Name = "BOŞ SAYFA" & i
For a = 1 To Sheets.Count
If Sheets(a).Name = Sayfa.Name Then Sayfa.Name = "BOŞ SAYFA" & i + 1 Else GoTo 20
Next a
20 Exit Sub
End Sub
Sub ser()
Dim i As Integer
i = 0
Dim Sayfa As Worksheet
Set Sayfa = ThisWorkbook.Worksheets.Add
Sayfa.Name = "BOŞ SAYFA" & i
For a = 1 To Sheets.Count
If Sheets(a).Name = Sayfa.Name Then Sayfa.Name = "BOŞ SAYFA" & i + 1 Else GoTo 20
Next a
20 Exit Sub
End Sub