checkboxlu kodumda endsub da hata veriyor hatam nerede

[orcunerkek54]

sayfaya kayıt yaptırdığım kodun başına anladığım kadarıyla checkbox onay kodu koydum ama end sub da hata veriyor kodlarımı incelermisiniz

Dim ilk As Integer

Private Sub CommandButton1_Click()
'sayfa1 için çek
If CheckBox1.Value = True Then
MsgBox "Kayıt İşlemleri 1.Sayfaya yapılacaktır."

Sheets("Sayfa1").Select
Range("A3").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A3").Value = Empty Then
Range("A3").Value = 1
Range("A3").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
'TÜM KAYITLAR GENEL ANA SAYFA (SAYFA1)
say = WorksheetFunction.CountA(Sayfa1.[B1:B65536]) 'C:alfabenin 3.harfi
ActiveCell.Offset(0, 1) = ComboBox1.Value 'PLAKA
ActiveCell.Offset(0, 2) = TextBox1.Value 'ARACIN CİNSİ
ActiveCell.Offset(0, 3) = TextBox2.Value 'TARİH
ActiveCell.Offset(0, 4) = ComboBox2.Value 'ADRES
ActiveCell.Offset(0, 5) = TextBox3.Value 'TELNO
ActiveCell.Offset(0, 6) = TextBox4.Value 'YAÞI
MsgBox "BİLGİLER KAYDEDİLDİ"

'sayfa2 için çek
If CheckBox2.Value = True Then
MsgBox "Kayıt İşlemleri 2.Sayfaya yapılacaktır."
Sheets("Sayfa2").Select

Sheets("SAYFA2").Select
Range("A3").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A3").Value = Empty Then
Range("A3").Value = 1
Range("A3").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
'TÜM KAYITLAR GENEL ANA SAYFA (SAYFA2)
say = WorksheetFunction.CountA(Sayfa2.[B1:B65536]) 'C:alfabenin 3.harfi
ActiveCell.Offset(0, 1) = ComboBox1.Value 'PLAKA
ActiveCell.Offset(0, 2) = TextBox1.Value 'ARACIN CİNSİ
ActiveCell.Offset(0, 3) = TextBox2.Value 'TARİH
MsgBox "BİLGİLER KAYDEDİLDİ"

End If

End Sub

 

[orcunerkek54]

user form1 üzerinde yazıyorum kodlarımı teşekkürler

 

[Levent Menteşoğlu]

end if satırlarını kontrol edin eksik olması bu hatayı verecektir.

 

[orcunerkek54]

iyi akşamlar end if leri tamamladığıma inanıyorum ancak checkboxları seçsem dahi değişen birşey yok gene tüm sayfaları kaydediyor. bu konuda yardımcı olurmusunuz.checkboxsu seçtiğimde istediğim sayfalara nasıl kaydede bilirim. :düsün: