Check Box

[tamer42]

Merhabalar,

Ekli dosyada yer alan check box kutucuklarından hangisi işaretli (OK) ise;
bu kutucuğun hemen sağında yazan metinleri (A1, A2, A3.....) L sütununda belirtilen hücreler yazacak koda ihitiyacım var,

Yardımcı olacak arkadaşlara şimdiden teşekkürler.

iyi çalışmalar dilerim.

 

[dost]

Merhaba,

j = 1
    For i = 1 To Sayfa1.Shapes.Count
       Sayfa1.Shapes(i).Select
       With Selection
            If .Value = xlOn Then
                Sayfa1.Range("L" & j) = Sayfa1.Shapes(i).AlternativeText
                j = j + 1
            End If
        End With
    Next

 

[htsumer]

ChecBox tıkladığımızda Hücreye ChecBox'un Captionunu y

Merhaba,

Sayfaya ChecBox ekliyerek yapabilirsiniz.


CheckBox yada diğer özellik eklemek


Soru:
ChecBox tıkladığımızda L1 Hücresine ChecBox'un Captionunu yazdırmak.

Kodlar:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    [L1] = CheckBox1.Caption
  Else
    [L1] = Empty
  End If
End Sub

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
    [L1] = CheckBox2.Caption
  Else
    [L1] = Empty
  End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
    [L1] = CheckBox3.Caption
  Else
    [L1] = Empty
  End If
End Sub

 

[SGM020]

Ekteki dosya olmuş mu?

Kolay gelsin.

 

[djmurat35]

YABU YUKRDA YAPILAN Ã?RNEÃİ ACCESS TE YAPILABİLİRMİ ACABA :düsün:

 

[htsumer]

YABU YUKRDA YAPILAN Ã?RNEÃİ ACCESS TE YAPILABİLİRMİ ACABA

Yukarıdaki örnek Access Kısmına sorularak yapılabilir.
http://www.excel.web.tr/viewtopic.php?p=3481#3481