Sayfa Kontrolü yapmak

[ozdogan]

Arkadaşlar mrb.

Şu kodlarla Excelde yeni bir sayfa açıyorum. Sayfa Adım aynı zamanda SDATA adlı sayfayada ekleniyor.

Dim sirasi As Integer
isimgir = TextBox3.Text
Sheets.Add , After:=Sheets(Sheets.Count)
ActiveSheet.Name = isimgir
sirasi = Application.CountA(Sheets("SDATA").Columns("v")) + 1
Sheets("SDATA").Cells(sirasi, 22) = TextBox3.Text
Sheets("YAZDIR").Select
Cells.Select
Selection.Copy
Sheets(TextBox3.Text).Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select

Peki nasıl bir kodla Sayfa kontrolü yapabilirim. Yani Aynı sayfadan bi kezdaha oluşturulmayacak varsa böyle bir sayfa uyarı verecek
MsgBox"Böyle Bir sayfa Mevcut",,"Uyarı"

Denemeler yaptım ama böyle bir kodu yazamadım. Textbox3.text'i SDATA v1:v100 aralığındaki sayfa adlarının kontrolüne eşleştiremedim.

 

[Recep İpek]

Sayın ozdogan,

isimgir = TextBox3.Text
satırından sonra

[vb:1:ec273d8826]
For i = 1 To Sheets.Count
If Sheets(i).Name = isimgir Then
MsgBox "Aynı isimde sayfa var"
Exit Sub
End If
Next i
[/vb:1:ec273d8826]

 

[Mahmut Bayram]

Şunu bir dener misin. Kendine uyarla
[vb:1:45632c3d09]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[/vb:1:45632c3d09]

 

[ozdogan]

Çok Teşekkür ediyorum. Gerçekten güzel Oldu.