kodda eksik

U

uguristanbul

Katılım
25 Aralık 2007
Mesajlar
335
Excel Vers. ve Dili
exel 2000 türkçe
Private Sub CommandButton1_Click()
Sheets("DATA").Select 'Data sayfasını seç
Range("B5").Select 'B5 hücresini seç
Do While Not IsEmpty(ActiveCell) 'Eğer B5 boş değilse boş hücreyi bulana kadar alt satırı seç
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = TextBox1.Value 'İlk boş hücrenin değeri textbox1'in değeridir

ActiveCell.Offset(0, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(0, 2).Value = ComboBox2.Value
ActiveCell.Offset(0, 3).Value = TextBox2.Value
ActiveCell.Offset(0, 4).Value = TextBox3.Value
ActiveCell.Offset(0, 5).Value = TextBox4.Value
ActiveCell.Offset(0, 6).Value = ComboBox3.Value
ActiveCell.Offset(0, 7).Value = ComboBox4.Value
ActiveCell.Offset(0, 8).Value = ComboBox5.Value
ActiveCell.Offset(0, 9).Value = ComboBox6.Value
ActiveCell.Offset(0, 10).Value = ComboBox7.Value
ActiveCell.Offset(0, 11).Value = CheckBox1.Value
ActiveCell.Offset(0, 12).Value = CheckBox2.Value
ActiveCell.Offset(0, 13).Value = ComboBox8.Value
ActiveCell.Offset(0, 14).Value = ComboBox33.Value
ActiveCell.Offset(0, 15).Value = ComboBox58.Value
ActiveCell.Offset(0, 16).Value = ComboBox83.Value
ActiveCell.Offset(0, 17).Value = ComboBox108.Value
ActiveCell.Offset(0, 18).Value = TextBox7.Value
ActiveCell.Offset(0, 19).Value = TextBox32.Value
ActiveCell.Offset(0, 21).Value = ComboBox133.Value
ActiveCell.Offset(0, 22).Value = TextBox57.Value
ActiveCell.Offset(0, 23).Value = TextBox58.Value
ActiveCell.Offset(0, 24).Value = TextBox59.Value
ActiveCell.Offset(0, 25).Value = TextBox60.Value
ActiveCell.Offset(0, 26).Value = TextBox5.Value

yukardaki kısım 1 nci satıra ait

ActiveCell.Offset(1, 0).Value = TextBox1.Value
ActiveCell.Offset(1, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(1, 2).Value = ComboBox2.Value
ActiveCell.Offset(1, 3).Value = TextBox2.Value
ActiveCell.Offset(1, 4).Value = TextBox3.Value
ActiveCell.Offset(1, 6).Value = ComboBox3.Value
ActiveCell.Offset(1, 7).Value = ComboBox4.Value
ActiveCell.Offset(1, 8).Value = ComboBox5.Value
ActiveCell.Offset(1, 9).Value = ComboBox6.Value
ActiveCell.Offset(1, 10).Value = ComboBox7.Value
ActiveCell.Offset(1, 11).Value = CheckBox1.Value
ActiveCell.Offset(1, 12).Value = CheckBox2.Value
ActiveCell.Offset(1, 13).Value = ComboBox9.Value
ActiveCell.Offset(1, 14).Value = ComboBox34.Value
ActiveCell.Offset(1, 15).Value = ComboBox59.Value
ActiveCell.Offset(1, 16).Value = ComboBox84.Value
ActiveCell.Offset(1, 17).Value = ComboBox109.Value
ActiveCell.Offset(1, 18).Value = TextBox8.Value
ActiveCell.Offset(1, 19).Value = TextBox33.Value
ActiveCell.Offset(1, 21).Value = ComboBox134.Value
ActiveCell.Offset(1, 24).Value = TextBox59.Value
ActiveCell.Offset(1, 25).Value = TextBox60.Value
ActiveCell.Offset(1, 26).Value = TextBox5.Value

bu kısım 2 nci satıra ait

diye devam edip giden bir kod urettim bu kod bu sekilde 40 kadar tekrarlanmakta (tabinesne degerleri 1 artarak)ancak ben textbox 33 bossa sadece 1nci satırı kaydetsin istiyorum nasıl bir degişiklik yapmalıyım
 
K

karadami

Katılım
17 Haziran 2006
Mesajlar
218
Excel Vers. ve Dili
excel 2000 Türkçe
&
excel 2003 Türkçe
ikinci satirin kodlarinin basina
Kod: 
if texbox33=empty then goto 10
ve ikinci satirin kodlarinin altina 10 yazin deneyin.
 
U

uguristanbul

Katılım
25 Aralık 2007
Mesajlar
335
Excel Vers. ve Dili
exel 2000 türkçe
calısmadı hocam mavi hata işareti go to 10 ustunde duruyor
 
K

karadami

Katılım
17 Haziran 2006
Mesajlar
218
Excel Vers. ve Dili
excel 2000 Türkçe
&
excel 2003 Türkçe
uguristanbul' Alıntı:
calısmadı hocam mavi hata işareti go to 10 ustunde duruyor
Genişletmek için tıkla ...
10 ayri bi satirda 2 satir kodlarinin en altinda olacak bu sekilde mi denediniz. boyle denediyseniz mumukunse bir ornek dosya ekleyin. sanirim sonuca bu sekilde daha kolay ulasabiliriz
 
K

karadami

Katılım
17 Haziran 2006
Mesajlar
218
Excel Vers. ve Dili
excel 2000 Türkçe
&
excel 2003 Türkçe
verdiginiz kodlari kirparak ufak bir ornek hazirladim. ekli dosyayi inceleyiniz lutfen..
 
S

Skorpiyon

Misafir
Aslında Sayın karadami 2. mesajda belirtmişler. Mesajı gördükten sonra bir kezde ben belirteyim istedim.



Private Sub CommandButton1_Click()

.........1.satır kodlarınız......................

'yukardaki kısım 1 nci satıra ait ----Bu notu yazdığınız yere aşağıdaki kodu yazınız.

if textbox33.value = "" then goto bitir

.........diğer satırların yazıldığı kodlar......

bitir:
End Sub



Kırmızı ile yazılan kodları uygun yerlere koyunuz.
 
U

uguristanbul

Katılım
25 Aralık 2007
Mesajlar
335
Excel Vers. ve Dili
exel 2000 türkçe
Private Sub CommandButton1_Click()
Sheets("DATA").Select 'Data sayfasını seç
Range("B5").Select 'B5 hücresini seç
Do While Not IsEmpty(ActiveCell) 'Eğer B5 boş değilse boş hücreyi bulana kadar alt satırı seç
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = TextBox1.Value 'İlk boş hücrenin değeri textbox1'in değeridir

ActiveCell.Offset(0, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(0, 2).Value = ComboBox2.Value
ActiveCell.Offset(0, 3).Value = TextBox2.Value
ActiveCell.Offset(0, 4).Value = TextBox3.Value
ActiveCell.Offset(0, 5).Value = TextBox4.Value
ActiveCell.Offset(0, 6).Value = ComboBox3.Value
ActiveCell.Offset(0, 7).Value = ComboBox4.Value
ActiveCell.Offset(0, 8).Value = ComboBox5.Value
ActiveCell.Offset(0, 9).Value = ComboBox6.Value
ActiveCell.Offset(0, 10).Value = ComboBox7.Value
ActiveCell.Offset(0, 11).Value = CheckBox1.Value
ActiveCell.Offset(0, 12).Value = CheckBox2.Value
ActiveCell.Offset(0, 13).Value = ComboBox8.Value
ActiveCell.Offset(0, 14).Value = ComboBox33.Value
ActiveCell.Offset(0, 15).Value = ComboBox58.Value
ActiveCell.Offset(0, 16).Value = ComboBox83.Value
ActiveCell.Offset(0, 17).Value = ComboBox108.Value
ActiveCell.Offset(0, 18).Value = TextBox7.Value
ActiveCell.Offset(0, 19).Value = TextBox32.Value
ActiveCell.Offset(0, 21).Value = ComboBox133.Value
ActiveCell.Offset(0, 22).Value = TextBox57.Value
ActiveCell.Offset(0, 23).Value = TextBox58.Value
ActiveCell.Offset(0, 24).Value = TextBox59.Value
ActiveCell.Offset(0, 25).Value = TextBox60.Value
ActiveCell.Offset(0, 26).Value = TextBox5.Value

If TextBox33.Value = "" Then GoTo bitir
ActiveCell.Offset(1, 0).Value = TextBox1.Value
ActiveCell.Offset(1, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(1, 2).Value = ComboBox2.Value
ActiveCell.Offset(1, 3).Value = TextBox2.Value
ActiveCell.Offset(1, 4).Value = TextBox3.Value
ActiveCell.Offset(1, 6).Value = ComboBox3.Value
ActiveCell.Offset(1, 7).Value = ComboBox4.Value
ActiveCell.Offset(1, 8).Value = ComboBox5.Value
ActiveCell.Offset(1, 9).Value = ComboBox6.Value
ActiveCell.Offset(1, 10).Value = ComboBox7.Value
ActiveCell.Offset(1, 11).Value = CheckBox1.Value
ActiveCell.Offset(1, 12).Value = CheckBox2.Value
ActiveCell.Offset(1, 13).Value = ComboBox9.Value
ActiveCell.Offset(1, 14).Value = ComboBox34.Value
ActiveCell.Offset(1, 15).Value = ComboBox59.Value
ActiveCell.Offset(1, 16).Value = ComboBox84.Value
ActiveCell.Offset(1, 17).Value = ComboBox109.Value
ActiveCell.Offset(1, 18).Value = TextBox8.Value
ActiveCell.Offset(1, 19).Value = TextBox33.Value
ActiveCell.Offset(1, 21).Value = ComboBox134.Value
ActiveCell.Offset(1, 24).Value = TextBox59.Value
ActiveCell.Offset(1, 25).Value = TextBox60.Value
ActiveCell.Offset(1, 26).Value = TextBox5.Value

If TextBox34.Value = "" Then GoTo bitir
ActiveCell.Offset(2, 0).Value = TextBox1.Value
ActiveCell.Offset(2, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(2, 2).Value = ComboBox2.Value
ActiveCell.Offset(2, 3).Value = TextBox2.Value
ActiveCell.Offset(2, 4).Value = TextBox3.Value
ActiveCell.Offset(2, 6).Value = ComboBox3.Value
ActiveCell.Offset(2, 7).Value = ComboBox4.Value
ActiveCell.Offset(2, 8).Value = ComboBox5.Value
ActiveCell.Offset(2, 9).Value = ComboBox6.Value
ActiveCell.Offset(2, 10).Value = ComboBox7.Value
ActiveCell.Offset(2, 11).Value = CheckBox1.Value
ActiveCell.Offset(2, 12).Value = CheckBox2.Value
ActiveCell.Offset(2, 13).Value = ComboBox10.Value
ActiveCell.Offset(2, 14).Value = ComboBox35.Value
ActiveCell.Offset(2, 15).Value = ComboBox60.Value
ActiveCell.Offset(2, 16).Value = ComboBox85.Value
ActiveCell.Offset(2, 17).Value = ComboBox110.Value
ActiveCell.Offset(2, 18).Value = TextBox9.Value
ActiveCell.Offset(2, 19).Value = TextBox34.Value
ActiveCell.Offset(2, 21).Value = ComboBox135.Value
ActiveCell.Offset(2, 24).Value = TextBox59.Value
ActiveCell.Offset(2, 25).Value = TextBox60.Value
ActiveCell.Offset(2, 26).Value = TextBox5.Value

If TextBox35.Value = "" Then GoTo bitir
ActiveCell.Offset(3, 0).Value = TextBox1.Value
ActiveCell.Offset(3, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(3, 2).Value = ComboBox2.Value
ActiveCell.Offset(3, 3).Value = TextBox2.Value
ActiveCell.Offset(3, 4).Value = TextBox3.Value
ActiveCell.Offset(3, 6).Value = ComboBox3.Value
ActiveCell.Offset(3, 7).Value = ComboBox4.Value
ActiveCell.Offset(3, 8).Value = ComboBox5.Value
ActiveCell.Offset(3, 9).Value = ComboBox6.Value
ActiveCell.Offset(3, 10).Value = ComboBox7.Value
ActiveCell.Offset(3, 11).Value = CheckBox1.Value
ActiveCell.Offset(3, 12).Value = CheckBox2.Value
ActiveCell.Offset(3, 13).Value = ComboBox11.Value
ActiveCell.Offset(3, 14).Value = ComboBox36.Value
ActiveCell.Offset(3, 15).Value = ComboBox61.Value
ActiveCell.Offset(3, 16).Value = ComboBox86.Value
ActiveCell.Offset(3, 17).Value = ComboBox111.Value
ActiveCell.Offset(3, 18).Value = TextBox10.Value
ActiveCell.Offset(3, 19).Value = TextBox35.Value
ActiveCell.Offset(3, 21).Value = ComboBox136.Value
ActiveCell.Offset(3, 24).Value = TextBox59.Value
ActiveCell.Offset(3, 25).Value = TextBox60.Value
ActiveCell.Offset(3, 26).Value = TextBox5.Value

If TextBox36.Value = "" Then GoTo bitir
ActiveCell.Offset(4, 0).Value = TextBox1.Value
ActiveCell.Offset(4, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(4, 2).Value = ComboBox2.Value
ActiveCell.Offset(4, 3).Value = TextBox2.Value
ActiveCell.Offset(4, 4).Value = TextBox3.Value
ActiveCell.Offset(4, 6).Value = ComboBox3.Value
ActiveCell.Offset(4, 7).Value = ComboBox4.Value
ActiveCell.Offset(4, 8).Value = ComboBox5.Value
ActiveCell.Offset(4, 9).Value = ComboBox6.Value
ActiveCell.Offset(4, 10).Value = ComboBox7.Value
ActiveCell.Offset(4, 11).Value = CheckBox1.Value
ActiveCell.Offset(4, 12).Value = CheckBox2.Value
ActiveCell.Offset(4, 13).Value = ComboBox12.Value
ActiveCell.Offset(4, 14).Value = ComboBox37.Value
ActiveCell.Offset(4, 15).Value = ComboBox62.Value
ActiveCell.Offset(4, 16).Value = ComboBox87.Value
ActiveCell.Offset(4, 17).Value = ComboBox112.Value
ActiveCell.Offset(4, 18).Value = TextBox11.Value
ActiveCell.Offset(4, 19).Value = TextBox36.Value
ActiveCell.Offset(4, 21).Value = ComboBox137.Value
ActiveCell.Offset(4, 24).Value = TextBox59.Value
ActiveCell.Offset(4, 25).Value = TextBox60.Value
ActiveCell.Offset(4, 26).Value = TextBox5.Value

If TextBox37.Value = "" Then GoTo bitir
ActiveCell.Offset(5, 0).Value = TextBox1.Value
ActiveCell.Offset(5, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(5, 2).Value = ComboBox2.Value
ActiveCell.Offset(5, 3).Value = TextBox2.Value
ActiveCell.Offset(5, 4).Value = TextBox3.Value
ActiveCell.Offset(5, 6).Value = ComboBox3.Value
ActiveCell.Offset(5, 7).Value = ComboBox4.Value
ActiveCell.Offset(5, 8).Value = ComboBox5.Value
ActiveCell.Offset(5, 9).Value = ComboBox6.Value
ActiveCell.Offset(5, 10).Value = ComboBox7.Value
ActiveCell.Offset(5, 11).Value = CheckBox1.Value
ActiveCell.Offset(5, 12).Value = CheckBox2.Value
ActiveCell.Offset(5, 13).Value = ComboBox13.Value
ActiveCell.Offset(5, 14).Value = ComboBox38.Value
ActiveCell.Offset(5, 15).Value = ComboBox63.Value
ActiveCell.Offset(5, 16).Value = ComboBox88.Value
ActiveCell.Offset(5, 17).Value = ComboBox113.Value
ActiveCell.Offset(5, 18).Value = TextBox12.Value
ActiveCell.Offset(5, 19).Value = TextBox37.Value
ActiveCell.Offset(5, 21).Value = ComboBox138.Value
ActiveCell.Offset(5, 24).Value = TextBox59.Value
ActiveCell.Offset(5, 25).Value = TextBox60.Value
ActiveCell.Offset(5, 26).Value = TextBox5.Value

If TextBox38.Value = "" Then GoTo bitir
ActiveCell.Offset(6, 0).Value = TextBox1.Value
ActiveCell.Offset(6, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(6, 2).Value = ComboBox2.Value
ActiveCell.Offset(6, 3).Value = TextBox2.Value
ActiveCell.Offset(6, 4).Value = TextBox3.Value
ActiveCell.Offset(6, 6).Value = ComboBox3.Value
ActiveCell.Offset(6, 7).Value = ComboBox4.Value
ActiveCell.Offset(6, 8).Value = ComboBox5.Value
ActiveCell.Offset(6, 9).Value = ComboBox6.Value
ActiveCell.Offset(6, 10).Value = ComboBox7.Value
ActiveCell.Offset(6, 11).Value = CheckBox1.Value
ActiveCell.Offset(6, 12).Value = CheckBox2.Value
ActiveCell.Offset(6, 13).Value = ComboBox14.Value
ActiveCell.Offset(6, 14).Value = ComboBox39.Value
ActiveCell.Offset(6, 15).Value = ComboBox64.Value
ActiveCell.Offset(6, 16).Value = ComboBox89.Value
ActiveCell.Offset(6, 17).Value = ComboBox114.Value
ActiveCell.Offset(6, 18).Value = TextBox13.Value
ActiveCell.Offset(6, 19).Value = TextBox38.Value
ActiveCell.Offset(6, 21).Value = ComboBox139.Value
ActiveCell.Offset(6, 24).Value = TextBox59.Value
ActiveCell.Offset(6, 25).Value = TextBox60.Value
ActiveCell.Offset(6, 26).Value = TextBox5.Value

If TextBox39.Value = "" Then GoTo bitir
ActiveCell.Offset(7, 0).Value = TextBox1.Value
ActiveCell.Offset(7, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(7, 2).Value = ComboBox2.Value
ActiveCell.Offset(7, 3).Value = TextBox2.Value
ActiveCell.Offset(7, 4).Value = TextBox3.Value
ActiveCell.Offset(7, 6).Value = ComboBox3.Value
ActiveCell.Offset(7, 7).Value = ComboBox4.Value
ActiveCell.Offset(7, 8).Value = ComboBox5.Value
ActiveCell.Offset(7, 9).Value = ComboBox6.Value
ActiveCell.Offset(7, 10).Value = ComboBox7.Value
ActiveCell.Offset(7, 11).Value = CheckBox1.Value
ActiveCell.Offset(7, 12).Value = CheckBox2.Value
ActiveCell.Offset(7, 13).Value = ComboBox15.Value
ActiveCell.Offset(7, 14).Value = ComboBox40.Value
ActiveCell.Offset(7, 15).Value = ComboBox65.Value
ActiveCell.Offset(7, 16).Value = ComboBox90.Value
ActiveCell.Offset(7, 17).Value = ComboBox115.Value
ActiveCell.Offset(7, 18).Value = TextBox14.Value
ActiveCell.Offset(7, 19).Value = TextBox39.Value
ActiveCell.Offset(7, 21).Value = ComboBox140.Value
ActiveCell.Offset(7, 24).Value = TextBox59.Value
ActiveCell.Offset(7, 25).Value = TextBox60.Value
ActiveCell.Offset(7, 26).Value = TextBox5.Value

If TextBox40.Value = "" Then GoTo bitir
ActiveCell.Offset(8, 0).Value = TextBox1.Value
ActiveCell.Offset(8, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(8, 2).Value = ComboBox2.Value
ActiveCell.Offset(8, 3).Value = TextBox2.Value
ActiveCell.Offset(8, 4).Value = TextBox3.Value
ActiveCell.Offset(8, 6).Value = ComboBox3.Value
ActiveCell.Offset(8, 7).Value = ComboBox4.Value
ActiveCell.Offset(8, 8).Value = ComboBox5.Value
ActiveCell.Offset(8, 9).Value = ComboBox6.Value
ActiveCell.Offset(8, 10).Value = ComboBox7.Value
ActiveCell.Offset(8, 11).Value = CheckBox1.Value
ActiveCell.Offset(8, 12).Value = CheckBox2.Value
ActiveCell.Offset(8, 13).Value = ComboBox16.Value
ActiveCell.Offset(8, 14).Value = ComboBox41.Value
ActiveCell.Offset(8, 15).Value = ComboBox66.Value
ActiveCell.Offset(8, 16).Value = ComboBox91.Value
ActiveCell.Offset(8, 17).Value = ComboBox116.Value
ActiveCell.Offset(8, 18).Value = TextBox15.Value
ActiveCell.Offset(8, 19).Value = TextBox40.Value
ActiveCell.Offset(8, 21).Value = ComboBox141.Value
ActiveCell.Offset(8, 24).Value = TextBox59.Value
ActiveCell.Offset(8, 25).Value = TextBox60.Value
ActiveCell.Offset(8, 26).Value = TextBox5.Value

If TextBox41.Value = "" Then GoTo bitir
ActiveCell.Offset(9, 0).Value = TextBox1.Value
ActiveCell.Offset(9, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(9, 2).Value = ComboBox2.Value
ActiveCell.Offset(9, 3).Value = TextBox2.Value
ActiveCell.Offset(9, 4).Value = TextBox3.Value
ActiveCell.Offset(9, 6).Value = ComboBox3.Value
ActiveCell.Offset(9, 7).Value = ComboBox4.Value
ActiveCell.Offset(9, 8).Value = ComboBox5.Value
ActiveCell.Offset(9, 9).Value = ComboBox6.Value
ActiveCell.Offset(9, 10).Value = ComboBox7.Value
ActiveCell.Offset(9, 11).Value = CheckBox1.Value
ActiveCell.Offset(9, 12).Value = CheckBox2.Value
ActiveCell.Offset(9, 13).Value = ComboBox17.Value
ActiveCell.Offset(9, 14).Value = ComboBox42.Value
ActiveCell.Offset(9, 15).Value = ComboBox67.Value
ActiveCell.Offset(9, 16).Value = ComboBox92.Value
ActiveCell.Offset(9, 17).Value = ComboBox117.Value
ActiveCell.Offset(9, 18).Value = TextBox16.Value
ActiveCell.Offset(9, 19).Value = TextBox41.Value
ActiveCell.Offset(9, 21).Value = ComboBox142.Value
ActiveCell.Offset(9, 24).Value = TextBox59.Value
ActiveCell.Offset(9, 25).Value = TextBox60.Value
ActiveCell.Offset(9, 26).Value = TextBox5.Value

If TextBox42.Value = "" Then GoTo bitir
ActiveCell.Offset(10, 0).Value = TextBox1.Value
ActiveCell.Offset(10, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(10, 2).Value = ComboBox2.Value
ActiveCell.Offset(10, 3).Value = TextBox2.Value
ActiveCell.Offset(10, 4).Value = TextBox3.Value
ActiveCell.Offset(10, 6).Value = ComboBox3.Value
ActiveCell.Offset(10, 7).Value = ComboBox4.Value
ActiveCell.Offset(10, 8).Value = ComboBox5.Value
ActiveCell.Offset(10, 9).Value = ComboBox6.Value
ActiveCell.Offset(10, 10).Value = ComboBox7.Value
ActiveCell.Offset(10, 11).Value = CheckBox1.Value
ActiveCell.Offset(10, 12).Value = CheckBox2.Value
ActiveCell.Offset(10, 13).Value = ComboBox18.Value
ActiveCell.Offset(10, 14).Value = ComboBox43.Value
ActiveCell.Offset(10, 15).Value = ComboBox68.Value
ActiveCell.Offset(10, 16).Value = ComboBox93.Value
ActiveCell.Offset(10, 17).Value = ComboBox118.Value
ActiveCell.Offset(10, 18).Value = TextBox17.Value
ActiveCell.Offset(10, 19).Value = TextBox42.Value
ActiveCell.Offset(10, 21).Value = ComboBox143.Value
ActiveCell.Offset(10, 24).Value = TextBox59.Value
ActiveCell.Offset(10, 25).Value = TextBox60.Value
ActiveCell.Offset(10, 26).Value = TextBox5.Value

If TextBox43.Value = "" Then GoTo bitir
ActiveCell.Offset(11, 0).Value = TextBox1.Value
ActiveCell.Offset(11, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(11, 2).Value = ComboBox2.Value
ActiveCell.Offset(11, 3).Value = TextBox2.Value
ActiveCell.Offset(11, 4).Value = TextBox3.Value
ActiveCell.Offset(11, 6).Value = ComboBox3.Value
ActiveCell.Offset(11, 7).Value = ComboBox4.Value
ActiveCell.Offset(11, 8).Value = ComboBox5.Value
ActiveCell.Offset(11, 9).Value = ComboBox6.Value
ActiveCell.Offset(11, 10).Value = ComboBox7.Value
ActiveCell.Offset(11, 11).Value = CheckBox1.Value
ActiveCell.Offset(11, 12).Value = CheckBox2.Value
ActiveCell.Offset(11, 13).Value = ComboBox19.Value
ActiveCell.Offset(11, 14).Value = ComboBox44.Value
ActiveCell.Offset(11, 15).Value = ComboBox69.Value
ActiveCell.Offset(11, 16).Value = ComboBox94.Value
ActiveCell.Offset(11, 17).Value = ComboBox119.Value
ActiveCell.Offset(11, 18).Value = TextBox18.Value
ActiveCell.Offset(11, 19).Value = TextBox43.Value
ActiveCell.Offset(11, 21).Value = ComboBox144.Value
ActiveCell.Offset(11, 24).Value = TextBox59.Value
ActiveCell.Offset(11, 25).Value = TextBox60.Value
ActiveCell.Offset(11, 26).Value = TextBox5.Value

If TextBox44.Value = "" Then GoTo bitir
ActiveCell.Offset(12, 0).Value = TextBox1.Value
ActiveCell.Offset(12, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(12, 2).Value = ComboBox2.Value
ActiveCell.Offset(12, 3).Value = TextBox2.Value
ActiveCell.Offset(12, 4).Value = TextBox3.Value
ActiveCell.Offset(12, 6).Value = ComboBox3.Value
ActiveCell.Offset(12, 7).Value = ComboBox4.Value
ActiveCell.Offset(12, 8).Value = ComboBox5.Value
ActiveCell.Offset(12, 9).Value = ComboBox6.Value
ActiveCell.Offset(12, 10).Value = ComboBox7.Value
ActiveCell.Offset(12, 11).Value = CheckBox1.Value
ActiveCell.Offset(12, 12).Value = CheckBox2.Value
ActiveCell.Offset(12, 13).Value = ComboBox20.Value
ActiveCell.Offset(12, 14).Value = ComboBox45.Value
ActiveCell.Offset(12, 15).Value = ComboBox70.Value
ActiveCell.Offset(12, 16).Value = ComboBox95.Value
ActiveCell.Offset(12, 17).Value = ComboBox120.Value
ActiveCell.Offset(12, 18).Value = TextBox19.Value
ActiveCell.Offset(12, 19).Value = TextBox44.Value
ActiveCell.Offset(12, 21).Value = ComboBox145.Value
ActiveCell.Offset(12, 24).Value = TextBox59.Value
ActiveCell.Offset(12, 25).Value = TextBox60.Value
ActiveCell.Offset(12, 26).Value = TextBox5.Value

If TextBox45.Value = "" Then GoTo bitir
ActiveCell.Offset(13, 0).Value = TextBox1.Value
ActiveCell.Offset(13, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(13, 2).Value = ComboBox2.Value
ActiveCell.Offset(13, 3).Value = TextBox2.Value
ActiveCell.Offset(13, 4).Value = TextBox3.Value
ActiveCell.Offset(13, 6).Value = ComboBox3.Value
ActiveCell.Offset(13, 7).Value = ComboBox4.Value
ActiveCell.Offset(13, 8).Value = ComboBox5.Value
ActiveCell.Offset(13, 9).Value = ComboBox6.Value
ActiveCell.Offset(13, 10).Value = ComboBox7.Value
ActiveCell.Offset(13, 11).Value = CheckBox1.Value
ActiveCell.Offset(13, 12).Value = CheckBox2.Value
ActiveCell.Offset(13, 13).Value = ComboBox21.Value
ActiveCell.Offset(13, 14).Value = ComboBox46.Value
ActiveCell.Offset(13, 15).Value = ComboBox71.Value
ActiveCell.Offset(13, 16).Value = ComboBox96.Value
ActiveCell.Offset(13, 17).Value = ComboBox121.Value
ActiveCell.Offset(13, 18).Value = TextBox20.Value
ActiveCell.Offset(13, 19).Value = TextBox45.Value
ActiveCell.Offset(13, 21).Value = ComboBox146.Value
ActiveCell.Offset(13, 24).Value = TextBox59.Value
ActiveCell.Offset(13, 25).Value = TextBox60.Value
ActiveCell.Offset(13, 26).Value = TextBox5.Value

If TextBox46.Value = "" Then GoTo bitir
ActiveCell.Offset(14, 0).Value = TextBox1.Value
ActiveCell.Offset(14, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(14, 2).Value = ComboBox2.Value
ActiveCell.Offset(14, 3).Value = TextBox2.Value
ActiveCell.Offset(14, 4).Value = TextBox3.Value
ActiveCell.Offset(14, 6).Value = ComboBox3.Value
ActiveCell.Offset(14, 7).Value = ComboBox4.Value
ActiveCell.Offset(14, 8).Value = ComboBox5.Value
ActiveCell.Offset(14, 9).Value = ComboBox6.Value
ActiveCell.Offset(14, 10).Value = ComboBox7.Value
ActiveCell.Offset(14, 11).Value = CheckBox1.Value
ActiveCell.Offset(14, 12).Value = CheckBox2.Value
ActiveCell.Offset(14, 13).Value = ComboBox22.Value
ActiveCell.Offset(14, 14).Value = ComboBox47.Value
ActiveCell.Offset(14, 15).Value = ComboBox72.Value
ActiveCell.Offset(14, 16).Value = ComboBox97.Value
ActiveCell.Offset(14, 17).Value = ComboBox122.Value
ActiveCell.Offset(14, 18).Value = TextBox21.Value
ActiveCell.Offset(14, 19).Value = TextBox46.Value
ActiveCell.Offset(14, 21).Value = ComboBox147.Value
ActiveCell.Offset(14, 24).Value = TextBox59.Value
ActiveCell.Offset(14, 25).Value = TextBox60.Value
ActiveCell.Offset(14, 26).Value = TextBox5.Value

If TextBox47.Value = "" Then GoTo bitir
ActiveCell.Offset(15, 0).Value = TextBox1.Value
ActiveCell.Offset(15, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(15, 2).Value = ComboBox2.Value
ActiveCell.Offset(15, 3).Value = TextBox2.Value
ActiveCell.Offset(15, 4).Value = TextBox3.Value
ActiveCell.Offset(15, 6).Value = ComboBox3.Value
ActiveCell.Offset(15, 7).Value = ComboBox4.Value
ActiveCell.Offset(15, 8).Value = ComboBox5.Value
ActiveCell.Offset(15, 9).Value = ComboBox6.Value
ActiveCell.Offset(15, 10).Value = ComboBox7.Value
ActiveCell.Offset(15, 11).Value = CheckBox1.Value
ActiveCell.Offset(15, 12).Value = CheckBox2.Value
ActiveCell.Offset(15, 13).Value = ComboBox23.Value
ActiveCell.Offset(15, 14).Value = ComboBox48.Value
ActiveCell.Offset(15, 15).Value = ComboBox73.Value
ActiveCell.Offset(15, 16).Value = ComboBox98.Value
ActiveCell.Offset(15, 17).Value = ComboBox123.Value
ActiveCell.Offset(15, 18).Value = TextBox22.Value
ActiveCell.Offset(15, 19).Value = TextBox47.Value
ActiveCell.Offset(15, 21).Value = ComboBox148.Value
ActiveCell.Offset(15, 24).Value = TextBox59.Value
ActiveCell.Offset(15, 25).Value = TextBox60.Value
ActiveCell.Offset(15, 26).Value = TextBox5.Value

If TextBox48.Value = "" Then GoTo bitir
ActiveCell.Offset(16, 0).Value = TextBox1.Value
ActiveCell.Offset(16, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(16, 2).Value = ComboBox2.Value
ActiveCell.Offset(16, 3).Value = TextBox2.Value
ActiveCell.Offset(16, 4).Value = TextBox3.Value
ActiveCell.Offset(16, 6).Value = ComboBox3.Value
ActiveCell.Offset(16, 7).Value = ComboBox4.Value
ActiveCell.Offset(16, 8).Value = ComboBox5.Value
ActiveCell.Offset(16, 9).Value = ComboBox6.Value
ActiveCell.Offset(16, 10).Value = ComboBox7.Value
ActiveCell.Offset(16, 11).Value = CheckBox1.Value
ActiveCell.Offset(16, 12).Value = CheckBox2.Value
ActiveCell.Offset(16, 13).Value = ComboBox24.Value
ActiveCell.Offset(16, 14).Value = ComboBox49.Value
ActiveCell.Offset(16, 15).Value = ComboBox74.Value
ActiveCell.Offset(16, 16).Value = ComboBox99.Value
ActiveCell.Offset(16, 17).Value = ComboBox124.Value
ActiveCell.Offset(16, 18).Value = TextBox23.Value
ActiveCell.Offset(16, 19).Value = TextBox48.Value
ActiveCell.Offset(16, 21).Value = ComboBox149.Value
ActiveCell.Offset(16, 24).Value = TextBox59.Value
ActiveCell.Offset(16, 25).Value = TextBox60.Value
ActiveCell.Offset(16, 26).Value = TextBox5.Value

If TextBox49.Value = "" Then GoTo bitir
ActiveCell.Offset(17, 0).Value = TextBox1.Value
ActiveCell.Offset(17, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(17, 2).Value = ComboBox2.Value
ActiveCell.Offset(17, 3).Value = TextBox2.Value
ActiveCell.Offset(17, 4).Value = TextBox3.Value
ActiveCell.Offset(17, 6).Value = ComboBox3.Value
ActiveCell.Offset(17, 7).Value = ComboBox4.Value
ActiveCell.Offset(17, 8).Value = ComboBox5.Value
ActiveCell.Offset(17, 9).Value = ComboBox6.Value
ActiveCell.Offset(17, 10).Value = ComboBox7.Value
ActiveCell.Offset(17, 11).Value = CheckBox1.Value
ActiveCell.Offset(17, 12).Value = CheckBox2.Value
ActiveCell.Offset(17, 13).Value = ComboBox25.Value
ActiveCell.Offset(17, 14).Value = ComboBox50.Value
ActiveCell.Offset(17, 15).Value = ComboBox75.Value
ActiveCell.Offset(17, 16).Value = ComboBox100.Value
ActiveCell.Offset(17, 17).Value = ComboBox125.Value
ActiveCell.Offset(17, 18).Value = TextBox24.Value
ActiveCell.Offset(17, 19).Value = TextBox49.Value
ActiveCell.Offset(17, 21).Value = ComboBox150.Value
ActiveCell.Offset(17, 24).Value = TextBox59.Value
ActiveCell.Offset(17, 25).Value = TextBox60.Value
ActiveCell.Offset(17, 26).Value = TextBox5.Value

If TextBox50.Value = "" Then GoTo bitir
ActiveCell.Offset(18, 0).Value = TextBox1.Value
ActiveCell.Offset(18, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(18, 2).Value = ComboBox2.Value
ActiveCell.Offset(18, 3).Value = TextBox2.Value
ActiveCell.Offset(18, 4).Value = TextBox3.Value
ActiveCell.Offset(18, 6).Value = ComboBox3.Value
ActiveCell.Offset(18, 7).Value = ComboBox4.Value
ActiveCell.Offset(18, 8).Value = ComboBox5.Value
ActiveCell.Offset(18, 9).Value = ComboBox6.Value
ActiveCell.Offset(18, 10).Value = ComboBox7.Value
ActiveCell.Offset(18, 11).Value = CheckBox1.Value
ActiveCell.Offset(18, 12).Value = CheckBox2.Value
ActiveCell.Offset(18, 13).Value = ComboBox26.Value
ActiveCell.Offset(18, 14).Value = ComboBox51.Value
ActiveCell.Offset(18, 15).Value = ComboBox76.Value
ActiveCell.Offset(18, 16).Value = ComboBox101.Value
ActiveCell.Offset(18, 17).Value = ComboBox126.Value
ActiveCell.Offset(18, 18).Value = TextBox25.Value
ActiveCell.Offset(18, 19).Value = TextBox50.Value
ActiveCell.Offset(18, 21).Value = ComboBox151.Value
ActiveCell.Offset(18, 24).Value = TextBox59.Value
ActiveCell.Offset(18, 25).Value = TextBox60.Value
ActiveCell.Offset(18, 26).Value = TextBox5.Value

If TextBox51.Value = "" Then GoTo bitir
ActiveCell.Offset(19, 0).Value = TextBox1.Value
ActiveCell.Offset(19, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(19, 2).Value = ComboBox2.Value
ActiveCell.Offset(19, 3).Value = TextBox2.Value
ActiveCell.Offset(19, 4).Value = TextBox3.Value
ActiveCell.Offset(19, 6).Value = ComboBox3.Value
ActiveCell.Offset(19, 7).Value = ComboBox4.Value
ActiveCell.Offset(19, 8).Value = ComboBox5.Value
ActiveCell.Offset(19, 9).Value = ComboBox6.Value
ActiveCell.Offset(19, 10).Value = ComboBox7.Value
ActiveCell.Offset(19, 11).Value = CheckBox1.Value
ActiveCell.Offset(19, 12).Value = CheckBox2.Value
ActiveCell.Offset(19, 13).Value = ComboBox27.Value
ActiveCell.Offset(19, 14).Value = ComboBox52.Value
ActiveCell.Offset(19, 15).Value = ComboBox77.Value
ActiveCell.Offset(19, 16).Value = ComboBox102.Value
ActiveCell.Offset(19, 17).Value = ComboBox127.Value
ActiveCell.Offset(19, 18).Value = TextBox26.Value
ActiveCell.Offset(19, 19).Value = TextBox51.Value
ActiveCell.Offset(19, 21).Value = ComboBox152.Value
ActiveCell.Offset(19, 24).Value = TextBox59.Value
ActiveCell.Offset(19, 25).Value = TextBox60.Value
ActiveCell.Offset(19, 26).Value = TextBox5.Value

If TextBox52.Value = "" Then GoTo bitir
ActiveCell.Offset(20, 0).Value = TextBox1.Value
ActiveCell.Offset(20, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(20, 2).Value = ComboBox2.Value
ActiveCell.Offset(20, 3).Value = TextBox2.Value
ActiveCell.Offset(20, 4).Value = TextBox3.Value
ActiveCell.Offset(20, 6).Value = ComboBox3.Value
ActiveCell.Offset(20, 7).Value = ComboBox4.Value
ActiveCell.Offset(20, 8).Value = ComboBox5.Value
ActiveCell.Offset(20, 9).Value = ComboBox6.Value
ActiveCell.Offset(20, 10).Value = ComboBox7.Value
ActiveCell.Offset(20, 11).Value = CheckBox1.Value
ActiveCell.Offset(20, 12).Value = CheckBox2.Value
ActiveCell.Offset(20, 13).Value = ComboBox28.Value
ActiveCell.Offset(20, 14).Value = ComboBox53.Value
ActiveCell.Offset(20, 15).Value = ComboBox78.Value
ActiveCell.Offset(20, 16).Value = ComboBox103.Value
ActiveCell.Offset(20, 17).Value = ComboBox128.Value
ActiveCell.Offset(20, 18).Value = TextBox27.Value
ActiveCell.Offset(20, 19).Value = TextBox52.Value
ActiveCell.Offset(20, 21).Value = ComboBox153.Value
ActiveCell.Offset(20, 24).Value = TextBox59.Value
ActiveCell.Offset(20, 25).Value = TextBox60.Value
ActiveCell.Offset(20, 26).Value = TextBox5.Value

If TextBox53.Value = "" Then GoTo bitir
ActiveCell.Offset(21, 0).Value = TextBox1.Value
ActiveCell.Offset(21, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(21, 2).Value = ComboBox2.Value
ActiveCell.Offset(21, 3).Value = TextBox2.Value
ActiveCell.Offset(21, 4).Value = TextBox3.Value
ActiveCell.Offset(21, 6).Value = ComboBox3.Value
ActiveCell.Offset(21, 7).Value = ComboBox4.Value
ActiveCell.Offset(21, 8).Value = ComboBox5.Value
ActiveCell.Offset(21, 9).Value = ComboBox6.Value
ActiveCell.Offset(21, 10).Value = ComboBox7.Value
ActiveCell.Offset(21, 11).Value = CheckBox1.Value
ActiveCell.Offset(21, 12).Value = CheckBox2.Value
ActiveCell.Offset(21, 13).Value = ComboBox29.Value
ActiveCell.Offset(21, 14).Value = ComboBox54.Value
ActiveCell.Offset(21, 15).Value = ComboBox79.Value
ActiveCell.Offset(21, 16).Value = ComboBox104.Value
ActiveCell.Offset(21, 17).Value = ComboBox129.Value
ActiveCell.Offset(21, 18).Value = TextBox28.Value
ActiveCell.Offset(21, 19).Value = TextBox53.Value
ActiveCell.Offset(21, 21).Value = ComboBox154.Value
ActiveCell.Offset(21, 24).Value = TextBox59.Value
ActiveCell.Offset(21, 25).Value = TextBox60.Value
ActiveCell.Offset(21, 26).Value = TextBox5.Value

If TextBox54.Value = "" Then GoTo bitir
ActiveCell.Offset(22, 0).Value = TextBox1.Value
ActiveCell.Offset(22, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(22, 2).Value = ComboBox2.Value
ActiveCell.Offset(22, 3).Value = TextBox2.Value
ActiveCell.Offset(22, 4).Value = TextBox3.Value
ActiveCell.Offset(22, 6).Value = ComboBox3.Value
ActiveCell.Offset(22, 7).Value = ComboBox4.Value
ActiveCell.Offset(22, 8).Value = ComboBox5.Value
ActiveCell.Offset(22, 9).Value = ComboBox6.Value
ActiveCell.Offset(22, 10).Value = ComboBox7.Value
ActiveCell.Offset(22, 11).Value = CheckBox1.Value
ActiveCell.Offset(22, 12).Value = CheckBox2.Value
ActiveCell.Offset(22, 13).Value = ComboBox30.Value
ActiveCell.Offset(22, 14).Value = ComboBox55.Value
ActiveCell.Offset(22, 15).Value = ComboBox80.Value
ActiveCell.Offset(22, 16).Value = ComboBox105.Value
ActiveCell.Offset(22, 17).Value = ComboBox130.Value
ActiveCell.Offset(22, 18).Value = TextBox29.Value
ActiveCell.Offset(22, 19).Value = TextBox54.Value
ActiveCell.Offset(22, 21).Value = ComboBox155.Value
ActiveCell.Offset(22, 24).Value = TextBox59.Value
ActiveCell.Offset(22, 25).Value = TextBox60.Value
ActiveCell.Offset(22, 26).Value = TextBox5.Value

If TextBox55.Value = "" Then GoTo bitir
ActiveCell.Offset(23, 0).Value = TextBox1.Value
ActiveCell.Offset(23, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(23, 2).Value = ComboBox2.Value
ActiveCell.Offset(23, 3).Value = TextBox2.Value
ActiveCell.Offset(23, 4).Value = TextBox3.Value
ActiveCell.Offset(23, 6).Value = ComboBox3.Value
ActiveCell.Offset(23, 7).Value = ComboBox4.Value
ActiveCell.Offset(23, 8).Value = ComboBox5.Value
ActiveCell.Offset(23, 9).Value = ComboBox6.Value
ActiveCell.Offset(23, 10).Value = ComboBox7.Value
ActiveCell.Offset(23, 11).Value = CheckBox1.Value
ActiveCell.Offset(23, 12).Value = CheckBox2.Value
ActiveCell.Offset(23, 13).Value = ComboBox31.Value
ActiveCell.Offset(23, 14).Value = ComboBox56.Value
ActiveCell.Offset(23, 15).Value = ComboBox81.Value
ActiveCell.Offset(23, 16).Value = ComboBox106.Value
ActiveCell.Offset(23, 17).Value = ComboBox131.Value
ActiveCell.Offset(23, 18).Value = TextBox30.Value
ActiveCell.Offset(23, 19).Value = TextBox55.Value
ActiveCell.Offset(23, 21).Value = ComboBox156.Value
ActiveCell.Offset(23, 24).Value = TextBox59.Value
ActiveCell.Offset(23, 25).Value = TextBox60.Value
ActiveCell.Offset(23, 26).Value = TextBox5.Value

If TextBox56.Value = "" Then GoTo bitir
ActiveCell.Offset(24, 0).Value = TextBox1.Value
ActiveCell.Offset(24, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(24, 2).Value = ComboBox2.Value
ActiveCell.Offset(24, 3).Value = TextBox2.Value
ActiveCell.Offset(24, 4).Value = TextBox3.Value
ActiveCell.Offset(24, 6).Value = ComboBox3.Value
ActiveCell.Offset(24, 7).Value = ComboBox4.Value
ActiveCell.Offset(24, 8).Value = ComboBox5.Value
ActiveCell.Offset(24, 9).Value = ComboBox6.Value
ActiveCell.Offset(24, 10).Value = ComboBox7.Value
ActiveCell.Offset(24, 11).Value = CheckBox1.Value
ActiveCell.Offset(24, 12).Value = CheckBox2.Value
ActiveCell.Offset(24, 13).Value = ComboBox32.Value
ActiveCell.Offset(24, 14).Value = ComboBox57.Value
ActiveCell.Offset(24, 15).Value = ComboBox82.Value
ActiveCell.Offset(24, 16).Value = ComboBox107.Value
ActiveCell.Offset(24, 17).Value = ComboBox132.Value
ActiveCell.Offset(24, 18).Value = TextBox31.Value
ActiveCell.Offset(24, 19).Value = TextBox56.Value
ActiveCell.Offset(24, 21).Value = ComboBox157.Value
ActiveCell.Offset(24, 24).Value = TextBox59.Value
ActiveCell.Offset(24, 25).Value = TextBox60.Value
ActiveCell.Offset(24, 26).Value = TextBox5.Value
End Sub
kodların hepsi bu ama yok biewryerde yalnıs yapıyorum ama nerde
ugras ve emeklerinizin karsılıgı odenmez ama gercekten kucak dolusu saygı ve tesekkurler ederim
 
U

uguristanbul

Katılım
25 Aralık 2007
Mesajlar
335
Excel Vers. ve Dili
exel 2000 türkçe
Private Sub CommandButton1_Click()
Sheets("DATA").Select 'Data sayfasını seç
Range("B5").Select 'B5 hücresini seç
Do While Not IsEmpty(ActiveCell) 'Eğer B5 boş değilse boş hücreyi bulana kadar alt satırı seç
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = TextBox1.Value 'İlk boş hücrenin değeri textbox1'in değeridir

ActiveCell.Offset(0, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(0, 2).Value = ComboBox2.Value
ActiveCell.Offset(0, 3).Value = TextBox2.Value
ActiveCell.Offset(0, 4).Value = TextBox3.Value
ActiveCell.Offset(0, 5).Value = TextBox4.Value
ActiveCell.Offset(0, 6).Value = ComboBox3.Value
ActiveCell.Offset(0, 7).Value = ComboBox4.Value
ActiveCell.Offset(0, 8).Value = ComboBox5.Value
ActiveCell.Offset(0, 9).Value = ComboBox6.Value
ActiveCell.Offset(0, 10).Value = ComboBox7.Value
ActiveCell.Offset(0, 11).Value = CheckBox1.Value
ActiveCell.Offset(0, 12).Value = CheckBox2.Value
ActiveCell.Offset(0, 13).Value = ComboBox8.Value
ActiveCell.Offset(0, 14).Value = ComboBox33.Value
ActiveCell.Offset(0, 15).Value = ComboBox58.Value
ActiveCell.Offset(0, 16).Value = ComboBox83.Value
ActiveCell.Offset(0, 17).Value = ComboBox108.Value
ActiveCell.Offset(0, 18).Value = TextBox7.Value
ActiveCell.Offset(0, 19).Value = TextBox32.Value
ActiveCell.Offset(0, 21).Value = ComboBox133.Value
ActiveCell.Offset(0, 22).Value = TextBox57.Value
ActiveCell.Offset(0, 23).Value = TextBox58.Value
ActiveCell.Offset(0, 24).Value = TextBox59.Value
ActiveCell.Offset(0, 25).Value = TextBox60.Value
ActiveCell.Offset(0, 26).Value = TextBox5.Value

If TextBox33 = Empty Then GoTo 10
ActiveCell.Offset(1, 0).Value = TextBox1.Value
ActiveCell.Offset(1, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(1, 2).Value = ComboBox2.Value
ActiveCell.Offset(1, 3).Value = TextBox2.Value
ActiveCell.Offset(1, 4).Value = TextBox3.Value
ActiveCell.Offset(1, 6).Value = ComboBox3.Value
ActiveCell.Offset(1, 7).Value = ComboBox4.Value
ActiveCell.Offset(1, 8).Value = ComboBox5.Value
ActiveCell.Offset(1, 9).Value = ComboBox6.Value
ActiveCell.Offset(1, 10).Value = ComboBox7.Value
ActiveCell.Offset(1, 11).Value = CheckBox1.Value
ActiveCell.Offset(1, 12).Value = CheckBox2.Value
ActiveCell.Offset(1, 13).Value = ComboBox9.Value
ActiveCell.Offset(1, 14).Value = ComboBox34.Value
ActiveCell.Offset(1, 15).Value = ComboBox59.Value
ActiveCell.Offset(1, 16).Value = ComboBox84.Value
ActiveCell.Offset(1, 17).Value = ComboBox109.Value
ActiveCell.Offset(1, 18).Value = TextBox8.Value
ActiveCell.Offset(1, 19).Value = TextBox33.Value
ActiveCell.Offset(1, 21).Value = ComboBox134.Value
ActiveCell.Offset(1, 24).Value = TextBox59.Value
ActiveCell.Offset(1, 25).Value = TextBox60.Value
ActiveCell.Offset(1, 26).Value = TextBox5.Value
10
If TextBox34 = Empty Then GoTo 10
ActiveCell.Offset(2, 0).Value = TextBox1.Value
ActiveCell.Offset(2, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(2, 2).Value = ComboBox2.Value
ActiveCell.Offset(2, 3).Value = TextBox2.Value
ActiveCell.Offset(2, 4).Value = TextBox3.Value
ActiveCell.Offset(2, 6).Value = ComboBox3.Value
ActiveCell.Offset(2, 7).Value = ComboBox4.Value
ActiveCell.Offset(2, 8).Value = ComboBox5.Value
ActiveCell.Offset(2, 9).Value = ComboBox6.Value
ActiveCell.Offset(2, 10).Value = ComboBox7.Value
ActiveCell.Offset(2, 11).Value = CheckBox1.Value
ActiveCell.Offset(2, 12).Value = CheckBox2.Value
ActiveCell.Offset(2, 13).Value = ComboBox10.Value
ActiveCell.Offset(2, 14).Value = ComboBox35.Value
ActiveCell.Offset(2, 15).Value = ComboBox60.Value
ActiveCell.Offset(2, 16).Value = ComboBox85.Value
ActiveCell.Offset(2, 17).Value = ComboBox110.Value
ActiveCell.Offset(2, 18).Value = TextBox9.Value
ActiveCell.Offset(2, 19).Value = TextBox34.Value
ActiveCell.Offset(2, 21).Value = ComboBox135.Value
ActiveCell.Offset(2, 24).Value = TextBox59.Value
ActiveCell.Offset(2, 25).Value = TextBox60.Value
ActiveCell.Offset(2, 26).Value = TextBox5.Value
10
If TextBox35 = Empty Then GoTo 10
ActiveCell.Offset(3, 0).Value = TextBox1.Value
ActiveCell.Offset(3, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(3, 2).Value = ComboBox2.Value
ActiveCell.Offset(3, 3).Value = TextBox2.Value
ActiveCell.Offset(3, 4).Value = TextBox3.Value
ActiveCell.Offset(3, 6).Value = ComboBox3.Value
ActiveCell.Offset(3, 7).Value = ComboBox4.Value
ActiveCell.Offset(3, 8).Value = ComboBox5.Value
ActiveCell.Offset(3, 9).Value = ComboBox6.Value
ActiveCell.Offset(3, 10).Value = ComboBox7.Value
ActiveCell.Offset(3, 11).Value = CheckBox1.Value
ActiveCell.Offset(3, 12).Value = CheckBox2.Value
ActiveCell.Offset(3, 13).Value = ComboBox11.Value
ActiveCell.Offset(3, 14).Value = ComboBox36.Value
ActiveCell.Offset(3, 15).Value = ComboBox61.Value
ActiveCell.Offset(3, 16).Value = ComboBox86.Value
ActiveCell.Offset(3, 17).Value = ComboBox111.Value
ActiveCell.Offset(3, 18).Value = TextBox10.Value
ActiveCell.Offset(3, 19).Value = TextBox35.Value
ActiveCell.Offset(3, 21).Value = ComboBox136.Value
ActiveCell.Offset(3, 24).Value = TextBox59.Value
ActiveCell.Offset(3, 25).Value = TextBox60.Value
ActiveCell.Offset(3, 26).Value = TextBox5.Value
10
If TextBox36 = Empty Then GoTo 10
ActiveCell.Offset(4, 0).Value = TextBox1.Value
ActiveCell.Offset(4, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(4, 2).Value = ComboBox2.Value
ActiveCell.Offset(4, 3).Value = TextBox2.Value
ActiveCell.Offset(4, 4).Value = TextBox3.Value
ActiveCell.Offset(4, 6).Value = ComboBox3.Value
ActiveCell.Offset(4, 7).Value = ComboBox4.Value
ActiveCell.Offset(4, 8).Value = ComboBox5.Value
ActiveCell.Offset(4, 9).Value = ComboBox6.Value
ActiveCell.Offset(4, 10).Value = ComboBox7.Value
ActiveCell.Offset(4, 11).Value = CheckBox1.Value
ActiveCell.Offset(4, 12).Value = CheckBox2.Value
ActiveCell.Offset(4, 13).Value = ComboBox12.Value
ActiveCell.Offset(4, 14).Value = ComboBox37.Value
ActiveCell.Offset(4, 15).Value = ComboBox62.Value
ActiveCell.Offset(4, 16).Value = ComboBox87.Value
ActiveCell.Offset(4, 17).Value = ComboBox112.Value
ActiveCell.Offset(4, 18).Value = TextBox11.Value
ActiveCell.Offset(4, 19).Value = TextBox36.Value
ActiveCell.Offset(4, 21).Value = ComboBox137.Value
ActiveCell.Offset(4, 24).Value = TextBox59.Value
ActiveCell.Offset(4, 25).Value = TextBox60.Value
ActiveCell.Offset(4, 26).Value = TextBox5.Value
10
If TextBox37 = Empty Then GoTo 10
ActiveCell.Offset(5, 0).Value = TextBox1.Value
ActiveCell.Offset(5, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(5, 2).Value = ComboBox2.Value
ActiveCell.Offset(5, 3).Value = TextBox2.Value
ActiveCell.Offset(5, 4).Value = TextBox3.Value
ActiveCell.Offset(5, 6).Value = ComboBox3.Value
ActiveCell.Offset(5, 7).Value = ComboBox4.Value
ActiveCell.Offset(5, 8).Value = ComboBox5.Value
ActiveCell.Offset(5, 9).Value = ComboBox6.Value
ActiveCell.Offset(5, 10).Value = ComboBox7.Value
ActiveCell.Offset(5, 11).Value = CheckBox1.Value
ActiveCell.Offset(5, 12).Value = CheckBox2.Value
ActiveCell.Offset(5, 13).Value = ComboBox13.Value
ActiveCell.Offset(5, 14).Value = ComboBox38.Value
ActiveCell.Offset(5, 15).Value = ComboBox63.Value
ActiveCell.Offset(5, 16).Value = ComboBox88.Value
ActiveCell.Offset(5, 17).Value = ComboBox113.Value
ActiveCell.Offset(5, 18).Value = TextBox12.Value
ActiveCell.Offset(5, 19).Value = TextBox37.Value
ActiveCell.Offset(5, 21).Value = ComboBox138.Value
ActiveCell.Offset(5, 24).Value = TextBox59.Value
ActiveCell.Offset(5, 25).Value = TextBox60.Value
ActiveCell.Offset(5, 26).Value = TextBox5.Value
10
If TextBox38 = Empty Then GoTo 10
ActiveCell.Offset(6, 0).Value = TextBox1.Value
ActiveCell.Offset(6, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(6, 2).Value = ComboBox2.Value
ActiveCell.Offset(6, 3).Value = TextBox2.Value
ActiveCell.Offset(6, 4).Value = TextBox3.Value
ActiveCell.Offset(6, 6).Value = ComboBox3.Value
ActiveCell.Offset(6, 7).Value = ComboBox4.Value
ActiveCell.Offset(6, 8).Value = ComboBox5.Value
ActiveCell.Offset(6, 9).Value = ComboBox6.Value
ActiveCell.Offset(6, 10).Value = ComboBox7.Value
ActiveCell.Offset(6, 11).Value = CheckBox1.Value
ActiveCell.Offset(6, 12).Value = CheckBox2.Value
ActiveCell.Offset(6, 13).Value = ComboBox14.Value
ActiveCell.Offset(6, 14).Value = ComboBox39.Value
ActiveCell.Offset(6, 15).Value = ComboBox64.Value
ActiveCell.Offset(6, 16).Value = ComboBox89.Value
ActiveCell.Offset(6, 17).Value = ComboBox114.Value
ActiveCell.Offset(6, 18).Value = TextBox13.Value
ActiveCell.Offset(6, 19).Value = TextBox38.Value
ActiveCell.Offset(6, 21).Value = ComboBox139.Value
ActiveCell.Offset(6, 24).Value = TextBox59.Value
ActiveCell.Offset(6, 25).Value = TextBox60.Value
ActiveCell.Offset(6, 26).Value = TextBox5.Value
10
If TextBox39 = Empty Then GoTo 10
ActiveCell.Offset(7, 0).Value = TextBox1.Value
ActiveCell.Offset(7, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(7, 2).Value = ComboBox2.Value
ActiveCell.Offset(7, 3).Value = TextBox2.Value
ActiveCell.Offset(7, 4).Value = TextBox3.Value
ActiveCell.Offset(7, 6).Value = ComboBox3.Value
ActiveCell.Offset(7, 7).Value = ComboBox4.Value
ActiveCell.Offset(7, 8).Value = ComboBox5.Value
ActiveCell.Offset(7, 9).Value = ComboBox6.Value
ActiveCell.Offset(7, 10).Value = ComboBox7.Value
ActiveCell.Offset(7, 11).Value = CheckBox1.Value
ActiveCell.Offset(7, 12).Value = CheckBox2.Value
ActiveCell.Offset(7, 13).Value = ComboBox15.Value
ActiveCell.Offset(7, 14).Value = ComboBox40.Value
ActiveCell.Offset(7, 15).Value = ComboBox65.Value
ActiveCell.Offset(7, 16).Value = ComboBox90.Value
ActiveCell.Offset(7, 17).Value = ComboBox115.Value
ActiveCell.Offset(7, 18).Value = TextBox14.Value
ActiveCell.Offset(7, 19).Value = TextBox39.Value
ActiveCell.Offset(7, 21).Value = ComboBox140.Value
ActiveCell.Offset(7, 24).Value = TextBox59.Value
ActiveCell.Offset(7, 25).Value = TextBox60.Value
ActiveCell.Offset(7, 26).Value = TextBox5.Value
10
If TextBox40 = Empty Then GoTo 10
ActiveCell.Offset(8, 0).Value = TextBox1.Value
ActiveCell.Offset(8, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(8, 2).Value = ComboBox2.Value
ActiveCell.Offset(8, 3).Value = TextBox2.Value
ActiveCell.Offset(8, 4).Value = TextBox3.Value
ActiveCell.Offset(8, 6).Value = ComboBox3.Value
ActiveCell.Offset(8, 7).Value = ComboBox4.Value
ActiveCell.Offset(8, 8).Value = ComboBox5.Value
ActiveCell.Offset(8, 9).Value = ComboBox6.Value
ActiveCell.Offset(8, 10).Value = ComboBox7.Value
ActiveCell.Offset(8, 11).Value = CheckBox1.Value
ActiveCell.Offset(8, 12).Value = CheckBox2.Value
ActiveCell.Offset(8, 13).Value = ComboBox16.Value
ActiveCell.Offset(8, 14).Value = ComboBox41.Value
ActiveCell.Offset(8, 15).Value = ComboBox66.Value
ActiveCell.Offset(8, 16).Value = ComboBox91.Value
ActiveCell.Offset(8, 17).Value = ComboBox116.Value
ActiveCell.Offset(8, 18).Value = TextBox15.Value
ActiveCell.Offset(8, 19).Value = TextBox40.Value
ActiveCell.Offset(8, 21).Value = ComboBox141.Value
ActiveCell.Offset(8, 24).Value = TextBox59.Value
ActiveCell.Offset(8, 25).Value = TextBox60.Value
ActiveCell.Offset(8, 26).Value = TextBox5.Value
10
If TextBox41 = Empty Then GoTo 10
ActiveCell.Offset(9, 0).Value = TextBox1.Value
ActiveCell.Offset(9, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(9, 2).Value = ComboBox2.Value
ActiveCell.Offset(9, 3).Value = TextBox2.Value
ActiveCell.Offset(9, 4).Value = TextBox3.Value
ActiveCell.Offset(9, 6).Value = ComboBox3.Value
ActiveCell.Offset(9, 7).Value = ComboBox4.Value
ActiveCell.Offset(9, 8).Value = ComboBox5.Value
ActiveCell.Offset(9, 9).Value = ComboBox6.Value
ActiveCell.Offset(9, 10).Value = ComboBox7.Value
ActiveCell.Offset(9, 11).Value = CheckBox1.Value
ActiveCell.Offset(9, 12).Value = CheckBox2.Value
ActiveCell.Offset(9, 13).Value = ComboBox17.Value
ActiveCell.Offset(9, 14).Value = ComboBox42.Value
ActiveCell.Offset(9, 15).Value = ComboBox67.Value
ActiveCell.Offset(9, 16).Value = ComboBox92.Value
ActiveCell.Offset(9, 17).Value = ComboBox117.Value
ActiveCell.Offset(9, 18).Value = TextBox16.Value
ActiveCell.Offset(9, 19).Value = TextBox41.Value
ActiveCell.Offset(9, 21).Value = ComboBox142.Value
ActiveCell.Offset(9, 24).Value = TextBox59.Value
ActiveCell.Offset(9, 25).Value = TextBox60.Value
ActiveCell.Offset(9, 26).Value = TextBox5.Value
10
If TextBox42 = Empty Then GoTo 10
ActiveCell.Offset(10, 0).Value = TextBox1.Value
ActiveCell.Offset(10, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(10, 2).Value = ComboBox2.Value
ActiveCell.Offset(10, 3).Value = TextBox2.Value
ActiveCell.Offset(10, 4).Value = TextBox3.Value
ActiveCell.Offset(10, 6).Value = ComboBox3.Value
ActiveCell.Offset(10, 7).Value = ComboBox4.Value
ActiveCell.Offset(10, 8).Value = ComboBox5.Value
ActiveCell.Offset(10, 9).Value = ComboBox6.Value
ActiveCell.Offset(10, 10).Value = ComboBox7.Value
ActiveCell.Offset(10, 11).Value = CheckBox1.Value
ActiveCell.Offset(10, 12).Value = CheckBox2.Value
ActiveCell.Offset(10, 13).Value = ComboBox18.Value
ActiveCell.Offset(10, 14).Value = ComboBox43.Value
ActiveCell.Offset(10, 15).Value = ComboBox68.Value
ActiveCell.Offset(10, 16).Value = ComboBox93.Value
ActiveCell.Offset(10, 17).Value = ComboBox118.Value
ActiveCell.Offset(10, 18).Value = TextBox17.Value
ActiveCell.Offset(10, 19).Value = TextBox42.Value
ActiveCell.Offset(10, 21).Value = ComboBox143.Value
ActiveCell.Offset(10, 24).Value = TextBox59.Value
ActiveCell.Offset(10, 25).Value = TextBox60.Value
ActiveCell.Offset(10, 26).Value = TextBox5.Value
10
If TextBox43 = Empty Then GoTo 10
ActiveCell.Offset(11, 0).Value = TextBox1.Value
ActiveCell.Offset(11, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(11, 2).Value = ComboBox2.Value
ActiveCell.Offset(11, 3).Value = TextBox2.Value
ActiveCell.Offset(11, 4).Value = TextBox3.Value
ActiveCell.Offset(11, 6).Value = ComboBox3.Value
ActiveCell.Offset(11, 7).Value = ComboBox4.Value
ActiveCell.Offset(11, 8).Value = ComboBox5.Value
ActiveCell.Offset(11, 9).Value = ComboBox6.Value
ActiveCell.Offset(11, 10).Value = ComboBox7.Value
ActiveCell.Offset(11, 11).Value = CheckBox1.Value
ActiveCell.Offset(11, 12).Value = CheckBox2.Value
ActiveCell.Offset(11, 13).Value = ComboBox19.Value
ActiveCell.Offset(11, 14).Value = ComboBox44.Value
ActiveCell.Offset(11, 15).Value = ComboBox69.Value
ActiveCell.Offset(11, 16).Value = ComboBox94.Value
ActiveCell.Offset(11, 17).Value = ComboBox119.Value
ActiveCell.Offset(11, 18).Value = TextBox18.Value
ActiveCell.Offset(11, 19).Value = TextBox43.Value
ActiveCell.Offset(11, 21).Value = ComboBox144.Value
ActiveCell.Offset(11, 24).Value = TextBox59.Value
ActiveCell.Offset(11, 25).Value = TextBox60.Value
ActiveCell.Offset(11, 26).Value = TextBox5.Value
10
If TextBox44 = Empty Then GoTo 10
ActiveCell.Offset(12, 0).Value = TextBox1.Value
ActiveCell.Offset(12, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(12, 2).Value = ComboBox2.Value
ActiveCell.Offset(12, 3).Value = TextBox2.Value
ActiveCell.Offset(12, 4).Value = TextBox3.Value
ActiveCell.Offset(12, 6).Value = ComboBox3.Value
ActiveCell.Offset(12, 7).Value = ComboBox4.Value
ActiveCell.Offset(12, 8).Value = ComboBox5.Value
ActiveCell.Offset(12, 9).Value = ComboBox6.Value
ActiveCell.Offset(12, 10).Value = ComboBox7.Value
ActiveCell.Offset(12, 11).Value = CheckBox1.Value
ActiveCell.Offset(12, 12).Value = CheckBox2.Value
ActiveCell.Offset(12, 13).Value = ComboBox20.Value
ActiveCell.Offset(12, 14).Value = ComboBox45.Value
ActiveCell.Offset(12, 15).Value = ComboBox70.Value
ActiveCell.Offset(12, 16).Value = ComboBox95.Value
ActiveCell.Offset(12, 17).Value = ComboBox120.Value
ActiveCell.Offset(12, 18).Value = TextBox19.Value
ActiveCell.Offset(12, 19).Value = TextBox44.Value
ActiveCell.Offset(12, 21).Value = ComboBox145.Value
ActiveCell.Offset(12, 24).Value = TextBox59.Value
ActiveCell.Offset(12, 25).Value = TextBox60.Value
ActiveCell.Offset(12, 26).Value = TextBox5.Value
10
If TextBox45 = Empty Then GoTo 10
ActiveCell.Offset(13, 0).Value = TextBox1.Value
ActiveCell.Offset(13, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(13, 2).Value = ComboBox2.Value
ActiveCell.Offset(13, 3).Value = TextBox2.Value
ActiveCell.Offset(13, 4).Value = TextBox3.Value
ActiveCell.Offset(13, 6).Value = ComboBox3.Value
ActiveCell.Offset(13, 7).Value = ComboBox4.Value
ActiveCell.Offset(13, 8).Value = ComboBox5.Value
ActiveCell.Offset(13, 9).Value = ComboBox6.Value
ActiveCell.Offset(13, 10).Value = ComboBox7.Value
ActiveCell.Offset(13, 11).Value = CheckBox1.Value
ActiveCell.Offset(13, 12).Value = CheckBox2.Value
ActiveCell.Offset(13, 13).Value = ComboBox21.Value
ActiveCell.Offset(13, 14).Value = ComboBox46.Value
ActiveCell.Offset(13, 15).Value = ComboBox71.Value
ActiveCell.Offset(13, 16).Value = ComboBox96.Value
ActiveCell.Offset(13, 17).Value = ComboBox121.Value
ActiveCell.Offset(13, 18).Value = TextBox20.Value
ActiveCell.Offset(13, 19).Value = TextBox45.Value
ActiveCell.Offset(13, 21).Value = ComboBox146.Value
ActiveCell.Offset(13, 24).Value = TextBox59.Value
ActiveCell.Offset(13, 25).Value = TextBox60.Value
ActiveCell.Offset(13, 26).Value = TextBox5.Value
10
If TextBox46 = Empty Then GoTo 10
ActiveCell.Offset(14, 0).Value = TextBox1.Value
ActiveCell.Offset(14, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(14, 2).Value = ComboBox2.Value
ActiveCell.Offset(14, 3).Value = TextBox2.Value
ActiveCell.Offset(14, 4).Value = TextBox3.Value
ActiveCell.Offset(14, 6).Value = ComboBox3.Value
ActiveCell.Offset(14, 7).Value = ComboBox4.Value
ActiveCell.Offset(14, 8).Value = ComboBox5.Value
ActiveCell.Offset(14, 9).Value = ComboBox6.Value
ActiveCell.Offset(14, 10).Value = ComboBox7.Value
ActiveCell.Offset(14, 11).Value = CheckBox1.Value
ActiveCell.Offset(14, 12).Value = CheckBox2.Value
ActiveCell.Offset(14, 13).Value = ComboBox22.Value
ActiveCell.Offset(14, 14).Value = ComboBox47.Value
ActiveCell.Offset(14, 15).Value = ComboBox72.Value
ActiveCell.Offset(14, 16).Value = ComboBox97.Value
ActiveCell.Offset(14, 17).Value = ComboBox122.Value
ActiveCell.Offset(14, 18).Value = TextBox21.Value
ActiveCell.Offset(14, 19).Value = TextBox46.Value
ActiveCell.Offset(14, 21).Value = ComboBox147.Value
ActiveCell.Offset(14, 24).Value = TextBox59.Value
ActiveCell.Offset(14, 25).Value = TextBox60.Value
ActiveCell.Offset(14, 26).Value = TextBox5.Value
10
If TextBox47 = Empty Then GoTo 10
ActiveCell.Offset(15, 0).Value = TextBox1.Value
ActiveCell.Offset(15, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(15, 2).Value = ComboBox2.Value
ActiveCell.Offset(15, 3).Value = TextBox2.Value
ActiveCell.Offset(15, 4).Value = TextBox3.Value
ActiveCell.Offset(15, 6).Value = ComboBox3.Value
ActiveCell.Offset(15, 7).Value = ComboBox4.Value
ActiveCell.Offset(15, 8).Value = ComboBox5.Value
ActiveCell.Offset(15, 9).Value = ComboBox6.Value
ActiveCell.Offset(15, 10).Value = ComboBox7.Value
ActiveCell.Offset(15, 11).Value = CheckBox1.Value
ActiveCell.Offset(15, 12).Value = CheckBox2.Value
ActiveCell.Offset(15, 13).Value = ComboBox23.Value
ActiveCell.Offset(15, 14).Value = ComboBox48.Value
ActiveCell.Offset(15, 15).Value = ComboBox73.Value
ActiveCell.Offset(15, 16).Value = ComboBox98.Value
ActiveCell.Offset(15, 17).Value = ComboBox123.Value
ActiveCell.Offset(15, 18).Value = TextBox22.Value
ActiveCell.Offset(15, 19).Value = TextBox47.Value
ActiveCell.Offset(15, 21).Value = ComboBox148.Value
ActiveCell.Offset(15, 24).Value = TextBox59.Value
ActiveCell.Offset(15, 25).Value = TextBox60.Value
ActiveCell.Offset(15, 26).Value = TextBox5.Value
10
If TextBox48 = Empty Then GoTo 10
ActiveCell.Offset(16, 0).Value = TextBox1.Value
ActiveCell.Offset(16, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(16, 2).Value = ComboBox2.Value
ActiveCell.Offset(16, 3).Value = TextBox2.Value
ActiveCell.Offset(16, 4).Value = TextBox3.Value
ActiveCell.Offset(16, 6).Value = ComboBox3.Value
ActiveCell.Offset(16, 7).Value = ComboBox4.Value
ActiveCell.Offset(16, 8).Value = ComboBox5.Value
ActiveCell.Offset(16, 9).Value = ComboBox6.Value
ActiveCell.Offset(16, 10).Value = ComboBox7.Value
ActiveCell.Offset(16, 11).Value = CheckBox1.Value
ActiveCell.Offset(16, 12).Value = CheckBox2.Value
ActiveCell.Offset(16, 13).Value = ComboBox24.Value
ActiveCell.Offset(16, 14).Value = ComboBox49.Value
ActiveCell.Offset(16, 15).Value = ComboBox74.Value
ActiveCell.Offset(16, 16).Value = ComboBox99.Value
ActiveCell.Offset(16, 17).Value = ComboBox124.Value
ActiveCell.Offset(16, 18).Value = TextBox23.Value
ActiveCell.Offset(16, 19).Value = TextBox48.Value
ActiveCell.Offset(16, 21).Value = ComboBox149.Value
ActiveCell.Offset(16, 24).Value = TextBox59.Value
ActiveCell.Offset(16, 25).Value = TextBox60.Value
ActiveCell.Offset(16, 26).Value = TextBox5.Value
10
If TextBox49 = Empty Then GoTo 10
ActiveCell.Offset(17, 0).Value = TextBox1.Value
ActiveCell.Offset(17, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(17, 2).Value = ComboBox2.Value
ActiveCell.Offset(17, 3).Value = TextBox2.Value
ActiveCell.Offset(17, 4).Value = TextBox3.Value
ActiveCell.Offset(17, 6).Value = ComboBox3.Value
ActiveCell.Offset(17, 7).Value = ComboBox4.Value
ActiveCell.Offset(17, 8).Value = ComboBox5.Value
ActiveCell.Offset(17, 9).Value = ComboBox6.Value
ActiveCell.Offset(17, 10).Value = ComboBox7.Value
ActiveCell.Offset(17, 11).Value = CheckBox1.Value
ActiveCell.Offset(17, 12).Value = CheckBox2.Value
ActiveCell.Offset(17, 13).Value = ComboBox25.Value
ActiveCell.Offset(17, 14).Value = ComboBox50.Value
ActiveCell.Offset(17, 15).Value = ComboBox75.Value
ActiveCell.Offset(17, 16).Value = ComboBox100.Value
ActiveCell.Offset(17, 17).Value = ComboBox125.Value
ActiveCell.Offset(17, 18).Value = TextBox24.Value
ActiveCell.Offset(17, 19).Value = TextBox49.Value
ActiveCell.Offset(17, 21).Value = ComboBox150.Value
ActiveCell.Offset(17, 24).Value = TextBox59.Value
ActiveCell.Offset(17, 25).Value = TextBox60.Value
ActiveCell.Offset(17, 26).Value = TextBox5.Value
10
If TextBox50 = Empty Then GoTo 10
ActiveCell.Offset(18, 0).Value = TextBox1.Value
ActiveCell.Offset(18, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(18, 2).Value = ComboBox2.Value
ActiveCell.Offset(18, 3).Value = TextBox2.Value
ActiveCell.Offset(18, 4).Value = TextBox3.Value
ActiveCell.Offset(18, 6).Value = ComboBox3.Value
ActiveCell.Offset(18, 7).Value = ComboBox4.Value
ActiveCell.Offset(18, 8).Value = ComboBox5.Value
ActiveCell.Offset(18, 9).Value = ComboBox6.Value
ActiveCell.Offset(18, 10).Value = ComboBox7.Value
ActiveCell.Offset(18, 11).Value = CheckBox1.Value
ActiveCell.Offset(18, 12).Value = CheckBox2.Value
ActiveCell.Offset(18, 13).Value = ComboBox26.Value
ActiveCell.Offset(18, 14).Value = ComboBox51.Value
ActiveCell.Offset(18, 15).Value = ComboBox76.Value
ActiveCell.Offset(18, 16).Value = ComboBox101.Value
ActiveCell.Offset(18, 17).Value = ComboBox126.Value
ActiveCell.Offset(18, 18).Value = TextBox25.Value
ActiveCell.Offset(18, 19).Value = TextBox50.Value
ActiveCell.Offset(18, 21).Value = ComboBox151.Value
ActiveCell.Offset(18, 24).Value = TextBox59.Value
ActiveCell.Offset(18, 25).Value = TextBox60.Value
ActiveCell.Offset(18, 26).Value = TextBox5.Value
10
If TextBox51 = Empty Then GoTo 10
ActiveCell.Offset(19, 0).Value = TextBox1.Value
ActiveCell.Offset(19, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(19, 2).Value = ComboBox2.Value
ActiveCell.Offset(19, 3).Value = TextBox2.Value
ActiveCell.Offset(19, 4).Value = TextBox3.Value
ActiveCell.Offset(19, 6).Value = ComboBox3.Value
ActiveCell.Offset(19, 7).Value = ComboBox4.Value
ActiveCell.Offset(19, 8).Value = ComboBox5.Value
ActiveCell.Offset(19, 9).Value = ComboBox6.Value
ActiveCell.Offset(19, 10).Value = ComboBox7.Value
ActiveCell.Offset(19, 11).Value = CheckBox1.Value
ActiveCell.Offset(19, 12).Value = CheckBox2.Value
ActiveCell.Offset(19, 13).Value = ComboBox27.Value
ActiveCell.Offset(19, 14).Value = ComboBox52.Value
ActiveCell.Offset(19, 15).Value = ComboBox77.Value
ActiveCell.Offset(19, 16).Value = ComboBox102.Value
ActiveCell.Offset(19, 17).Value = ComboBox127.Value
ActiveCell.Offset(19, 18).Value = TextBox26.Value
ActiveCell.Offset(19, 19).Value = TextBox51.Value
ActiveCell.Offset(19, 21).Value = ComboBox152.Value
ActiveCell.Offset(19, 24).Value = TextBox59.Value
ActiveCell.Offset(19, 25).Value = TextBox60.Value
ActiveCell.Offset(19, 26).Value = TextBox5.Value
10
If TextBox52 = Empty Then GoTo 10
ActiveCell.Offset(20, 0).Value = TextBox1.Value
ActiveCell.Offset(20, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(20, 2).Value = ComboBox2.Value
ActiveCell.Offset(20, 3).Value = TextBox2.Value
ActiveCell.Offset(20, 4).Value = TextBox3.Value
ActiveCell.Offset(20, 6).Value = ComboBox3.Value
ActiveCell.Offset(20, 7).Value = ComboBox4.Value
ActiveCell.Offset(20, 8).Value = ComboBox5.Value
ActiveCell.Offset(20, 9).Value = ComboBox6.Value
ActiveCell.Offset(20, 10).Value = ComboBox7.Value
ActiveCell.Offset(20, 11).Value = CheckBox1.Value
ActiveCell.Offset(20, 12).Value = CheckBox2.Value
ActiveCell.Offset(20, 13).Value = ComboBox28.Value
ActiveCell.Offset(20, 14).Value = ComboBox53.Value
ActiveCell.Offset(20, 15).Value = ComboBox78.Value
ActiveCell.Offset(20, 16).Value = ComboBox103.Value
ActiveCell.Offset(20, 17).Value = ComboBox128.Value
ActiveCell.Offset(20, 18).Value = TextBox27.Value
ActiveCell.Offset(20, 19).Value = TextBox52.Value
ActiveCell.Offset(20, 21).Value = ComboBox153.Value
ActiveCell.Offset(20, 24).Value = TextBox59.Value
ActiveCell.Offset(20, 25).Value = TextBox60.Value
ActiveCell.Offset(20, 26).Value = TextBox5.Value
10
If TextBox53 = Empty Then GoTo 10
ActiveCell.Offset(21, 0).Value = TextBox1.Value
ActiveCell.Offset(21, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(21, 2).Value = ComboBox2.Value
ActiveCell.Offset(21, 3).Value = TextBox2.Value
ActiveCell.Offset(21, 4).Value = TextBox3.Value
ActiveCell.Offset(21, 6).Value = ComboBox3.Value
ActiveCell.Offset(21, 7).Value = ComboBox4.Value
ActiveCell.Offset(21, 8).Value = ComboBox5.Value
ActiveCell.Offset(21, 9).Value = ComboBox6.Value
ActiveCell.Offset(21, 10).Value = ComboBox7.Value
ActiveCell.Offset(21, 11).Value = CheckBox1.Value
ActiveCell.Offset(21, 12).Value = CheckBox2.Value
ActiveCell.Offset(21, 13).Value = ComboBox29.Value
ActiveCell.Offset(21, 14).Value = ComboBox54.Value
ActiveCell.Offset(21, 15).Value = ComboBox79.Value
ActiveCell.Offset(21, 16).Value = ComboBox104.Value
ActiveCell.Offset(21, 17).Value = ComboBox129.Value
ActiveCell.Offset(21, 18).Value = TextBox28.Value
ActiveCell.Offset(21, 19).Value = TextBox53.Value
ActiveCell.Offset(21, 21).Value = ComboBox154.Value
ActiveCell.Offset(21, 24).Value = TextBox59.Value
ActiveCell.Offset(21, 25).Value = TextBox60.Value
ActiveCell.Offset(21, 26).Value = TextBox5.Value
10
If TextBox54 = Empty Then GoTo 10
ActiveCell.Offset(22, 0).Value = TextBox1.Value
ActiveCell.Offset(22, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(22, 2).Value = ComboBox2.Value
ActiveCell.Offset(22, 3).Value = TextBox2.Value
ActiveCell.Offset(22, 4).Value = TextBox3.Value
ActiveCell.Offset(22, 6).Value = ComboBox3.Value
ActiveCell.Offset(22, 7).Value = ComboBox4.Value
ActiveCell.Offset(22, 8).Value = ComboBox5.Value
ActiveCell.Offset(22, 9).Value = ComboBox6.Value
ActiveCell.Offset(22, 10).Value = ComboBox7.Value
ActiveCell.Offset(22, 11).Value = CheckBox1.Value
ActiveCell.Offset(22, 12).Value = CheckBox2.Value
ActiveCell.Offset(22, 13).Value = ComboBox30.Value
ActiveCell.Offset(22, 14).Value = ComboBox55.Value
ActiveCell.Offset(22, 15).Value = ComboBox80.Value
ActiveCell.Offset(22, 16).Value = ComboBox105.Value
ActiveCell.Offset(22, 17).Value = ComboBox130.Value
ActiveCell.Offset(22, 18).Value = TextBox29.Value
ActiveCell.Offset(22, 19).Value = TextBox54.Value
ActiveCell.Offset(22, 21).Value = ComboBox155.Value
ActiveCell.Offset(22, 24).Value = TextBox59.Value
ActiveCell.Offset(22, 25).Value = TextBox60.Value
ActiveCell.Offset(22, 26).Value = TextBox5.Value
10
If TextBox55 = Empty Then GoTo 10
ActiveCell.Offset(23, 0).Value = TextBox1.Value
ActiveCell.Offset(23, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(23, 2).Value = ComboBox2.Value
ActiveCell.Offset(23, 3).Value = TextBox2.Value
ActiveCell.Offset(23, 4).Value = TextBox3.Value
ActiveCell.Offset(23, 6).Value = ComboBox3.Value
ActiveCell.Offset(23, 7).Value = ComboBox4.Value
ActiveCell.Offset(23, 8).Value = ComboBox5.Value
ActiveCell.Offset(23, 9).Value = ComboBox6.Value
ActiveCell.Offset(23, 10).Value = ComboBox7.Value
ActiveCell.Offset(23, 11).Value = CheckBox1.Value
ActiveCell.Offset(23, 12).Value = CheckBox2.Value
ActiveCell.Offset(23, 13).Value = ComboBox31.Value
ActiveCell.Offset(23, 14).Value = ComboBox56.Value
ActiveCell.Offset(23, 15).Value = ComboBox81.Value
ActiveCell.Offset(23, 16).Value = ComboBox106.Value
ActiveCell.Offset(23, 17).Value = ComboBox131.Value
ActiveCell.Offset(23, 18).Value = TextBox30.Value
ActiveCell.Offset(23, 19).Value = TextBox55.Value
ActiveCell.Offset(23, 21).Value = ComboBox156.Value
ActiveCell.Offset(23, 24).Value = TextBox59.Value
ActiveCell.Offset(23, 25).Value = TextBox60.Value
ActiveCell.Offset(23, 26).Value = TextBox5.Value
10
If TextBox56 = Empty Then GoTo 10
ActiveCell.Offset(24, 0).Value = TextBox1.Value
ActiveCell.Offset(24, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(24, 2).Value = ComboBox2.Value
ActiveCell.Offset(24, 3).Value = TextBox2.Value
ActiveCell.Offset(24, 4).Value = TextBox3.Value
ActiveCell.Offset(24, 6).Value = ComboBox3.Value
ActiveCell.Offset(24, 7).Value = ComboBox4.Value
ActiveCell.Offset(24, 8).Value = ComboBox5.Value
ActiveCell.Offset(24, 9).Value = ComboBox6.Value
ActiveCell.Offset(24, 10).Value = ComboBox7.Value
ActiveCell.Offset(24, 11).Value = CheckBox1.Value
ActiveCell.Offset(24, 12).Value = CheckBox2.Value
ActiveCell.Offset(24, 13).Value = ComboBox32.Value
ActiveCell.Offset(24, 14).Value = ComboBox57.Value
ActiveCell.Offset(24, 15).Value = ComboBox82.Value
ActiveCell.Offset(24, 16).Value = ComboBox107.Value
ActiveCell.Offset(24, 17).Value = ComboBox132.Value
ActiveCell.Offset(24, 18).Value = TextBox31.Value
ActiveCell.Offset(24, 19).Value = TextBox56.Value
ActiveCell.Offset(24, 21).Value = ComboBox157.Value
ActiveCell.Offset(24, 24).Value = TextBox59.Value
ActiveCell.Offset(24, 25).Value = TextBox60.Value
ActiveCell.Offset(24, 26).Value = TextBox5.Value
10
End Sub
birde bole denedim gene olmadı
 
S

Skorpiyon

Misafir
Sayın uguristanbul,

Bu şekilde deneyin. En altta end sub 'un üzerine 2 satırı ekleyin.

Private Sub CommandButton1_Click()
Sheets("DATA").Select 'Data sayfasını seç
Range("B5").Select 'B5 hücresini seç
Do While Not IsEmpty(ActiveCell) 'Eğer B5 boş değilse boş hücreyi bulana kadar alt satırı seç
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = TextBox1.Value 'İlk boş hücrenin değeri textbox1'in değeridir

ActiveCell.Offset(0, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(0, 2).Value = ComboBox2.Value
ActiveCell.Offset(0, 3).Value = TextBox2.Value
ActiveCell.Offset(0, 4).Value = TextBox3.Value
ActiveCell.Offset(0, 5).Value = TextBox4.Value
ActiveCell.Offset(0, 6).Value = ComboBox3.Value
ActiveCell.Offset(0, 7).Value = ComboBox4.Value
ActiveCell.Offset(0, 8).Value = ComboBox5.Value
ActiveCell.Offset(0, 9).Value = ComboBox6.Value
ActiveCell.Offset(0, 10).Value = ComboBox7.Value
ActiveCell.Offset(0, 11).Value = CheckBox1.Value
ActiveCell.Offset(0, 12).Value = CheckBox2.Value
ActiveCell.Offset(0, 13).Value = ComboBox8.Value
ActiveCell.Offset(0, 14).Value = ComboBox33.Value
ActiveCell.Offset(0, 15).Value = ComboBox58.Value
ActiveCell.Offset(0, 16).Value = ComboBox83.Value
ActiveCell.Offset(0, 17).Value = ComboBox108.Value
ActiveCell.Offset(0, 18).Value = TextBox7.Value
ActiveCell.Offset(0, 19).Value = TextBox32.Value
ActiveCell.Offset(0, 21).Value = ComboBox133.Value
ActiveCell.Offset(0, 22).Value = TextBox57.Value
ActiveCell.Offset(0, 23).Value = TextBox58.Value
ActiveCell.Offset(0, 24).Value = TextBox59.Value
ActiveCell.Offset(0, 25).Value = TextBox60.Value
ActiveCell.Offset(0, 26).Value = TextBox5.Value

If TextBox33.Value = "" Then GoTo bitir
ActiveCell.Offset(1, 0).Value = TextBox1.Value
ActiveCell.Offset(1, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(1, 2).Value = ComboBox2.Value
ActiveCell.Offset(1, 3).Value = TextBox2.Value
ActiveCell.Offset(1, 4).Value = TextBox3.Value
ActiveCell.Offset(1, 6).Value = ComboBox3.Value
ActiveCell.Offset(1, 7).Value = ComboBox4.Value
ActiveCell.Offset(1, 8).Value = ComboBox5.Value
ActiveCell.Offset(1, 9).Value = ComboBox6.Value
ActiveCell.Offset(1, 10).Value = ComboBox7.Value
ActiveCell.Offset(1, 11).Value = CheckBox1.Value
ActiveCell.Offset(1, 12).Value = CheckBox2.Value
ActiveCell.Offset(1, 13).Value = ComboBox9.Value
ActiveCell.Offset(1, 14).Value = ComboBox34.Value
ActiveCell.Offset(1, 15).Value = ComboBox59.Value
ActiveCell.Offset(1, 16).Value = ComboBox84.Value
ActiveCell.Offset(1, 17).Value = ComboBox109.Value
ActiveCell.Offset(1, 18).Value = TextBox8.Value
ActiveCell.Offset(1, 19).Value = TextBox33.Value
ActiveCell.Offset(1, 21).Value = ComboBox134.Value
ActiveCell.Offset(1, 24).Value = TextBox59.Value
ActiveCell.Offset(1, 25).Value = TextBox60.Value
ActiveCell.Offset(1, 26).Value = TextBox5.Value

If TextBox34.Value = "" Then GoTo bitir
ActiveCell.Offset(2, 0).Value = TextBox1.Value
ActiveCell.Offset(2, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(2, 2).Value = ComboBox2.Value
ActiveCell.Offset(2, 3).Value = TextBox2.Value
ActiveCell.Offset(2, 4).Value = TextBox3.Value
ActiveCell.Offset(2, 6).Value = ComboBox3.Value
ActiveCell.Offset(2, 7).Value = ComboBox4.Value
ActiveCell.Offset(2, 8).Value = ComboBox5.Value
ActiveCell.Offset(2, 9).Value = ComboBox6.Value
ActiveCell.Offset(2, 10).Value = ComboBox7.Value
ActiveCell.Offset(2, 11).Value = CheckBox1.Value
ActiveCell.Offset(2, 12).Value = CheckBox2.Value
ActiveCell.Offset(2, 13).Value = ComboBox10.Value
ActiveCell.Offset(2, 14).Value = ComboBox35.Value
ActiveCell.Offset(2, 15).Value = ComboBox60.Value
ActiveCell.Offset(2, 16).Value = ComboBox85.Value
ActiveCell.Offset(2, 17).Value = ComboBox110.Value
ActiveCell.Offset(2, 18).Value = TextBox9.Value
ActiveCell.Offset(2, 19).Value = TextBox34.Value
ActiveCell.Offset(2, 21).Value = ComboBox135.Value
ActiveCell.Offset(2, 24).Value = TextBox59.Value
ActiveCell.Offset(2, 25).Value = TextBox60.Value
ActiveCell.Offset(2, 26).Value = TextBox5.Value

If TextBox35.Value = "" Then GoTo bitir
ActiveCell.Offset(3, 0).Value = TextBox1.Value
ActiveCell.Offset(3, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(3, 2).Value = ComboBox2.Value
ActiveCell.Offset(3, 3).Value = TextBox2.Value
ActiveCell.Offset(3, 4).Value = TextBox3.Value
ActiveCell.Offset(3, 6).Value = ComboBox3.Value
ActiveCell.Offset(3, 7).Value = ComboBox4.Value
ActiveCell.Offset(3, 8).Value = ComboBox5.Value
ActiveCell.Offset(3, 9).Value = ComboBox6.Value
ActiveCell.Offset(3, 10).Value = ComboBox7.Value
ActiveCell.Offset(3, 11).Value = CheckBox1.Value
ActiveCell.Offset(3, 12).Value = CheckBox2.Value
ActiveCell.Offset(3, 13).Value = ComboBox11.Value
ActiveCell.Offset(3, 14).Value = ComboBox36.Value
ActiveCell.Offset(3, 15).Value = ComboBox61.Value
ActiveCell.Offset(3, 16).Value = ComboBox86.Value
ActiveCell.Offset(3, 17).Value = ComboBox111.Value
ActiveCell.Offset(3, 18).Value = TextBox10.Value
ActiveCell.Offset(3, 19).Value = TextBox35.Value
ActiveCell.Offset(3, 21).Value = ComboBox136.Value
ActiveCell.Offset(3, 24).Value = TextBox59.Value
ActiveCell.Offset(3, 25).Value = TextBox60.Value
ActiveCell.Offset(3, 26).Value = TextBox5.Value

If TextBox36.Value = "" Then GoTo bitir
ActiveCell.Offset(4, 0).Value = TextBox1.Value
ActiveCell.Offset(4, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(4, 2).Value = ComboBox2.Value
ActiveCell.Offset(4, 3).Value = TextBox2.Value
ActiveCell.Offset(4, 4).Value = TextBox3.Value
ActiveCell.Offset(4, 6).Value = ComboBox3.Value
ActiveCell.Offset(4, 7).Value = ComboBox4.Value
ActiveCell.Offset(4, 8).Value = ComboBox5.Value
ActiveCell.Offset(4, 9).Value = ComboBox6.Value
ActiveCell.Offset(4, 10).Value = ComboBox7.Value
ActiveCell.Offset(4, 11).Value = CheckBox1.Value
ActiveCell.Offset(4, 12).Value = CheckBox2.Value
ActiveCell.Offset(4, 13).Value = ComboBox12.Value
ActiveCell.Offset(4, 14).Value = ComboBox37.Value
ActiveCell.Offset(4, 15).Value = ComboBox62.Value
ActiveCell.Offset(4, 16).Value = ComboBox87.Value
ActiveCell.Offset(4, 17).Value = ComboBox112.Value
ActiveCell.Offset(4, 18).Value = TextBox11.Value
ActiveCell.Offset(4, 19).Value = TextBox36.Value
ActiveCell.Offset(4, 21).Value = ComboBox137.Value
ActiveCell.Offset(4, 24).Value = TextBox59.Value
ActiveCell.Offset(4, 25).Value = TextBox60.Value
ActiveCell.Offset(4, 26).Value = TextBox5.Value

If TextBox37.Value = "" Then GoTo bitir
ActiveCell.Offset(5, 0).Value = TextBox1.Value
ActiveCell.Offset(5, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(5, 2).Value = ComboBox2.Value
ActiveCell.Offset(5, 3).Value = TextBox2.Value
ActiveCell.Offset(5, 4).Value = TextBox3.Value
ActiveCell.Offset(5, 6).Value = ComboBox3.Value
ActiveCell.Offset(5, 7).Value = ComboBox4.Value
ActiveCell.Offset(5, 8).Value = ComboBox5.Value
ActiveCell.Offset(5, 9).Value = ComboBox6.Value
ActiveCell.Offset(5, 10).Value = ComboBox7.Value
ActiveCell.Offset(5, 11).Value = CheckBox1.Value
ActiveCell.Offset(5, 12).Value = CheckBox2.Value
ActiveCell.Offset(5, 13).Value = ComboBox13.Value
ActiveCell.Offset(5, 14).Value = ComboBox38.Value
ActiveCell.Offset(5, 15).Value = ComboBox63.Value
ActiveCell.Offset(5, 16).Value = ComboBox88.Value
ActiveCell.Offset(5, 17).Value = ComboBox113.Value
ActiveCell.Offset(5, 18).Value = TextBox12.Value
ActiveCell.Offset(5, 19).Value = TextBox37.Value
ActiveCell.Offset(5, 21).Value = ComboBox138.Value
ActiveCell.Offset(5, 24).Value = TextBox59.Value
ActiveCell.Offset(5, 25).Value = TextBox60.Value
ActiveCell.Offset(5, 26).Value = TextBox5.Value

If TextBox38.Value = "" Then GoTo bitir
ActiveCell.Offset(6, 0).Value = TextBox1.Value
ActiveCell.Offset(6, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(6, 2).Value = ComboBox2.Value
ActiveCell.Offset(6, 3).Value = TextBox2.Value
ActiveCell.Offset(6, 4).Value = TextBox3.Value
ActiveCell.Offset(6, 6).Value = ComboBox3.Value
ActiveCell.Offset(6, 7).Value = ComboBox4.Value
ActiveCell.Offset(6, 8).Value = ComboBox5.Value
ActiveCell.Offset(6, 9).Value = ComboBox6.Value
ActiveCell.Offset(6, 10).Value = ComboBox7.Value
ActiveCell.Offset(6, 11).Value = CheckBox1.Value
ActiveCell.Offset(6, 12).Value = CheckBox2.Value
ActiveCell.Offset(6, 13).Value = ComboBox14.Value
ActiveCell.Offset(6, 14).Value = ComboBox39.Value
ActiveCell.Offset(6, 15).Value = ComboBox64.Value
ActiveCell.Offset(6, 16).Value = ComboBox89.Value
ActiveCell.Offset(6, 17).Value = ComboBox114.Value
ActiveCell.Offset(6, 18).Value = TextBox13.Value
ActiveCell.Offset(6, 19).Value = TextBox38.Value
ActiveCell.Offset(6, 21).Value = ComboBox139.Value
ActiveCell.Offset(6, 24).Value = TextBox59.Value
ActiveCell.Offset(6, 25).Value = TextBox60.Value
ActiveCell.Offset(6, 26).Value = TextBox5.Value

If TextBox39.Value = "" Then GoTo bitir
ActiveCell.Offset(7, 0).Value = TextBox1.Value
ActiveCell.Offset(7, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(7, 2).Value = ComboBox2.Value
ActiveCell.Offset(7, 3).Value = TextBox2.Value
ActiveCell.Offset(7, 4).Value = TextBox3.Value
ActiveCell.Offset(7, 6).Value = ComboBox3.Value
ActiveCell.Offset(7, 7).Value = ComboBox4.Value
ActiveCell.Offset(7, 8).Value = ComboBox5.Value
ActiveCell.Offset(7, 9).Value = ComboBox6.Value
ActiveCell.Offset(7, 10).Value = ComboBox7.Value
ActiveCell.Offset(7, 11).Value = CheckBox1.Value
ActiveCell.Offset(7, 12).Value = CheckBox2.Value
ActiveCell.Offset(7, 13).Value = ComboBox15.Value
ActiveCell.Offset(7, 14).Value = ComboBox40.Value
ActiveCell.Offset(7, 15).Value = ComboBox65.Value
ActiveCell.Offset(7, 16).Value = ComboBox90.Value
ActiveCell.Offset(7, 17).Value = ComboBox115.Value
ActiveCell.Offset(7, 18).Value = TextBox14.Value
ActiveCell.Offset(7, 19).Value = TextBox39.Value
ActiveCell.Offset(7, 21).Value = ComboBox140.Value
ActiveCell.Offset(7, 24).Value = TextBox59.Value
ActiveCell.Offset(7, 25).Value = TextBox60.Value
ActiveCell.Offset(7, 26).Value = TextBox5.Value

If TextBox40.Value = "" Then GoTo bitir
ActiveCell.Offset(8, 0).Value = TextBox1.Value
ActiveCell.Offset(8, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(8, 2).Value = ComboBox2.Value
ActiveCell.Offset(8, 3).Value = TextBox2.Value
ActiveCell.Offset(8, 4).Value = TextBox3.Value
ActiveCell.Offset(8, 6).Value = ComboBox3.Value
ActiveCell.Offset(8, 7).Value = ComboBox4.Value
ActiveCell.Offset(8, 8).Value = ComboBox5.Value
ActiveCell.Offset(8, 9).Value = ComboBox6.Value
ActiveCell.Offset(8, 10).Value = ComboBox7.Value
ActiveCell.Offset(8, 11).Value = CheckBox1.Value
ActiveCell.Offset(8, 12).Value = CheckBox2.Value
ActiveCell.Offset(8, 13).Value = ComboBox16.Value
ActiveCell.Offset(8, 14).Value = ComboBox41.Value
ActiveCell.Offset(8, 15).Value = ComboBox66.Value
ActiveCell.Offset(8, 16).Value = ComboBox91.Value
ActiveCell.Offset(8, 17).Value = ComboBox116.Value
ActiveCell.Offset(8, 18).Value = TextBox15.Value
ActiveCell.Offset(8, 19).Value = TextBox40.Value
ActiveCell.Offset(8, 21).Value = ComboBox141.Value
ActiveCell.Offset(8, 24).Value = TextBox59.Value
ActiveCell.Offset(8, 25).Value = TextBox60.Value
ActiveCell.Offset(8, 26).Value = TextBox5.Value

If TextBox41.Value = "" Then GoTo bitir
ActiveCell.Offset(9, 0).Value = TextBox1.Value
ActiveCell.Offset(9, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(9, 2).Value = ComboBox2.Value
ActiveCell.Offset(9, 3).Value = TextBox2.Value
ActiveCell.Offset(9, 4).Value = TextBox3.Value
ActiveCell.Offset(9, 6).Value = ComboBox3.Value
ActiveCell.Offset(9, 7).Value = ComboBox4.Value
ActiveCell.Offset(9, 8).Value = ComboBox5.Value
ActiveCell.Offset(9, 9).Value = ComboBox6.Value
ActiveCell.Offset(9, 10).Value = ComboBox7.Value
ActiveCell.Offset(9, 11).Value = CheckBox1.Value
ActiveCell.Offset(9, 12).Value = CheckBox2.Value
ActiveCell.Offset(9, 13).Value = ComboBox17.Value
ActiveCell.Offset(9, 14).Value = ComboBox42.Value
ActiveCell.Offset(9, 15).Value = ComboBox67.Value
ActiveCell.Offset(9, 16).Value = ComboBox92.Value
ActiveCell.Offset(9, 17).Value = ComboBox117.Value
ActiveCell.Offset(9, 18).Value = TextBox16.Value
ActiveCell.Offset(9, 19).Value = TextBox41.Value
ActiveCell.Offset(9, 21).Value = ComboBox142.Value
ActiveCell.Offset(9, 24).Value = TextBox59.Value
ActiveCell.Offset(9, 25).Value = TextBox60.Value
ActiveCell.Offset(9, 26).Value = TextBox5.Value

If TextBox42.Value = "" Then GoTo bitir
ActiveCell.Offset(10, 0).Value = TextBox1.Value
ActiveCell.Offset(10, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(10, 2).Value = ComboBox2.Value
ActiveCell.Offset(10, 3).Value = TextBox2.Value
ActiveCell.Offset(10, 4).Value = TextBox3.Value
ActiveCell.Offset(10, 6).Value = ComboBox3.Value
ActiveCell.Offset(10, 7).Value = ComboBox4.Value
ActiveCell.Offset(10, 8).Value = ComboBox5.Value
ActiveCell.Offset(10, 9).Value = ComboBox6.Value
ActiveCell.Offset(10, 10).Value = ComboBox7.Value
ActiveCell.Offset(10, 11).Value = CheckBox1.Value
ActiveCell.Offset(10, 12).Value = CheckBox2.Value
ActiveCell.Offset(10, 13).Value = ComboBox18.Value
ActiveCell.Offset(10, 14).Value = ComboBox43.Value
ActiveCell.Offset(10, 15).Value = ComboBox68.Value
ActiveCell.Offset(10, 16).Value = ComboBox93.Value
ActiveCell.Offset(10, 17).Value = ComboBox118.Value
ActiveCell.Offset(10, 18).Value = TextBox17.Value
ActiveCell.Offset(10, 19).Value = TextBox42.Value
ActiveCell.Offset(10, 21).Value = ComboBox143.Value
ActiveCell.Offset(10, 24).Value = TextBox59.Value
ActiveCell.Offset(10, 25).Value = TextBox60.Value
ActiveCell.Offset(10, 26).Value = TextBox5.Value

If TextBox43.Value = "" Then GoTo bitir
ActiveCell.Offset(11, 0).Value = TextBox1.Value
ActiveCell.Offset(11, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(11, 2).Value = ComboBox2.Value
ActiveCell.Offset(11, 3).Value = TextBox2.Value
ActiveCell.Offset(11, 4).Value = TextBox3.Value
ActiveCell.Offset(11, 6).Value = ComboBox3.Value
ActiveCell.Offset(11, 7).Value = ComboBox4.Value
ActiveCell.Offset(11, 8).Value = ComboBox5.Value
ActiveCell.Offset(11, 9).Value = ComboBox6.Value
ActiveCell.Offset(11, 10).Value = ComboBox7.Value
ActiveCell.Offset(11, 11).Value = CheckBox1.Value
ActiveCell.Offset(11, 12).Value = CheckBox2.Value
ActiveCell.Offset(11, 13).Value = ComboBox19.Value
ActiveCell.Offset(11, 14).Value = ComboBox44.Value
ActiveCell.Offset(11, 15).Value = ComboBox69.Value
ActiveCell.Offset(11, 16).Value = ComboBox94.Value
ActiveCell.Offset(11, 17).Value = ComboBox119.Value
ActiveCell.Offset(11, 18).Value = TextBox18.Value
ActiveCell.Offset(11, 19).Value = TextBox43.Value
ActiveCell.Offset(11, 21).Value = ComboBox144.Value
ActiveCell.Offset(11, 24).Value = TextBox59.Value
ActiveCell.Offset(11, 25).Value = TextBox60.Value
ActiveCell.Offset(11, 26).Value = TextBox5.Value

If TextBox44.Value = "" Then GoTo bitir
ActiveCell.Offset(12, 0).Value = TextBox1.Value
ActiveCell.Offset(12, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(12, 2).Value = ComboBox2.Value
ActiveCell.Offset(12, 3).Value = TextBox2.Value
ActiveCell.Offset(12, 4).Value = TextBox3.Value
ActiveCell.Offset(12, 6).Value = ComboBox3.Value
ActiveCell.Offset(12, 7).Value = ComboBox4.Value
ActiveCell.Offset(12, 8).Value = ComboBox5.Value
ActiveCell.Offset(12, 9).Value = ComboBox6.Value
ActiveCell.Offset(12, 10).Value = ComboBox7.Value
ActiveCell.Offset(12, 11).Value = CheckBox1.Value
ActiveCell.Offset(12, 12).Value = CheckBox2.Value
ActiveCell.Offset(12, 13).Value = ComboBox20.Value
ActiveCell.Offset(12, 14).Value = ComboBox45.Value
ActiveCell.Offset(12, 15).Value = ComboBox70.Value
ActiveCell.Offset(12, 16).Value = ComboBox95.Value
ActiveCell.Offset(12, 17).Value = ComboBox120.Value
ActiveCell.Offset(12, 18).Value = TextBox19.Value
ActiveCell.Offset(12, 19).Value = TextBox44.Value
ActiveCell.Offset(12, 21).Value = ComboBox145.Value
ActiveCell.Offset(12, 24).Value = TextBox59.Value
ActiveCell.Offset(12, 25).Value = TextBox60.Value
ActiveCell.Offset(12, 26).Value = TextBox5.Value

If TextBox45.Value = "" Then GoTo bitir
ActiveCell.Offset(13, 0).Value = TextBox1.Value
ActiveCell.Offset(13, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(13, 2).Value = ComboBox2.Value
ActiveCell.Offset(13, 3).Value = TextBox2.Value
ActiveCell.Offset(13, 4).Value = TextBox3.Value
ActiveCell.Offset(13, 6).Value = ComboBox3.Value
ActiveCell.Offset(13, 7).Value = ComboBox4.Value
ActiveCell.Offset(13, 8).Value = ComboBox5.Value
ActiveCell.Offset(13, 9).Value = ComboBox6.Value
ActiveCell.Offset(13, 10).Value = ComboBox7.Value
ActiveCell.Offset(13, 11).Value = CheckBox1.Value
ActiveCell.Offset(13, 12).Value = CheckBox2.Value
ActiveCell.Offset(13, 13).Value = ComboBox21.Value
ActiveCell.Offset(13, 14).Value = ComboBox46.Value
ActiveCell.Offset(13, 15).Value = ComboBox71.Value
ActiveCell.Offset(13, 16).Value = ComboBox96.Value
ActiveCell.Offset(13, 17).Value = ComboBox121.Value
ActiveCell.Offset(13, 18).Value = TextBox20.Value
ActiveCell.Offset(13, 19).Value = TextBox45.Value
ActiveCell.Offset(13, 21).Value = ComboBox146.Value
ActiveCell.Offset(13, 24).Value = TextBox59.Value
ActiveCell.Offset(13, 25).Value = TextBox60.Value
ActiveCell.Offset(13, 26).Value = TextBox5.Value

If TextBox46.Value = "" Then GoTo bitir
ActiveCell.Offset(14, 0).Value = TextBox1.Value
ActiveCell.Offset(14, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(14, 2).Value = ComboBox2.Value
ActiveCell.Offset(14, 3).Value = TextBox2.Value
ActiveCell.Offset(14, 4).Value = TextBox3.Value
ActiveCell.Offset(14, 6).Value = ComboBox3.Value
ActiveCell.Offset(14, 7).Value = ComboBox4.Value
ActiveCell.Offset(14, 8).Value = ComboBox5.Value
ActiveCell.Offset(14, 9).Value = ComboBox6.Value
ActiveCell.Offset(14, 10).Value = ComboBox7.Value
ActiveCell.Offset(14, 11).Value = CheckBox1.Value
ActiveCell.Offset(14, 12).Value = CheckBox2.Value
ActiveCell.Offset(14, 13).Value = ComboBox22.Value
ActiveCell.Offset(14, 14).Value = ComboBox47.Value
ActiveCell.Offset(14, 15).Value = ComboBox72.Value
ActiveCell.Offset(14, 16).Value = ComboBox97.Value
ActiveCell.Offset(14, 17).Value = ComboBox122.Value
ActiveCell.Offset(14, 18).Value = TextBox21.Value
ActiveCell.Offset(14, 19).Value = TextBox46.Value
ActiveCell.Offset(14, 21).Value = ComboBox147.Value
ActiveCell.Offset(14, 24).Value = TextBox59.Value
ActiveCell.Offset(14, 25).Value = TextBox60.Value
ActiveCell.Offset(14, 26).Value = TextBox5.Value

If TextBox47.Value = "" Then GoTo bitir
ActiveCell.Offset(15, 0).Value = TextBox1.Value
ActiveCell.Offset(15, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(15, 2).Value = ComboBox2.Value
ActiveCell.Offset(15, 3).Value = TextBox2.Value
ActiveCell.Offset(15, 4).Value = TextBox3.Value
ActiveCell.Offset(15, 6).Value = ComboBox3.Value
ActiveCell.Offset(15, 7).Value = ComboBox4.Value
ActiveCell.Offset(15, 8).Value = ComboBox5.Value
ActiveCell.Offset(15, 9).Value = ComboBox6.Value
ActiveCell.Offset(15, 10).Value = ComboBox7.Value
ActiveCell.Offset(15, 11).Value = CheckBox1.Value
ActiveCell.Offset(15, 12).Value = CheckBox2.Value
ActiveCell.Offset(15, 13).Value = ComboBox23.Value
ActiveCell.Offset(15, 14).Value = ComboBox48.Value
ActiveCell.Offset(15, 15).Value = ComboBox73.Value
ActiveCell.Offset(15, 16).Value = ComboBox98.Value
ActiveCell.Offset(15, 17).Value = ComboBox123.Value
ActiveCell.Offset(15, 18).Value = TextBox22.Value
ActiveCell.Offset(15, 19).Value = TextBox47.Value
ActiveCell.Offset(15, 21).Value = ComboBox148.Value
ActiveCell.Offset(15, 24).Value = TextBox59.Value
ActiveCell.Offset(15, 25).Value = TextBox60.Value
ActiveCell.Offset(15, 26).Value = TextBox5.Value

If TextBox48.Value = "" Then GoTo bitir
ActiveCell.Offset(16, 0).Value = TextBox1.Value
ActiveCell.Offset(16, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(16, 2).Value = ComboBox2.Value
ActiveCell.Offset(16, 3).Value = TextBox2.Value
ActiveCell.Offset(16, 4).Value = TextBox3.Value
ActiveCell.Offset(16, 6).Value = ComboBox3.Value
ActiveCell.Offset(16, 7).Value = ComboBox4.Value
ActiveCell.Offset(16, 8).Value = ComboBox5.Value
ActiveCell.Offset(16, 9).Value = ComboBox6.Value
ActiveCell.Offset(16, 10).Value = ComboBox7.Value
ActiveCell.Offset(16, 11).Value = CheckBox1.Value
ActiveCell.Offset(16, 12).Value = CheckBox2.Value
ActiveCell.Offset(16, 13).Value = ComboBox24.Value
ActiveCell.Offset(16, 14).Value = ComboBox49.Value
ActiveCell.Offset(16, 15).Value = ComboBox74.Value
ActiveCell.Offset(16, 16).Value = ComboBox99.Value
ActiveCell.Offset(16, 17).Value = ComboBox124.Value
ActiveCell.Offset(16, 18).Value = TextBox23.Value
ActiveCell.Offset(16, 19).Value = TextBox48.Value
ActiveCell.Offset(16, 21).Value = ComboBox149.Value
ActiveCell.Offset(16, 24).Value = TextBox59.Value
ActiveCell.Offset(16, 25).Value = TextBox60.Value
ActiveCell.Offset(16, 26).Value = TextBox5.Value

If TextBox49.Value = "" Then GoTo bitir
ActiveCell.Offset(17, 0).Value = TextBox1.Value
ActiveCell.Offset(17, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(17, 2).Value = ComboBox2.Value
ActiveCell.Offset(17, 3).Value = TextBox2.Value
ActiveCell.Offset(17, 4).Value = TextBox3.Value
ActiveCell.Offset(17, 6).Value = ComboBox3.Value
ActiveCell.Offset(17, 7).Value = ComboBox4.Value
ActiveCell.Offset(17, 8).Value = ComboBox5.Value
ActiveCell.Offset(17, 9).Value = ComboBox6.Value
ActiveCell.Offset(17, 10).Value = ComboBox7.Value
ActiveCell.Offset(17, 11).Value = CheckBox1.Value
ActiveCell.Offset(17, 12).Value = CheckBox2.Value
ActiveCell.Offset(17, 13).Value = ComboBox25.Value
ActiveCell.Offset(17, 14).Value = ComboBox50.Value
ActiveCell.Offset(17, 15).Value = ComboBox75.Value
ActiveCell.Offset(17, 16).Value = ComboBox100.Value
ActiveCell.Offset(17, 17).Value = ComboBox125.Value
ActiveCell.Offset(17, 18).Value = TextBox24.Value
ActiveCell.Offset(17, 19).Value = TextBox49.Value
ActiveCell.Offset(17, 21).Value = ComboBox150.Value
ActiveCell.Offset(17, 24).Value = TextBox59.Value
ActiveCell.Offset(17, 25).Value = TextBox60.Value
ActiveCell.Offset(17, 26).Value = TextBox5.Value

If TextBox50.Value = "" Then GoTo bitir
ActiveCell.Offset(18, 0).Value = TextBox1.Value
ActiveCell.Offset(18, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(18, 2).Value = ComboBox2.Value
ActiveCell.Offset(18, 3).Value = TextBox2.Value
ActiveCell.Offset(18, 4).Value = TextBox3.Value
ActiveCell.Offset(18, 6).Value = ComboBox3.Value
ActiveCell.Offset(18, 7).Value = ComboBox4.Value
ActiveCell.Offset(18, 8).Value = ComboBox5.Value
ActiveCell.Offset(18, 9).Value = ComboBox6.Value
ActiveCell.Offset(18, 10).Value = ComboBox7.Value
ActiveCell.Offset(18, 11).Value = CheckBox1.Value
ActiveCell.Offset(18, 12).Value = CheckBox2.Value
ActiveCell.Offset(18, 13).Value = ComboBox26.Value
ActiveCell.Offset(18, 14).Value = ComboBox51.Value
ActiveCell.Offset(18, 15).Value = ComboBox76.Value
ActiveCell.Offset(18, 16).Value = ComboBox101.Value
ActiveCell.Offset(18, 17).Value = ComboBox126.Value
ActiveCell.Offset(18, 18).Value = TextBox25.Value
ActiveCell.Offset(18, 19).Value = TextBox50.Value
ActiveCell.Offset(18, 21).Value = ComboBox151.Value
ActiveCell.Offset(18, 24).Value = TextBox59.Value
ActiveCell.Offset(18, 25).Value = TextBox60.Value
ActiveCell.Offset(18, 26).Value = TextBox5.Value

If TextBox51.Value = "" Then GoTo bitir
ActiveCell.Offset(19, 0).Value = TextBox1.Value
ActiveCell.Offset(19, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(19, 2).Value = ComboBox2.Value
ActiveCell.Offset(19, 3).Value = TextBox2.Value
ActiveCell.Offset(19, 4).Value = TextBox3.Value
ActiveCell.Offset(19, 6).Value = ComboBox3.Value
ActiveCell.Offset(19, 7).Value = ComboBox4.Value
ActiveCell.Offset(19, 8).Value = ComboBox5.Value
ActiveCell.Offset(19, 9).Value = ComboBox6.Value
ActiveCell.Offset(19, 10).Value = ComboBox7.Value
ActiveCell.Offset(19, 11).Value = CheckBox1.Value
ActiveCell.Offset(19, 12).Value = CheckBox2.Value
ActiveCell.Offset(19, 13).Value = ComboBox27.Value
ActiveCell.Offset(19, 14).Value = ComboBox52.Value
ActiveCell.Offset(19, 15).Value = ComboBox77.Value
ActiveCell.Offset(19, 16).Value = ComboBox102.Value
ActiveCell.Offset(19, 17).Value = ComboBox127.Value
ActiveCell.Offset(19, 18).Value = TextBox26.Value
ActiveCell.Offset(19, 19).Value = TextBox51.Value
ActiveCell.Offset(19, 21).Value = ComboBox152.Value
ActiveCell.Offset(19, 24).Value = TextBox59.Value
ActiveCell.Offset(19, 25).Value = TextBox60.Value
ActiveCell.Offset(19, 26).Value = TextBox5.Value

If TextBox52.Value = "" Then GoTo bitir
ActiveCell.Offset(20, 0).Value = TextBox1.Value
ActiveCell.Offset(20, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(20, 2).Value = ComboBox2.Value
ActiveCell.Offset(20, 3).Value = TextBox2.Value
ActiveCell.Offset(20, 4).Value = TextBox3.Value
ActiveCell.Offset(20, 6).Value = ComboBox3.Value
ActiveCell.Offset(20, 7).Value = ComboBox4.Value
ActiveCell.Offset(20, 8).Value = ComboBox5.Value
ActiveCell.Offset(20, 9).Value = ComboBox6.Value
ActiveCell.Offset(20, 10).Value = ComboBox7.Value
ActiveCell.Offset(20, 11).Value = CheckBox1.Value
ActiveCell.Offset(20, 12).Value = CheckBox2.Value
ActiveCell.Offset(20, 13).Value = ComboBox28.Value
ActiveCell.Offset(20, 14).Value = ComboBox53.Value
ActiveCell.Offset(20, 15).Value = ComboBox78.Value
ActiveCell.Offset(20, 16).Value = ComboBox103.Value
ActiveCell.Offset(20, 17).Value = ComboBox128.Value
ActiveCell.Offset(20, 18).Value = TextBox27.Value
ActiveCell.Offset(20, 19).Value = TextBox52.Value
ActiveCell.Offset(20, 21).Value = ComboBox153.Value
ActiveCell.Offset(20, 24).Value = TextBox59.Value
ActiveCell.Offset(20, 25).Value = TextBox60.Value
ActiveCell.Offset(20, 26).Value = TextBox5.Value

If TextBox53.Value = "" Then GoTo bitir
ActiveCell.Offset(21, 0).Value = TextBox1.Value
ActiveCell.Offset(21, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(21, 2).Value = ComboBox2.Value
ActiveCell.Offset(21, 3).Value = TextBox2.Value
ActiveCell.Offset(21, 4).Value = TextBox3.Value
ActiveCell.Offset(21, 6).Value = ComboBox3.Value
ActiveCell.Offset(21, 7).Value = ComboBox4.Value
ActiveCell.Offset(21, 8).Value = ComboBox5.Value
ActiveCell.Offset(21, 9).Value = ComboBox6.Value
ActiveCell.Offset(21, 10).Value = ComboBox7.Value
ActiveCell.Offset(21, 11).Value = CheckBox1.Value
ActiveCell.Offset(21, 12).Value = CheckBox2.Value
ActiveCell.Offset(21, 13).Value = ComboBox29.Value
ActiveCell.Offset(21, 14).Value = ComboBox54.Value
ActiveCell.Offset(21, 15).Value = ComboBox79.Value
ActiveCell.Offset(21, 16).Value = ComboBox104.Value
ActiveCell.Offset(21, 17).Value = ComboBox129.Value
ActiveCell.Offset(21, 18).Value = TextBox28.Value
ActiveCell.Offset(21, 19).Value = TextBox53.Value
ActiveCell.Offset(21, 21).Value = ComboBox154.Value
ActiveCell.Offset(21, 24).Value = TextBox59.Value
ActiveCell.Offset(21, 25).Value = TextBox60.Value
ActiveCell.Offset(21, 26).Value = TextBox5.Value

If TextBox54.Value = "" Then GoTo bitir
ActiveCell.Offset(22, 0).Value = TextBox1.Value
ActiveCell.Offset(22, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(22, 2).Value = ComboBox2.Value
ActiveCell.Offset(22, 3).Value = TextBox2.Value
ActiveCell.Offset(22, 4).Value = TextBox3.Value
ActiveCell.Offset(22, 6).Value = ComboBox3.Value
ActiveCell.Offset(22, 7).Value = ComboBox4.Value
ActiveCell.Offset(22, 8).Value = ComboBox5.Value
ActiveCell.Offset(22, 9).Value = ComboBox6.Value
ActiveCell.Offset(22, 10).Value = ComboBox7.Value
ActiveCell.Offset(22, 11).Value = CheckBox1.Value
ActiveCell.Offset(22, 12).Value = CheckBox2.Value
ActiveCell.Offset(22, 13).Value = ComboBox30.Value
ActiveCell.Offset(22, 14).Value = ComboBox55.Value
ActiveCell.Offset(22, 15).Value = ComboBox80.Value
ActiveCell.Offset(22, 16).Value = ComboBox105.Value
ActiveCell.Offset(22, 17).Value = ComboBox130.Value
ActiveCell.Offset(22, 18).Value = TextBox29.Value
ActiveCell.Offset(22, 19).Value = TextBox54.Value
ActiveCell.Offset(22, 21).Value = ComboBox155.Value
ActiveCell.Offset(22, 24).Value = TextBox59.Value
ActiveCell.Offset(22, 25).Value = TextBox60.Value
ActiveCell.Offset(22, 26).Value = TextBox5.Value

If TextBox55.Value = "" Then GoTo bitir
ActiveCell.Offset(23, 0).Value = TextBox1.Value
ActiveCell.Offset(23, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(23, 2).Value = ComboBox2.Value
ActiveCell.Offset(23, 3).Value = TextBox2.Value
ActiveCell.Offset(23, 4).Value = TextBox3.Value
ActiveCell.Offset(23, 6).Value = ComboBox3.Value
ActiveCell.Offset(23, 7).Value = ComboBox4.Value
ActiveCell.Offset(23, 8).Value = ComboBox5.Value
ActiveCell.Offset(23, 9).Value = ComboBox6.Value
ActiveCell.Offset(23, 10).Value = ComboBox7.Value
ActiveCell.Offset(23, 11).Value = CheckBox1.Value
ActiveCell.Offset(23, 12).Value = CheckBox2.Value
ActiveCell.Offset(23, 13).Value = ComboBox31.Value
ActiveCell.Offset(23, 14).Value = ComboBox56.Value
ActiveCell.Offset(23, 15).Value = ComboBox81.Value
ActiveCell.Offset(23, 16).Value = ComboBox106.Value
ActiveCell.Offset(23, 17).Value = ComboBox131.Value
ActiveCell.Offset(23, 18).Value = TextBox30.Value
ActiveCell.Offset(23, 19).Value = TextBox55.Value
ActiveCell.Offset(23, 21).Value = ComboBox156.Value
ActiveCell.Offset(23, 24).Value = TextBox59.Value
ActiveCell.Offset(23, 25).Value = TextBox60.Value
ActiveCell.Offset(23, 26).Value = TextBox5.Value

If TextBox56.Value = "" Then GoTo bitir
ActiveCell.Offset(24, 0).Value = TextBox1.Value
ActiveCell.Offset(24, 1).Value = ComboBox1.Value 'İlk boş hücrenin 1 sağ tarafı combobox1'in değeridir gibi......
ActiveCell.Offset(24, 2).Value = ComboBox2.Value
ActiveCell.Offset(24, 3).Value = TextBox2.Value
ActiveCell.Offset(24, 4).Value = TextBox3.Value
ActiveCell.Offset(24, 6).Value = ComboBox3.Value
ActiveCell.Offset(24, 7).Value = ComboBox4.Value
ActiveCell.Offset(24, 8).Value = ComboBox5.Value
ActiveCell.Offset(24, 9).Value = ComboBox6.Value
ActiveCell.Offset(24, 10).Value = ComboBox7.Value
ActiveCell.Offset(24, 11).Value = CheckBox1.Value
ActiveCell.Offset(24, 12).Value = CheckBox2.Value
ActiveCell.Offset(24, 13).Value = ComboBox32.Value
ActiveCell.Offset(24, 14).Value = ComboBox57.Value
ActiveCell.Offset(24, 15).Value = ComboBox82.Value
ActiveCell.Offset(24, 16).Value = ComboBox107.Value
ActiveCell.Offset(24, 17).Value = ComboBox132.Value
ActiveCell.Offset(24, 18).Value = TextBox31.Value
ActiveCell.Offset(24, 19).Value = TextBox56.Value
ActiveCell.Offset(24, 21).Value = ComboBox157.Value
ActiveCell.Offset(24, 24).Value = TextBox59.Value
ActiveCell.Offset(24, 25).Value = TextBox60.Value
ActiveCell.Offset(24, 26).Value = TextBox5.Value
bitir:
Msgbox "işlem tamam"
End Sub
 
U

uguristanbul

Katılım
25 Aralık 2007
Mesajlar
335
Excel Vers. ve Dili
exel 2000 türkçe
hocam
ellerine biligene ve yuregine saglık
ALLAH cc yar ve yardıncınız yar ve yardımcımız olur işallah
saygılarımla
(tesekkur etmekten baska bişey elimden gelmiyor )
 
S

Skorpiyon

Misafir
Amin Cenab-ı Hak cümlemizin yar ve yardımcısı olsun. Bir teşekkürünüz bile ziyadesi ile bizleri memnun ediyor zaten, inanın.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst