Kitaptaki sayfaların kontrolü

[yavuzoz]

arkadaşlar giriş sayfasındaki bir listeden girdinin ilk üç harfine göre yeni sayfa açtırmak istiyorum, ancak bazan ilk üç harf birden fazla olabiliyor ve çakışma meydana geliyor, makronun bunu kontrol ederek eğer o sayfa varsa bu sefer ilk dört harfi almasını nasıl sağlayabilirim..yani bir nevi error oluşmadan sayfa kontrolunü nasıl yapabiliriz? Yanıt için şimdiden teşekkürler...

 

[hamitcan]

Sub SayfaAc()
    c = 3
10
    If c > Len(Sheets("Giris").[a1]) Then Exit Sub
    If SayfaVarmi(Left(Sheets("Giris").[a1], c)) = "Var" Then
        c = c + 1
        GoTo 10
    Else
        Sheets.Add
        ActiveSheet.Name = Left(Sheets("Giris").[a1], c)
        Sheets("Giris").Activate
    End If
End Sub
Function SayfaVarmi(SayfaIsmi As Variant)
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> SayfaIsmi Then
          d = d + 1
        End If
    Next
    If d <> Sheets.Count Then SayfaVarmi = "Yok": SayfaVarmi = "Var"
End Function
Sub SayfaSil()
    Application.DisplayAlerts = False
    For i = Sheets.Count To 1 Step -1
        If Sheets(i).Name <> "Giris" Then Sheets(i).Delete
    Next
    Application.DisplayAlerts = True
End Sub

 

[yavuzoz]

teşekkür ederim dostum işe yaradı sağolasın...

 

[yavuzoz]

Sağol dostum çok teşekkürler........

 

[yavuzoz]

repeat için prd. netde bir tutukluk oldu yazı çıkmadı zannettim...