AccessTr.neT

Sayfalar: 1 2 3

Doğru yada yanlış olayı ile güncelleme kodu alakasızdı bildiğim.Normalde IIF mantığıda doğru birazdan bakarım yinede

Alttaki gibi yapınca evet yada hayır olrarak güncelledi güncelleme butonunda.

.Cells(Guncelle, 19) = IIf(CheckBox_FotoselliKapi.Value = True, "Evet", "Hayýr")

Güncelleme butonunu ayarladım.İff yerine alttaki gibi sub yaptım.

Call checkboxxGuncelle(Guncelle, 16, CheckBox_BioClimatic) '16 demek

yukardaki gibide devam edin abey diğerlerine.Normalde iff çalışıyor hangisini isterseniz onu kullanın.

PHP Kod:
Sub checkboxxGuncelle(deger As Long, sutun As Byte, checboxad As MSForms.CheckBox)
    With ThisWorkbook.Worksheets("Ana_Sayfa")
        If checboxad.Value = True Then
            .Cells(deger, sutun) = "Evet"
        ElseIf checboxad.Value = False Then
            .Cells(deger, sutun) = "Hayýr"
        End If
    End With
End Sub 

Feraz hocam IIF şeklinde olan kodu anlamam daha kolay. Bu yüzden onu kullanmıştım zaten sorunsuz çalışıyor. Bir sorun olmaz ise onu kullanayım.

Sorun çıkartmaz abey.

Kodları biraz inceleyince alttakileri silip sadece checkboxKontrol Guncelle yazmanız yeterli aslında.
Çünkü checkboxKontrol adında sub var.

[Resim: do.php?img=10925]

Kod:
        .Cells(Guncelle, 16) = CheckBox_BioClimatic.Value

        .Cells(Guncelle, 17) = CheckBox_CamBalkon.Value

        .Cells(Guncelle, 18) = CheckBox_CamTavan.Value

        .Cells(Guncelle, 19) = CheckBox_FotoselliKapi.Value

        .Cells(Guncelle, 20) = CheckBox_Giyotin.Value

        .Cells(Guncelle, 21) = CheckBox_IsicamliSurme.Value

        .Cells(Guncelle, 22) = CheckBox_Pergola.Value

        .Cells(Guncelle, 23) = CheckBox_RuzgarKirici.Value

        .Cells(Guncelle, 24) = CheckBox_TavanPerdesi.Value

        .Cells(Guncelle, 25) = CheckBox_ZipPerde.Value

Aynışekilde btn_KayitEkle_Click kodundaki en alttaki kodları silip

Kod:
checkboxKontrol SonSatir

yazmanız yeterli

        .Cells(SonSatir, 16) = CheckBox_BioClimatic.Value

        .Cells(SonSatir, 17) = CheckBox_CamBalkon.Value

        .Cells(SonSatir, 18) = CheckBox_CamTavan.Value

        .Cells(SonSatir, 19) = CheckBox_FotoselliKapi.Value

        .Cells(SonSatir, 20) = CheckBox_Giyotin.Value

        .Cells(SonSatir, 21) = CheckBox_İsicamliSurme.Value

        .Cells(SonSatir, 22) = CheckBox_Pergola.Value

        .Cells(SonSatir, 23) = CheckBox_RuzgarKirici.Value

        .Cells(SonSatir, 24) = CheckBox_TavanPerdesi.Value

        .Cells(SonSatir, 25) = CheckBox_ZipPerde.Value

Sayfalar: 1 2 3

feraz

feraz

feraz

Oğuz Türkyılmaz

feraz

feraz