Skip to main content

AccessTr.neT


Excel Vba Formdaki Bilgilerde Değişiklik Yapıldıysa Güncellesin.

Oğuz Türkyılmaz
Oğuz Türkyılmaz
13
1355

Excel Vba Formdaki Bilgilerde Değişiklik Yapıldıysa Güncellesin.

#12
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Excel Vba Formdaki Bilgilerde Değişiklik Yapıldıysa Güncellesin. - Yazar: feraz - 19/04/2021, 23:48
Task