Kod:
Sub checkboxKontrol(ByVal son As Long)
With ThisWorkbook.Worksheets("Ana_Sayfa")
'.Unprotect sifre
.Cells(son, 16).Value = IIf(CheckBox_BioClimatic.Value = True, "Evet", "Hayır")
.Cells(son, 17).Value = IIf(CheckBox_CamBalkon.Value = True, "Evet", "Hayır")
.Cells(son, 18).Value = IIf(CheckBox_CamTavan.Value = True, "Evet", "Hayır")
.Cells(son, 19).Value = IIf(CheckBox_FotoselliKapi.Value = True, "Evet", "Hayır")
.Cells(son, 20).Value = IIf(CheckBox_Giyotin.Value = True, "Evet", "Hayır")
.Cells(son, 21).Value = IIf(CheckBox_İsicamliSurme.Value = True, "Evet", "Hayır")
.Cells(son, 22).Value = IIf(CheckBox_Pergola.Value = True, "Evet", "Hayır")
.Cells(son, 23).Value = IIf(CheckBox_RuzgarKirici.Value = True, "Evet", "Hayır")
.Cells(son, 24).Value = IIf(CheckBox_TavanPerdesi.Value = True, "Evet", "Hayır")
.Cells(son, 25).Value = IIf(CheckBox_ZipPerde.Value = True, "Evet", "Hayır")
'.Protect sifre
End With
End Sub
kodlarıyla eğer sonuçlardaki checkbox değeri true ise evet değilse hayır şeklinde hücrelere yaz demiştik.
Güncelleme işlemi gerçekleştikten sonra checkboxlardaki hücrelere yazılan değerler doğru yanlış şeklinde sirayet etmiş. Bu durumu düzeltmek için ne yapabilirim.