Eğer sayfa varsa atla (ÇÖZÜLDÜ)

[TanerSaydam]

Merhaba ;

Sayfa 1'de I Karesinde değerler var. Sayfa1'e koyduğum bir tuşla eğer H karesinde "X" işareti var ve I karesi de doluysa, I karesinin içeriğini sayfa adı alarak sayfa oluşturuyor. Ayrıca bir tane CheckBox'um var ve eğer işaretliyse, ona göre bir sayfa oluşuyor. İstediğim şey mükerrer sayfa oluşmasını engellemek ve uyarı mesajı göstermek.

Aşağıdaki kod ile bir şeyler denedim ama başaramadım. Sayfa olmamasına rağmen uyarı verdi ya da uyarı vermesine rağmen sayfayı oluşturdu.

'For i = 1 To Worksheets.Count
'If Worksheets(i).Name =

Sayfa ekleme kodum aşağıda.
Şimdiden teşekkürler.

Sub SAYFA_OLUSTUR()
Dim mesaj As VbMsgBoxResult
Dim SAYFA_ADI As Variant, ilk As Variant, son As Variant
Dim v As Variant, a As Variant, b As Variant, ara As Variant
Dim s_ilk As Variant, s_son As Variant, mesaj2 As VbMsgBoxStyle
Dim y As Integer, c As Variant, d As Variant, k As Variant
Dim x As Variant, son2 As Integer, i As Integer
Dim SAYFA As Worksheet
mesaj = MsgBox("Sayfa oluşturmak istiyor musunuz?", vbYesNo + vbQuestion, "SAYFA OLUŞTUR")

Select Case mesaj

Case Is = vbYes
Application.ScreenUpdating = False
On Error Resume Next

ilk = 2
son = Range("J" & Rows.Count).End(4).Row
    
a = Worksheets.Count
    
If Not sayfa1.CheckBox1 = True Then GoTo atla
'For i = 1 To Worksheets.Count
'If Worksheets(i).Name = "İhraç-2017-" & Range("M2").Value & " VD" Then
'mesaj2 = MsgBox("İhraç-2017-" & Range("M2").Value & " VD sayfası zaten var!", vbOKOnly + vbExclamation, "HATA!")
'Next i
'Else
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "İhraç-2017-" & Range("M2").Value & " VD"
Call İhr_Dönem_Sayfası_Oluşturma
'End If



atla:
Set ara = Range("H2:H65536").Find("X", , xlValues, xlWhole)
If ara Is Nothing Then GoTo atla3
atla3:
Set ara = Range("H1:H65536").Find("x", , xlValues, xlWhole)
If ara Is Nothing Then
mesaj2 = MsgBox("Oluşturulacak sayfa işaretlenmemiş! İşaretleyip tekrar deneyin.", vbOKOnly + vbExclamation, "HATA!")
Exit Sub
End If

For v = 2 To son
If Range("H" & ilk).Value = "x" Then
Range("H" & ilk).Value = "X"
End If
    For y = 2 To son
    If Not Range("H" & ilk).Value = "X" Then GoTo atla2
    SAYFA_ADI = Range("L" & ilk).Value
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = SAYFA_ADI & "_İhr"
        Call İhracat_Sayfa_Oluştur
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = SAYFA_ADI & "_Gümrük"
        Call Gümrük_Sayfası_Oluştur
atla2:
ilk = ilk + 1
Next y
Next v

If Worksheets.Count > a Then
mesaj = MsgBox("Sayfa oluşturma başarıyla tamamlanmıştır", vbOKOnly + vbInformation, "SAYFA OLUŞTURMA")
Else
mesaj = MsgBox("Sayfa oluşturma işlemi iptal edilmiştir", vbOKOnly + vbExclamation, "HATA!")
End If
sayfa1.Select
Call ListBox_Güncelle

Case Is = vbNo

End Select
End Sub

 

[TanerSaydam]

Araştırırken araştırırken sonunda ihtiyacım olan kodu buldum.

Aşağıda kod ile sorunumu çözdüm. Başka araştıranlar için de buraya yazıyorum.

Modül oluşturup bu kodu oraya yazıyoruz.

Function SayfaVar(f As String) As Boolean
  Application.Volatile
  On Error Resume Next
  t = Sheets(UCase(f)).[A1]
  If Err = 0 Then SayfaVar = True Else SayfaVar = False
End Function

Sonra eğer formülle yapmak istersek, A1 hücresine sayfa adını yazıp B1 hücresine şu formülü yazıyoruz

=SAYFAVAR(A1)

Eğer o sayfa varsa B1=DOĞRU, yoksa B1=FALSE olur.

Makro ile yapmak istersek ben True - False özelliğini kullandım.

Öncelikle sayfa ekleme makrosuna ekleyeceğim sayfanın adını sayfa1'de herhangi bir yere yazdırdım. Sonra yan hücresine SAYFAVAR formülü uygulattım ve EĞER makrosuyla işlevi sorgulattım. Kodum aşağıda. Umarım birilerinin işine yarar.

    ad_yaz = Range("A" & Rows.Count).End(xlUp).Row
    SAYFA_ADI = Range("L" & ilk).Value
    Range("A" & ad_yaz + 1).Value = SAYFA_ADI & "_İhr"
    Range("B" & ad_yaz + 1).Value = "=SAYFAVAR(A" & ad_yaz + 1 & ")"
    If Range("B" & ad_yaz + 1) = True Then
    mesaj2 = MsgBox(SAYFA_ADI & "_İhr VD Sayfası Zaten Var!", vbOKOnly + vbExclamation, "UYARI!")
    GoTo atla2
    Else
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = SAYFA_ADI & "_İhr"
        Call İhracat_Sayfa_Oluştur
    End If