Aynı sayfa ismi varsa uyarsın?

[redheat]

Merhaba arkadaşlar,

küöük bi sayfa ekleme makrosu yaptım, sayfa eklerken eğer açtığım sayfa daha önceden varsa yani aynı isimde, uyarı vermesini nasıl yapabilirim

 

[İhsan Tank]

Private Sub CommandButton1_Click()
If Not TextBox3.Text = Empty Then
For i = 1 To Worksheets.Count
If Sheets(i).Name = TextBox3.Text Then
MsgBox "Bu isimli bir sayfa mevcut..... !"
Exit Sub
End If
Next
Set NewSh = Worksheets.Add(After:=Sheets(Sheets.Count))
NewSh.Name = TextBox3.Text
End If
Set NewSh = Nothing
End Sub

bu kodu denermisiniz bu kod daha önce yayınlanmış idi

 

[mustafaine1]

bende kaydettim tesekkurler..

 

[redheat]

tşe ederim, yalnız öyle bişii oluyor.. textbox1 de yazan isimde bi sayfa oluşturuyor ama bunun yanında da normal bi sayfadaha açıyor??? kodun bir kısmını yazıyorum..


Private Sub CommandButton1_Click()
Range("b13").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

If Range("b13").Value = "" Then
Range("b13").Value = 1
Range("b13").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If

If Not TextBox1.Text = Empty Then
For i = 1 To Worksheets.Count
If Sheets(i).Name = TextBox1.Text Then
MsgBox "Bu isimli bir sayfa mevcut..... !"
Exit Sub
End If
Next
Set NewSh = Worksheets.Add(After:=Sheets(Sheets.Count))
NewSh.Name = TextBox1.Text
End If
Set NewSh = Nothing


ActiveCell.Offset(0, 1) = TextBox2.Text
ActiveCell.Offset(0, 2) = ThisWorkbook.ActiveSheet.Range("h55").Value


Worksheets.Add.Move After:=Worksheets(Worksheets.Count)

 

[Skorpiyon]

Sayın redheat,

Aşağıdaki satır yeni bir çalışma sayfası eklemektedir. Ve kodlarınız arasında 2 kez kullanılmaktadır.

Worksheets.Add

En son satırı kaldırarak bir deneyin.

 

[redheat]

tmmdır tşkler