Combobox İle Getirdiğim Veriyi Kaydedemiyorum. Yardım Lütfen !!

[TEGCreative]

Merhabalar . Workbook Masraf ve Veritabanı olarak 2 ayrı sayfadır. Userform da Combobox1 e Veritabanı A sütununu çektiriyorum ve yanlarındaki veriyi de

Private Sub ComboBox1_Change()
TextBox4 = Cells(ComboBox1.ListIndex + 1, 2)
End Sub

bu kod ile Textbox4 e getiriyorum. Fakat Bunları Masraf sayfasına kayıt yapmak istediğim an Combobox1 Change olayımda hata veriyor. Application-defined or object defined error gibi bir hata alıyorum. Çözüm bulursak memnun olurum kafayı yiyeceğim

 

[vardar07]

Örnek bir dosya ekleseniz birde biz denesek nasıl olur.
Not : Bilmiyorsanız imza bölümündeki adreslerden birine dosyanızı yükleyip linkini yazabilirsiniz.

 

[TEGCreative]

Sayın vardar07 ; link burda . Buyrun

http://s2.dosya.tc/server2/n9lt0j/Hesaplama.rar.html

 

[Ömer BARAN]

Merhaba.

Sayın vardar'ın müsadeleriyle.
Belgeniz ekte. Belgeye buradan da ulaşabilirsiniz.

Kodlarda nereleri değiştirdiğimi hatırlayamadığım için değişiklikleri yapıp kaydederek kapattım.
Siz önceki haliyle karşılaştırırsınız.

Hatırladığım birşeyi söyleyeyim;
nesneadı=şu nesne değeri/şu hücre
gibi bir kod satırında verinin yazıldığı yer, = işaretinin solundaki kısım,
verinin alındığı yer ise = işaretinin sağındaki kısım oluyor.
.

 

[TEGCreative]

Merhaba sayın Ömer Hocam ; dosyayı link olarak paylaşabilir misiniz rica etsem ek olarak indirme şansım olmuyor .s

Ömer Hocam ; hatırladığınız şeyler bana da birkaç şey hatırlattı ve eski örneklerimden yola çıkarak problemi çözdüm. Dediğiniz gibi nesne adlarının yerlerini değişik tuttuğumdan ötürü bir hata vermiş. Şuan tamamen stabilize bir şekilde çalışmakta. Sayın vardar07 ilginiz; ömer hocam size de yardımlarınız için teşekkür ederim. Esen kalın.

 

[Ömer BARAN]

Önceki cevabıma harici erişim adresini ekledim.
Sayfayı yenileyerek kontrol ediniz.

 

[vardar07]

Gerçi Ömer bey cevap vermiş. Ömer beyin dosyasını incelemedim. Alternatif olarak Userform içindeki Private Sub CommandButton2_Click() kısmını aşağıdakiler ile değiştirip denermisiniz.

Private Sub CommandButton2_Click()
With Sheets("Masraflar")
.Select
Son = .Range("A65536").End(xlUp).Row + 1
.Cells(Son, "A") = TextBox1.Text
.Cells(Son, "B") = TextBox2.Text
.Cells(Son, "C") = TextBox3.Text
.Cells(Son, "D") = ComboBox1.Text
.Cells(Son, "E") = TextBox4.Text
.Cells(Son, "F") = TextBox5.Text
.Cells(Son, "G") = TextBox6.Text
.Cells(Son, "H") = TextBox7.Text
.Cells(Son, "I") = ComboBox2.Text
End With
End Sub