CheckBox Seçimli Hücre Kaydı!

[ocamsul]

Arkadaşlar iyi geceler. Forumda konu başlığım ile ilgili örnekler aradım, ancak sorunumu çözen bir örnek bulamadım. useform üzerinde bir soru var ve bu sorununda 3 farklı cevabı olabilir buna göre soru karşısındaki seçili CheckBox lardan hangisi ise karşılığı olan hücreye aynı kelimeyi yazmasını istiyorum. Yardımlarınızı bekliyorum dostlar.

Arkadaşlar soruna kendi çapımda aşağıdaki gibi bir çözüm buldum, ancak çoklu uygulamar için örneklere açığım.

Private Sub CommandButton1_Click()
    Range("C12,D12,E12") = Empty
    If CheckBox1 Then
        [C12] = CheckBox1.Caption
    End If
    If CheckBox2 Then
        [D12] = CheckBox2.Caption
    End If
    If CheckBox3 Then
        [E12] = CheckBox3.Caption
    End If
End Sub

 

[Levent Menteşoğlu]

Kaydet butonuna aşağıdaki kodu kopyalayarak deneyin.

Private Sub CommandButton1_Click()
For a = 1 To 12 Step 3
c = c + 1
Cells(11 + c, "c") = IIf(Controls("checkbox" & a), "X", "")
Cells(11 + c, "d") = IIf(Controls("checkbox" & a + 1), "X", "")
Cells(11 + c, "e") = IIf(Controls("checkbox" & a + 2), "X", "")
Next
End Sub

 

[ocamsul]

SN: leventm, üsdat; çok teşekkür ederim. Tam istediğim gibi oldu.

 

[ocamsul]

SN: leventm, üsdat; ve arkadaşlar erken davrandım galiba kodları ekli dosyaya uyarladığımda hata veriyor nedeni ne olabilir?

 

[ocamsul]

Arkadaşlar sorun bu sayfa için nedir? inceleme fırsatı olan oldumu acaba?

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi düzenleyin.

Private Sub CommandButton1_Click()
For a = 1 To 48 Step 3
c = c + 1
Cells(24 + c, "c") = IIf(Controls("checkbox" & a), "X", "")
Cells(24 + c, "d") = IIf(Controls("checkbox" & a + 1), "X", "")
Cells(24 + c, "e") = IIf(Controls("checkbox" & a + 2), "X", "")
Next
End Sub

 

[ocamsul]

SN: leventm, üsdat; çok teşekkür ederim.

 

[hsayar]

Hocam IIF nedemktir sormamın sakıncası varmı?

 

[Levent Menteşoğlu]

Hocam IIF nedemktir sormamın sakıncası varmı?

Rica ederim neden sakıncası olsun. iif bir koşul fonksiyonudur. Koşulun olumlu yada olumsuz olmasına göre belirlenen sonucu getirir. Standart If deyimi ile aynı mantıkta çalışır. Fonksiyonun açılımı aşağıdaki gibidir.

=iif("koşul" , "koşul olumlu ise yapılacak" , "koşul olumsuz ise yapılacak")

Örneğin,

not=4
msgbox iif(not>=5,"başarılı","başarısız")

 

[torrasar]

Makroyla başım dertte

Sayın LEVENT M

Dogru baslık altında mı yazıyorum bilmiyorum ama yardımcı olursanız sevinirim.

Ekteki dosyayı bu ismin(torrasar) sahibi olan arkadas bu siteden indirmis ve oldukca faydalı oldugunu soyleyerek bana verdi.

İlk baslarda durum iyiydi ama Makro sayesinde EXCELL menusunde (Çalışma Sayfası Menü çubuğu üzerinde) olusan tuslar, her dosyamda acılmaya basladı. Ve her dosyamda makro görünüyor.(Makro olmayan dosyalarda dahi "makroları etkinleştireyim mi" sorusuyla karsılasıyorum.) O tusa basınca da surekli "cari_kart" dosyasını acmaya calısıyor.

Bu tustan ve makrodan nasıl kurtulabilirim? Makroyu silsem de tusları iptal edemiyorum ve her excell dosyası acılısında makroları etkinlestirme sorusuyla karsılasıyorum. Cari_Kart dosyasını da sildiğimden artık o tuslar excel'de Çalışma Sayfası Menü Çubuğu'nda işe yaramaz bir şekilde duruyor.

Yardım edenlere simdiden tesekkurler.

 

[Levent Menteşoğlu]

ilgili dosyayı eklermisiniz.