Checkbox ile seçim

[leyhus]

yapmak istediğim userformun üzerindeki checkbox işaretlendiği zaman K14 hücresine ve user formda checkbox karşısındaki label'e yatan yazsın, işaretli değilse işaret yoksa ayakta yazsın .

 

[leyhus]

yardımcı olacak yokmu.

 

[Kemal Demir]

Private Sub CheckBox1_Change()
If CheckBox1 = True Then

    With Selection
        .Orientation = 90
    End With
Else
    With Selection
        .Orientation = 0
    End With
End If
End Sub

Yukarıdaki kod zannedersem işinizi görür.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub CheckBox1_Change()
    If CheckBox1 = True Then
    Label6.Caption = "YATAN"
    Else
    Label6.Caption = "AYAKTA"
    End If
End Sub

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki koduda deneyebilirsiniz.

Private Sub CheckBox1_Change()
Label6 = IIf(CheckBox1, "YATAN", "AYAKTA")
[k14] = IIf(CheckBox1, "YATAN", "AYAKTA")
End Sub

 

[Kemal Demir]

Arkadaşlar,

Valla helal olsun bir insan soruyu bu kadar yanlıs anlayabilir.
Yatan'ı yatay,Ayaktayı da dikey anlayan sadece bu forumda ben varım anlasılan.

Anlasılan fazlası ile kitap okumam gerekmektedir.Bu soru ile teyid edilmiştir.

 

[Levent Menteşoğlu]

Arkadaşlar,

Valla helal olsun bir insan soruyu bu kadar yanlıs anlayabilir.
Yatan'ı yatay,Ayaktayı da dikey anlayan sadece bu forumda ben varım anlasılan.

Anlasılan fazlası ile kitap okumam gerekmektedir.Bu soru ile teyid edilmiştir.

İnanın bende şimdi siz yazınca yazdığınız kodun mantığını anlayabildim. Kemal bey her zaman benimde başıma geliyor böyle şeyler.