• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

kaydet hatası

H

honestguy25

Katılım
25 Nisan 2008
Mesajlar
151
Excel Vers. ve Dili
excel 2003 türkçe
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
 
sbs isminde çalışma sayfanız yok.:cool:
 
sbs isminde çalışma sayfam var zaten once sayfayı oluşturmuştum.
 
acaba son satırı bulup veri aktarması ıçın başka bır kod varmı? (end1xup) dada hata verıyor
 
tekrar baktımda cant find procekt or library diyor ama benim oyle bır sheetsim var
 
Peki sbs sayfanızda hiç veri var mı ? Veya dosyanızı ekleyebilirsiniz.
 
userform2de buton bu buton çalışıyordu fakat userform 4 ude yaptım sonra o da çalışmadı userform2 dekıde çalışmadı
 
Değişkenlrinizi tanıtınız.
Userform4'ü çalıştırınız.
Dosya ekte.:cool:
 
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.
 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst