CheckBox kaydetme..??

[kadirdaylight]

Merhaba arkadaşlar benim bi sorum olacak..yapmış olduğum userformda epey chekbox bulunuyor onları tiklediğimde keydetmek için yazmam gereken kod nedir?

 

[Orion1]

if checkbox1.value=true then range("A1").value=textbox1.text

 

[kadirdaylight]

Hocam teşekkür ederim işe yarıyor ancak ben farklı bi sayfaya birden fazla kayıt yapıcam onun için kodu deiştiremedim acaba farklı bi kodu mu var?

 

[Orion1]

Hocam teşekkür ederim işe yarıyor ancak ben farklı bi sayfaya birden fazla kayıt yapıcam onun için kodu deiştiremedim acaba farklı bi kodu mu var?

nasıl yani ,mesela ,Çekbox1'in karşısında Textbox1'mi var?

 

[Orion1]

Aslında bir tane küçük bir örnek dosya yollasanız daha iyi olur.

 

[kadirdaylight]

Ewet aynen öle ya ben formu yollasam bi kaç yapamadığım var yardımcı olurmusunuz?

http://rapidshare.com/files/270303549/Excel__al__305___351_mas__305_-5.xls.html

NOT: şifre: pc'nin sistem saati (23:05) gibi

 

[kadirdaylight]

Numune saatleri içerisinde ki 07:00,11:00,15:00 vs.. formlarının chexbox larının tiklendiğinde ve tamam a basınca DATA veya Sayfa1 e kaydedilmesini istiyorum. Bide tiklenince renklendirdim ama tiki kaldırınca renkler kaybolmuyor..

 

[Orion1]

sadece bir formda çekbox var ve karşılarında textbox var.07:00 butonnda yani userform8'de var.Diğerlerinde ise sadece çekboxlar var.
Bu userformdaki textboxlar nereye kaydedilecek.Hangi sütunlara kaydedilecek.Ve sütun silinip tekrarmı yazılacak yoksa herdefasına bir alt satıramı yazılacak?Hangi sayfaya yazılacak?

 

[kadirdaylight]

şimdilik sadece 07:00 için yapsak ben diğerleri için uyarlarım.. 07 içerisindeki textboxları chekboxlarına tıklanınca ve kaydete basınca Sayfa1 e kaydetsin.1 satır 2. satır 3.satır diye devam etsin herdefasında yeni kaydı bi sonraki satıra kaydetsin yani

 

[kadirdaylight]

yardım edebilicek kimse yokmu??

 

[Orion1]

Sadece 7:00 için yaptım.
Burada çeknboxların ve textboxların taglarına değer verdim.ve bu değere göre listeledim.taglardaki değerlerin sağ tarfındaki değer o nesnebnin hangi sütuna kaydolacağını gösteriyor.Sol tarafındaki ise eşitleme için(textboxla çekboxı) kullandım.Veriler sayfa 1 e kaydediliyor.Ayrıca çekbox3 ün renklendirme olayını yaptım .Diğer çekbokşarın kinide siz yapınız.
Dosya ektedir.Bana siz sadece 7:00 için yapın demiştiniz.Diğerlerini ben yaparım demiştiniz.Ben yaptım.Bundan sonrası için iş size ait .Kolay gelsin.
Dosya ektedir.

Private Sub CommandButton1_Click()
Dim ckbox As Control, txt As Control
For Each ckbox In Controls
    If TypeName(ckbox) = "CheckBox" Then
        For Each txt In Controls
            If TypeName(txt) = "TextBox" Then
                If ckbox.Tag = txt.Tag And ckbox.Value = True Then
                    sat = Sheets("Sayfa1").Cells(65536, CInt(Right(ckbox.Tag, 1))).End(xlUp).Row + 1
                    Sheets("Sayfa1").Cells(sat, CInt(Right(ckbox.Tag, 1))) = txt.Value
                    Exit For
                End If
            End If
        Next
    End If
Next
End Sub

 

[kadirdaylight]

teşekkür ederim ama dosya açılmıyor g2 ye basınca )

 

[kadirdaylight]

önce şifrenin kodlarında hata veriyor onu sildim şimdide tarhi ve saatte hata veriyor.. onuda sildim bu seferde yazdığınız kodda hata veriyor :s

 

[Orion1]

önce şifrenin kodlarında hata veriyor onu sildim şimdide tarhi ve saatte hata veriyor.. onuda sildim bu seferde yazdığınız kodda hata veriyor :s

Şifre de ve tarih ve saatte hata vermesi ile benim yaptığım kodlarla bir ilgisi yok.Ben onlara bir şey yazmadım.Onlar tamamen sizin yazdığınız kodlar.
Benim kodlarımda hata verdiğini söylemişsiniz.Nerede ,hangi satırda hata veriyor.Onu söylememişsiniz.Ayrıca ben kodları denedim.Gayet güzel çalışıyordu.Siz benim yolladığım dosyayımı çalıştırdınız.Yoksa kodları kopyalayıp başka bir dosyadamı çalıştırdınız.Eğer öyle yaptıysanız ben ilk başta açıklamıştım.Nesnelerin taglarına bakınız diye.Nesnelerin tagları ayarlanacak.kodlar ona göre yazılacak.Eğer kodları başka bir dosyaya yapıştırdıysanız ve nesnelerin taglarını uygun şekilde ayarlamadıysanız ,kodların hata verecektir.

 

