yazdığım Kodda hata yapıyorum

[sender]

---------------------------------------------------------
Dim bak As Range
Dim say As Integer
Sheets("kullanici").Select
If ActiveSheet.Range("b7") = "" Then
If OptionButton1 = True Then




For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If bak.Value = kullan.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
Next bak
For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(kullan.Value, vbUpperCase) Then
MsgBox "Bu isimde bir kaydınız bulundu"
Exit Sub
End If
Next bak

say = WorksheetFunction.CountA(Range("B1:B65000"))
txtsira5.Value = say

Cells(say + 1, 1).Value = txtsira5.Value
Cells(say + 1, 2).Value = kullan.Value
Cells(say + 1, 3).Value = sifre.Value



MsgBox "Verileriniz Kaydedildi", , "KAYIT"
kullan = ""
sifre = ""


txtsira5.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
Else






For Each bak In Range("e1:e" & WorksheetFunction.CountA(Range("e1:e65000")))
If bak.Value = kullan.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
Next bak
For Each bak In Range("f1:e" & WorksheetFunction.CountA(Range("f1:f65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(kullan.Value, vbUpperCase) Then
MsgBox "Bu isimde bir kaydınız bulundu"
Exit Sub
End If
Next bak

say = WorksheetFunction.CountA(Range("f1:f65000"))
txtsira5.Value = say

Cells(say + 1, 5).Value = txtsira5.Value
Cells(say + 1, 6).Value = kullan.Value
Cells(say + 1, 7).Value = sifre.Value



MsgBox "Verileriniz Kaydedildi", , "KAYIT"
kullan = ""
sifre = ""


txtsira5.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1

Else
MsgBox "Kullanıcı sayınız dolmuştur.", , "uyarı"




End If
End If

End Sub
-------------------------------------------------------------
Arkadaşlar yukardaki kodlarda sınırlı kullancı sayısı yapıyorum. "kullanici" adli sayfmda b7 hücresi boşsa kullanici oluşturmaya devam edilsin yok dolu ise bana kullanıcı sayınıs dolmuştur uyarısı versin. ama son uyrıyı verdireiyorum. hata nerde söyleyebilirmisiniz. Kolay gelsin.

 

[emrexcel123]

kullanıcı sınırlaması

arkadaşım ekte basit bir örnek var acaba istediğim böyle birşey mi...

 

[sender]

Bilgiden kuvvet doğarmıç İki satır kodu acayip işimi gördü Teşekkürler.