kaydet hatası

[honestguy25]

Arkadaşlar kaydet tuşuna bastıımda private sub boumu sarı hale gelıyor son_dolu_satir kısmı sarı ve hata veriyor neden acaba? çözemedim bir turlu fikri olan varmı ? nerde hata yaptım bulamıyourm



Private Sub CommandButton4_Click()
Son_Dolu_Satir = Sheets("sbs").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
With Sheets("sbs")
.Range("A" & Bos_Satir).Value = Application.WorksheetFunction.Max(Sheets("sbs").Range("A:A")) + 1
Sheets("SBS").Range("c" & Bos_Satir).Value = TextBox1 'İSim'
Sheets("SBS").Range("d" & Bos_Satir).Value = TextBox2 'soyisim'
Sheets("SBS").Range("b" & Bos_Satir).Value = TextBox3 'DErshane no'
Sheets("SBS").Range("e" & Bos_Satir).Value = TextBox4 'sınav adı'
Sheets("SBS").Range("f" & Bos_Satir).Value = TextBox5 'Sınıfı'
Sheets("SBS").Range("h" & Bos_Satir).Value = TextBox7 'türkçe doğru'
Sheets("SBS").Range("i" & Bos_Satir).Value = TextBox8 'türkçe yanlış'
Sheets("SBS").Range("j" & Bos_Satir).Value = TextBox9 'mat doğru'
Sheets("SBS").Range("k" & Bos_Satir).Value = TextBox10 'mat yanlış'
Sheets("SBS").Range("l" & Bos_Satir).Value = TextBox11 'fen doğru'
Sheets("SBS").Range("m" & Bos_Satir).Value = TextBox12 'fen yanlış'
Sheets("SBS").Range("n" & Bos_Satir).Value = TextBox13 'sosyal doğru'
Sheets("SBS").Range("o" & Bos_Satir).Value = TextBox14 'sos yanlış'
Sheets("SBS").Range("p" & Bos_Satir).Value = TextBox15 'ing doğru'
Sheets("SBS").Range("q" & Bos_Satir).Value = TextBox16 'ing yanlış'
Sheets("SBS").Range("r" & Bos_Satir).Value = TextBox17 'sınav tarihi'
Sheets("SBS").Range("s" & Bos_Satir).Value = TextBox18 '6. sınıf sp'
Sheets("SBS").Range("t" & Bos_Satir).Value = TextBox19 '7.sınıf sp'
Sheets("SBS").Range("u" & Bos_Satir).Value = TextBox20 '8.sınıf sp'
Sheets("SBS").Range("g" & Bos_Satir).Value = ComboBox1 'devre'
MsgBox ("Kaydedildi")
End Sub

 

[Orion1]

sbs isminde çalışma sayfanız yok.

 

[honestguy25]

sbs isminde çalışma sayfam var zaten once sayfayı oluşturmuştum.

 

[honestguy25]

acaba son satırı bulup veri aktarması ıçın başka bır kod varmı? (end1xup) dada hata verıyor

 

[honestguy25]

tekrar baktımda cant find procekt or library diyor ama benim oyle bır sheetsim var

 

[Skorpiyon]

Peki sbs sayfanızda hiç veri var mı ? Veya dosyanızı ekleyebilirsiniz.

 

[Orion1]

tekrar baktımda cant find procekt or library diyor ama benim oyle bır sheetsim var

Sheetiniz varmı ? Eminmisiniz?
Başında veya sonunda boşluk karakteri olmasın sakın!!

 

[honestguy25]

userform2de buton bu buton çalışıyordu fakat userform 4 ude yaptım sonra o da çalışmadı userform2 dekıde çalışmadı

 

[honestguy25]

sanırım şimdi ekleyebıldım pardon

 

[Orion1]

Değişkenlrinizi tanıtınız.
Userform4'ü çalıştırınız.
Dosya ekte.

 

[honestguy25]

teşekkur ederım çalışıyor değişikliğnizi tanıdınız derken ne demek ıstesnız anlayamadım ? bunu eklemışsınız sanırım benim userforum 2 çalışıyordu userforum7 u yapınca ıkısıde çalışmadı bu kod ne anlama gelıyor bılırsem bırdahakı sefere kendım de çözerim sorunu belkı.(Dim Son_Dolu_Satir As Long, bos_satir As Long) bırde kaydedildikten sonra checkboxları boşaltma kodu vardı oda hata verdi sildim şimdi sorun yok. acaba onun ıcın başka bır kod varmıdır? herşey ıcın teşekkurler bu hata aşkımı şevkimi kırmştı forumdan bakarak birşeyler yapmaya çalışıyorum eksik olmayınız.

 

[honestguy25]

userform4 pardon

 

[Orion1]

Userformun General bölümünde Optionexplict satırı nedeniyle Değişkenleri tanıtmanız gerekiyor.Bu satır olmasaydı değişkenleri tanıtmayabilirdiniz.Ama bu severdede tüm değişkenleri variant olarak tanıyıp bellekte dağa fazla yer kaplarlar.