CheckBox ile yazıtipi değiştirme

[mciritci]

Merhana
Benim CheckBoxlarla başım belada
mesela E12 Hücresinde olan yazıyı beyazken kutucuğa check atarak siyah yapıyorum ama checki kaldırınca eski halıne yani beyaaz olmasını istiyorum gerekli kodu aşağıdakı gibi yazıyorum eksikleri gierirmisiniz Teşekkür ederim...


Range("E12").Select
Selection.Font.ColorIndex = 8
Range("D12").Select

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir kodlama kullanmanız gerekir.

[vb:1:6ebe0a2806]Range("E12").Font.ColorIndex = xlnone
if checkbox1.value=true then Range("E12").Font.ColorIndex = 8
[/vb:1:6ebe0a2806]

 

[mciritci]

levent bey sağolun ama sizin yazdığınız kodda eksiklikler var...
--------------------------------------------------------------------------------
Range("E12").Font.ColorIndex = xlnone
If checkbox1.value=true Then Range("E12").Font.ColorIndex = 8

ElseIf checkbox1.value=true thenRange("E12").Font.colorIndex=9
End if

--------------------------------------------------------------------------------
Else if i kullanmasan checkbox tek yönlü çalışır
yinede saol