userformda son girdiğim liste silinmesin

[siyar0044]

Arkadaşlar ben excelde bir tuşa basarak bir userform çıkarıyorum bu form aracılığı ile veri girişi yapıyorum verileri girdikten sonra aktar tuşuna basıyorum işlem tamamlanıyor userformu kapatıyorum ancak bazen yanlış veri giriyorum veya kendim değiştirmek istiyorum fakat userformu yeniden açtığım zaman bilgilerim silinmiş oluyor bu sefer tümünü tekrardan girmem gerekiyor ben bunu istemiyorum son girdiğim bilgiler her zaman orada kayıtlı dursun yeniden veri girişi yapmıyayım ben zaten oraya temizle butonu koydum tümünü yeniden gireceğim zaman temizle butonunu kullanıyorum
şimdi son girdiğim verilerin silimemesi için nasıl bir düzenleme yapmam gerekir dosyanın boyutu büyük olduğu için kodları aşağıda veriyorum yardım ederseniz sevinirim
not: geçmişe dönük kayıt benim için önemli değil sadece girdiğim liste otomatik silinmesin
Kod:
Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox8.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
TextBox17.Value = ""
TextBox18.Value = ""
End Sub

Private Sub UserForm_Click()

End Sub
Private Sub Aktar_Click()

End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox2_Change()

End Sub

Private Sub ComboBox3_Change()

End Sub
Private Sub CommandButton1_Click()

Sheets("BİLGİ GİRİŞİ").Range("b3").Value = ComboBox1.Value
Sheets("BİLGİ GİRİŞİ").Range("b13").Value = ComboBox2.Value
Sheets("BİLGİ GİRİŞİ").Range("b14").Value = ComboBox3.Value
Sheets("BİLGİ GİRİŞİ").Range("b4").Value = TextBox1.Value
Sheets("BİLGİ GİRİŞİ").Range("b5").Value = TextBox2.Value
Sheets("BİLGİ GİRİŞİ").Range("b6").Value = TextBox3.Value
Sheets("BİLGİ GİRİŞİ").Range("b8").Value = TextBox5.Value
Sheets("BİLGİ GİRİŞİ").Range("b9").Value = TextBox6.Value
Sheets("BİLGİ GİRİŞİ").Range("b11").Value = TextBox8.Value
Sheets("BİLGİ GİRİŞİ").Range("b16").Value = TextBox11.Value
Sheets("BİLGİ GİRİŞİ").Range("b17").Value = TextBox12.Value
Sheets("BİLGİ GİRİŞİ").Range("b19").Value = TextBox14.Value
Sheets("BİLGİ GİRİŞİ").Range("b20").Value = TextBox15.Value
Sheets("BİLGİ GİRİŞİ").Range("b22").Value = TextBox17.Value
Sheets("BİLGİ GİRİŞİ").Range("b23").Value = TextBox18.Value
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "MÜDÜRLÜK!a2:a83"
ComboBox2.RowSource = "BANKA!a2:a19"
ComboBox3.RowSource = "BANKA!a21:a50"
End Sub

 

[Levent Menteşoğlu]

Userformun initialize olayına CommandButton1_click olayında yazılan kodların tam tersini yazın, yani eşitlikteki veriler yer değiştirsin.

 

[siyar0044]

makroları çok iyi bilmediğim en azından bir tanesini olması gerektiği gibi örnek olarak yazarsanız sevinirim diğerlerini ona göre uyarlamaya çalışırım

bu şekilde uyguladım ancak hata verdi

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "MÜDÜRLÜK!a2:a83"
ComboBox2.RowSource = "BANKA!a2:a19"
ComboBox3.RowSource = "BANKA!a21:a50"
ComboBox1.Value =Range("BİLGİ GİRİŞİ!B3")
ComboBox2.Value =Range("BİLGİ GİRİŞİ!B13")
ComboBox3.Value =Range("BİLGİ GİRİŞİ!B14")
TextBox1.Value =Range("BİLGİ GİRİŞİ!B4")
TextBox2.Value =Range("BİLGİ GİRİŞİ!B5")
TextBox3.Value =Range("BİLGİ GİRİŞİ!B6")
TextBox5.Value =Range("BİLGİ GİRİŞİ!B8")
TextBox6.Value =Range("BİLGİ GİRİŞİ!B9")
TextBox8.Value =Range("BİLGİ GİRİŞİ!B11")
TextBox11.Value =Range("BİLGİ GİRİŞİ!B16")
TextBox12.Value =Range("BİLGİ GİRİŞİ!B17")
TextBox14.Value =Range("BİLGİ GİRİŞİ!B19")
TextBox15.Value =Range("BİLGİ GİRİŞİ!B20")
TextBox17.Value =Range("BİLGİ GİRİŞİ!B22")
TextBox18.Value =Range("BİLGİ GİRİŞİ!B23")
End Sub


run-time error 1004
method range of object global failed

 

[Levent Menteşoğlu]

Uygulama doğru ama yazım şekli hatalı, örneğin,

ComboBox1.Value =Range("BİLGİ GİRİŞİ!B3")

Yukarıdakini aşağıdaki gibi düzeltin.

ComboBox1.Value =[COLOR=blue][B]sheets("BİLGİ GİRİŞİ")[/B][/COLOR].Range("B3")

 

[siyar0044]

teşekkür ederim düzeldi