inputboxa verilen yanıtı sorgulama

[Enes054]

Merhaba arkadaşlar.
Makro ile öğrenci oluşturma yapıyorum(Her öğrenciye ait iki çalışma sayfası var) fakat input box ile öğrenci adı istediğinde ve cancele tıklandığında öğrenciye ait ilk sayfayı oluşturuyor ve hata veriyor.
Bunu nasıl çözebilirim?

sayfaadi = InputBox("Oluşturulacak Öğrenci Adı Giriniz.", "ÖĞRENCİ OLUŞTURMA", vbYesNo)
If sayfaadi = vbNo Then
If MsgBox("Vazgeçmek istediğinizden emin misiniz?", MsgBoxStyle.YesNo, "ÖĞRENCİ OLUŞTURMA") = MsgBoxResult.Yes Then



ElseIf MsgBox("Vazgeçmek istediğinizden emin misiniz?", MsgBoxStyle.YesNo, "ÖĞRENCİ OLUŞTURMA") = MsgBoxResult.No Then



End If
Else

End If



şöyle birşey denedim ama olmuyor :/

 

[vardar07]

İnputBox tan sonra açılacak sayfa adını kontrol ederseniz daha sağlıklı olur. Örnek dosyanızı içine tam olarak ne yapmak istediğinizi yazarak ekleyin bir bakalım. Dosya ekleme için imza bölümünü okuyun.

 

[Enes054]

İnputBox tan sonra açılacak sayfa adını kontrol ederseniz daha sağlıklı olur. Örnek dosyanızı içine tam olarak ne yapmak istediğinizi yazarak ekleyin bir bakalım. Dosya ekleme için imza bölümünü okuyun.

Dosyayı ekledim.
Yapmak istediğim sayfa1 adlı çalışma sayfasındaki öğrenci oluştur düğmesine tıklandığında eğer öğrenci ismi girilmediyse öğrenci adı girmediniz deyip inputbox sorgusuna geri dönmesi ve cancel e tıklandığında sayfa oluşturmayıp hata vermemesi ve makrodan çıkması.

http://dosya.co/zse0i8zt074l/Yıldız_Akademi_y1.xlsm.html

 

[vardar07]

İnceleyiniz.
Dosyanız.

 

[Enes054]

İnceleyiniz.
Dosyanız.

malesef butona tıklayıp hiçbir isim girmeyip cancele tıkladığımda yine hata veriyor ve sayfa oluşturuyor :/

 

[Enes054]

Konu güncel..

 

[vardar07]

Sadece alttaki kodu değiştirip deneyiniz.

  Sub sayfayap()
    Dim sayfa As String, sayfaadi As Variant
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 sayfaadi = Application.InputBox("Oluşturulacak Öğrenci Adı Giriniz.", "ÖĞRENCİ OLUŞTURMA")
  If sayfaadi <> "" Then
   If sayfaadi = False Then: Exit Sub
Exit Sub
    sayfa = sayfaadi
               If Not varmi(sayfa) Then
                   Sheets.Add After:=Worksheets(Worksheets.Count)
                   ActiveSheet.Name = sayfaadi
                   Sheets.Add After:=Worksheets(Worksheets.Count)
                   ActiveSheet.Name = sayfaadi & " VERİ"
    Set s1 = Sheets(sayfaadi)
   syf = sayfaadi & " VERİ"
   Set s2 = Sheets(syf)
  Sheets("sablon").Range("A1:G30").Copy s1.Range("A1")
  Sheets("sablon").Range("A:A").ColumnWidth = 32.43
  Sheets("sablon1").Range("A1:G443").Copy s2.Range("A1")
  Sheets("sablon1").Range("A:A").ColumnWidth = 32.43
  MsgBox sayfaadi & " Kişiye Ait Sayfa Oluşturuldu.", vbInformation
  Else
  MsgBox sayfaadi & " Kişiye Ait Sayfa Mevcut", vbInformation
  Exit Sub
  End If
  Else
   MsgBox "LÜTFEN GEÇERLİ BİR SAYFA ADI GİRİNİZ.", vbInformation
    End If
  Sheets("Sayfa1").Select
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True
  End Sub