DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sheets("sayfa1").Select ' kayıtların yapılacağı çalışma sayfası
son = Cells(65536, "a").End(xlUp).Row + 1
Cells(son, "a") = TextBox1
Cells(son, "b") = ComboBox3
Cells(son, "c") = TextBox3
Cells(son, "d") = TextBox4
Cells(son, "e") = ComboBox1
Cells(son, "f") = Val(TextBox11)
Cells(son, "G") = Val(TextBox6)
Hocam ılgınıze tesekkur ederım sagolun