Excel sayfasına formdan girilen bilgileri arama butonu yardımıyla ID değerine göre buluyor ve form üstüne getirerek güncelleme ve silme işlemlerini yapabiliyordum. Fakat kayıt sayısı fazla olduğunda ID numarasını bulmakta ayrı bir filtreleme işlemi gerektireceğinden zaman kaybı oluşturacaktı ve çok kullanışlı olmadığından
bu yöntemden vazgeçtim. Firma Ünvanı adlı Textbox'ın change olayına yazılan kodla bilgileri Sayfadan forma getirebiliyorum. Form Üzerinde bir değişiklik yapıldığında güncelleme butonuna basarak bu değişikliklerin gerçekleşmesini nasıl sağlayabilirim. Yardımlarınız için teşekkür ederim.
Kod:
Private Sub btn_Guncelle_Click()
With ThisWorkbook.Worksheets("Ana_Sayfa")
If MsgBox("Yaptığınız Değişiklikler Kaydedilerek, Bilgiler Güncellenecektir, Emin misiniz...?", vbExclamation + vbYesNo, "Firma Tanımlama Formu") = vbNo Then Exit Sub
.Cells(Guncelle, 1) = TextBox_ID.Value
.Cells(Guncelle, 2) = TextBox_FirmaAdi.Value
.Cells(Guncelle, 3) = ComboBox_FirmaUnvani.Value
.Cells(Guncelle, 4) = TextBox_YetkiliKisi.Value
.Cells(Guncelle, 5) = TextBox_Telefon.Value
.Cells(Guncelle, 6) = TextBox_Gsm.Value
.Cells(Guncelle, 7) = TextBox_Email.Value
.Cells(Guncelle, 8) = TextBox_Adres.Value
.Cells(Guncelle, 9) = TextBox_Aciklama.Value
.Cells(Guncelle, 10) = ComboBox_Ilce.Value
.Cells(Guncelle, 11) = ComboBox_Sehir.Text
.Cells(Guncelle, 12) = ComboBox_Bolge.Value
.Cells(Guncelle, 13) = ComboBox_Temsilci.Value
.Cells(Guncelle, 14) = ComboBox_RouteDay.Value
.Cells(Guncelle, 15) = ComboBox_YetkiliBayilik
.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_İsicamliSurme.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
.Cells(Guncelle, 26) = TextBox_Tarih.Value
End With
End Sub