sirkülasyon
Altın Üye
- Katılım
- 10 Temmuz 2012
- Mesajlar
- 2,471
- Excel Vers. ve Dili
- 2021 LTSC TR
Kod:
Private Sub CommandButton1_Click()
Dim i As Integer
If TextBox1.Value = "" Then
MsgBox "Sayfa Adını Yazmadınız.."
Exit Sub
End If
For i = 1 To Worksheets.Count
If Worksheets(i).Name = TextBox1.Value Then
MsgBox "Bu İsimde Bir Sayfa Var.."
Exit Sub
End If
Next i
Sheets("ŞABLON").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = TextBox1.Value
End Sub
Nasıl bir düzenleme yapmam lazım.
Saygılarımla