Onay kutusu işaretine göre diğer sayfaya Doğru veya Yanlış yaz

[saorest]

(Hücre bağlantısı kullanmadan)

Kaydet e tıklayınca;
1.
Onay Kutusu 1 i kontrol et
Diğer sayfaya
Onay kutusu işaretli ise DOĞRU
Değil ise YANLIŞ
Yaz

2.Açılır listeden seçip doldur a tıklayınca;

Kayıt durumuna göre işaretleri geri getir.

 

[hamitcan]

Aşağıdaki fonksiyonları kodlarınıza ekleyiniz.

Function Onay1()
    Sayfa1.Shapes("Check Box 8").Select
    If Selection.Value = 1 Then Onay1 = True Else Onay1 = False
End Function
Function Onay2()
    Sayfa1.Shapes("Check Box 9").Select
    If Selection.Value = 1 Then Onay2 = True Else Onay2 = False
End Function
Function Onay3()
    Sayfa1.Shapes("Check Box 10").Select
    If Selection.Value = 1 Then Onay3 = True Else Onay3 = False
End Function

Ayrıca bunlara ek olarak, Makro4 makrosu içine aşağıdaki satırları ekleyin.

Worksheets("1Lst").Cells(gun, "l").Value = Onay1
Worksheets("1Lst").Cells(gun, "m").Value = Onay2
Worksheets("1Lst").Cells(gun, "n").Value = Onay3

 

[saorest]

Çok teşekkür ederim Hamit Bey.