CheckBox ile ilgili yardım.

[tekkral.cihan]

CheckBox tıkladığımda E7 hücresinden E46 hücresine kadar 1 rakamını yazdıra bilirmiyiz yardımcı olursanız sevinirim

 

[Saban Sertkaya]

if checkbox1 = true then
For a = 7 to 46
Cells(a,5) = 1
Next a
End if

 

[Haluk]

Seçiliyken "1", değilken "0" yazmak için de Şaban Beyin kodunda şöyle ufak bir değişiklik uygun olabilir ...

    For a = 7 To 46
        Cells(a, 5) = Abs(CheckBox1 + 0)
    Next a

 

[Orion1]

Alternatif.
Kodlar checkboxın click olayına yazıldı.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Range("E7:E46").Value = 1
If CheckBox1.Value = False Then Range("E7:E46").Value = 0
End Sub

 

[Haluk]

Ben Şaban Beyin kodunu esas almıştım.

İşin şovunu yapacaksak, bu daha kısa çözüm olur ...

Private Sub CheckBox1_Click()
    Range("E7:E46").Value = Abs(CheckBox1)
End Sub

 

[Orion1]

Ben Şaban Beyin kodunu esas almıştım.

İşin şovunu yapacaksak, bu daha kısa çözüm olur ...

Private Sub CheckBox1_Click()
    Range("E7:E46").Value = Abs(CheckBox1)
End Sub

Estafurullah hocam.
Siz daha iyisini bilirsiniz.

 

[Haluk]

Evren Bey;

Benim 3. mesajı yazarken amacım; Şaban Beyin 2. mesajındaki koda ufak bir ilave yaparak, orjinal soruyu soran arkadaşın daha sonra gelip de .... "Peki .... CheckBox seçili olmadığında bu kez 1 yerine 0 yazabilirmiyiz?" ihtimaline karşılık, Şaban Beyi de kırmayacak şekilde bir cevap yazmaktı.

Ben Excel'i kimseden daha iyi bildiğimi bugüne kadar iddaa etmedim, zaten değilim de .....

Sadece, bana göre çözüme kavuşturulmuş bir konuda kimseye atıfta bulunulmadan yazılmış olan mesajınıza bir refleks ile yazdım 5. mesajı.

Eğer benim 3. mesajımdan sonra, soruyu soran arkadaş herhangi bir düzeltme veya ilave istemiş olsaydı o zaman bu iilave isteğe cevap yazmak herkesin kendi bileceği bir şey olacaktı.

Umarım yazarak kendimi ifade edebilmişimdir ..... yazdığım kodlarda bile, anlatmak bana zor geldiği için veya anlatmaya kalktığımda anlaşılamadığım için mesajlarımın altındaki "imza" metnini kullanıyorum.

 

[Orion1]

Anladım ,hocam.
Bir yanlışlık yaptıysam affola.
Sizden çok şey öğrendim bu forumda.
Halada öğrenmeye devam ediyorum.
Yazdığınız son kodu arşivime aldım.
İyi geceler.

 

[Haluk]

Evren Bey, benden de size sevgi ve saygılar ...

.

 

[Orion1]

Evren Bey, benden de size sevgi ve saygılar ...

.

Bilmukabele hocam.

 

[Saban Sertkaya]

Haluk Bey, bu foruma ilk geldiğimde sizin bazı kodlarınızı görmüştüm ve HAYRAN kalmıştım (ki hala hayranım) Sizin kodlarınızı gördükçe ağzım açık kalıyor doğrusu

Ben işçi bir vatandaşım ve işyerimde Excel'i doğru dürüst kullanmıyorum bile. Bir merakla başladığım ve çoğu zaman sabahlara kadar takıldığım bu forumda özellikle Sizi, Korhan Bey'i, Mod.Ömer Bey'i ve şu an foruma devam eden veya etmeyen bir kaç uzman arkadaşın yazdıkları kodları gördüğümde, bu konudaki cahilliğimin sınırsızlığını gördüm.

Maalesef Excel'i çok aktif kullanmadığımızdan da kodlama bilgimiz ve merakımız bir yerde tıkandı kaldı.

Diyeceğim o ki,
Keşke imkanlar farklı olsaydı da, en azından sizlerin bilgisinin yarısı kadar bilgiye sahip olabilseydim.
Buradan tüm Üstad'lara sevgi ve saygılarımı arz ederim.

 

[Haluk]

Şaban Bey, nazik mesajınız için ben de size teşekkür ederim.

Selam ve saygılar.

.

 

[rekormuhendislik]

Arkadaşlar kodum bu yapamadım. ama anlatayım.
CheckBox'ları seçtiğimde istediğim alana 1 yazdırmak istiyorum. seçili değilse hiç birşey yazmasın.
yazılması gereken alanı kodladım ama "1" yazdırmayı nasıl yapacağımı çözemedim.

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Sheets("GAZ_AÇILIMI").Select

b = WorksheetFunction.CountA(Sheets("GAZ_AÇILIMI").Range("A:A"))
Sheets("GAZ_AÇILIMI").Range("a" & b + 1).Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 2) = TextBox3.Value
ActiveCell.Offset(0, 3) = TextBox4.Value
ActiveCell.Offset(0, 4) = TextBox5.Value
ActiveCell.Offset(0, 5) = TextBox6.Value
ActiveCell.Offset(0, 12) = TextBox7.Value
ActiveCell.Offset(0, 13) = TextBox8.Value
ActiveCell.Offset(0, 6) = ComboBox1.Value
ActiveCell.Offset(0, 7) = ComboBox2.Value

ActiveCell.Offset(0, 8) = CheckBox1.Value 'EĞER SEÇİLİ İSE BULUNDUĞU ALANA 1 YAZMASINI İSTİYORUM.
ActiveCell.Offset(0, 9) = CheckBox2.Value ' SEÇİLİ DEĞİLSE BİRŞEY YAZMASIN. DA YAZDIĞI ÖNEMLİ DEĞİL
ActiveCell.Offset(0, 10) = CheckBox3.Value
ActiveCell.Offset(0, 11) = CheckBox4.Value

MsgBox "Verileriniz Kaydedildi. Form boşaltılıyor "
For i = 2 To 7
Me.Controls("textbox" & i) = ""
Next i
TextBox8 = ""
ComboBox1.Value = ""
ComboBox2.Value = ""


ThisWorkbook.Save
UserForm_Initialize
Application.DisplayAlerts = True
End Sub

Yardımcı olursanız mutlu olurum.

 

[Orion1]

Seçili ise A1 hücresine 1 yazdırıyor.

If Me.CheckBox1.Value = True Then Range("A1").Value = 1

 

[rekormuhendislik]

Seçili ise A1 hücresine 1 yazdırıyor.

If Me.CheckBox1.Value = True Then Range("A1").Value = 1

bulunan sayfada 8. satıra yazdırmak istiyorum. a1'den ziyade

onu nasıl yapmalıyım. aşağıda ki kod' a nasıl entegre edebilirim.
ActiveCell.Offset(0, 8) = CheckBox1.Value

 

[Saban Sertkaya]

Bu soru askıda kalmış.

if checkbox1.value = true then activecell.offset(0,8).value = 1