- Katılım
- 27 Şubat 2008
- Mesajlar
- 307
- Excel Vers. ve Dili
- Office 2016
Excelde bir kodum var aşağıda ki şekilde
Dim SY As Worksheet
Set SY = Sheets("İZİNLER")
son_satir = SY.Range("A65500").End(3).Row + 1
SY.Cells(son_satir, "A") = CommoBox1.Text
SY.Cells(son_satir, "E") = CommoBox2.Text
SY.Cells(son_satir, "F") = TextBox1.Text
SY.Cells(son_satir, "H") = TextBox2.Text
SY.Cells(son_satir, "I") = CommoBox3.Text
Unload Me
Sorun ComboBoxlarda aktarma yapamıyorum fakat Textboxlarda herhangi bir sorun yok. Comboboxlar için nasıl bir değişiklik yapmam gerek
Dim SY As Worksheet
Set SY = Sheets("İZİNLER")
son_satir = SY.Range("A65500").End(3).Row + 1
SY.Cells(son_satir, "A") = CommoBox1.Text
SY.Cells(son_satir, "E") = CommoBox2.Text
SY.Cells(son_satir, "F") = TextBox1.Text
SY.Cells(son_satir, "H") = TextBox2.Text
SY.Cells(son_satir, "I") = CommoBox3.Text
Unload Me
Sorun ComboBoxlarda aktarma yapamıyorum fakat Textboxlarda herhangi bir sorun yok. Comboboxlar için nasıl bir değişiklik yapmam gerek