[Necdet]

Merhaba,

Bende çalıştı bir hata almadım.

 

[kadirdaylight]

Evren bey ben sizin yolladığınız dosyayı açmaya çalıştığımda GenelKimya2'ye basınca direk Time satırında hata veriyor.. Tag lardan bahsetmişsiniz ben bu işte yeniyim size yollamış olduğum dosyayı sadece 4 günde ve bu siteyi takip ederek yaptım yani hangi nesnelerin tag'ından bahsettiğinizi ve deiştirmem gereken yerleri anlayamadım. Dosyamın son halini ekliyorum siz bunun üzerinde direk bi deişiklik yaparsanız sevinirim.


NOT: kayıt işlemini data ve data2 olarak ayarladım ve bunlardan data sayfasını listbox da göstermesini silme işleminide datada yapmasını istiyorum. data2 de aynı kayıtlar olucak ama silinmicek onlar hep kalıcak bi nevi geriye dönük takip amaçlı.

http://rapidshare.com/files/270483533/Excel__al__305___351_mas__305_-6.xls.html

 

[kadirdaylight]

çekbox ların kayıt yeri F,G,H,.... şeklinde yanyana sıralanacak şekilde kayıt etmek istiyorum böylece takibi daha kolay olacak

 

[Orion1]

Ben genel kimya2 butonuna bir kod yazmadım ki benim yazdığım kodlardan kaynaklanan bir hata oluşsun.Ona yazmışsanız bile kodu siz yazmışsınız.Ne yazdığınızıda ancak siz bilirsiniz.Ben o butonun içini açıp bakmadım bile.Ben VBE'yi açıp direk oradan userformu çalıştırdım.Bir hata vermiyor çalınca kodlar.Nitekim necdet hocamızda denemiş.Ve buraya mesaj atmış.Hata vermiyor diye.VBE'yi açın ve userform8'i çalıştırın.Bakalım hata verecekmi?
Diğerler hatalar içinde yapmaya çalışın yapamıyporsanız bununla ilgili bir başlık açın ve sorunuzu sorun.Bende dahil olmak üzere cevaplandırmaya çalışalım.Ama buradaki konumuz bu değildi.Çekboxlarıın tikl erine göre textboxları sayfaya kaydetmekti.Sanki bu işelmi yapamımımşım gibi oluyor böyle konuşursanız.Konuları karıştırmayaylıjm.O konu başka bu konu başka .Ben konudaki sorduğunuz soruyu cevaplandırdım.Diğerlerinide ben yaparımn demiştiniz.Buyurun o zaman.Ayrıca benim yazdığım kodlar biraz size zor gelebilir.İllada bu çözümü isterseniz zorlanacaksınzı diğer işlemler için.
Ama daha basitide yazılabilir ama oda alt alta bişr sürü satır yapar.Benim yaptığım en kısa yoldan yazdırmak.sizin için daha basitini ben bir tanesini yapayım ,sizde diğerlerini ona göre yapın.Gerçi bir örnekte vermiştim taa ilk başlardan size .O örnek size referanas olabilirdi aslında.Nesnelerin taglarını sormuşsunuz.Nesneye tıklayın sonrada propertiesten tag satırnı bulun.Orada gözükür benim verdiğim taglar.Şimdi ben size daha basit ama daha uzun olacak olan kodları vericem .Onu bu mesajımın altındaki yeni mesaja yazıcam.Ona göre siz yapın.

 

[kadirdaylight]

Evren bey kusura bakmayın ben sizin yardım etmediğinizi yada dosyayı yapmadığınızı iddaa etmedim, sizinde sölemiş olduğunuz gibi benim anlamamın zor olacağı kodlar yazmışsınız sanırım ve ben o yüzden çalıştıramıyorum. sizi yoruyorum kusura bakmayın artık

 

[Orion1]

Şimdi bu alta verdiğim kodlar daha basit olanıdır.Biraz uzun olacak ama ilk başta sizin yapabileceğiniz şekildedir.
Bunlar ilk bölümdeki çekboxları kontrol eder ve tik varsa onu a sütununa alt alta atar.
B sütunu içinde sat değişkenini tekrar yazıp ayni işlemleri onun için yapmalısınız.
Ben textbox1 ve textbox2 için olanları yaptım,aşağıda.Sizde diğerlerini yapınız.

sat = Cells(65536, "A").End(xlUp).Row + 1
If CheckBox3.Value = True Then
    Cells(sat, "A").Value = TextBox1.Text
    sat = sat + 1
End If
If CheckBox4.Value = True Then
    Cells(sat, "A").Value = TextBox2.Text
    sat = sat + 1
End If