• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kod Sadeleştirmesi

C

cairotaner

Katılım
24 Şubat 2007
Mesajlar
31
Excel Vers. ve Dili
2003 tr
Bu Kodları Sadeleştirmek İstiyorum.
Yardımcı Olacak Arkadaşlara Teşekkür Ederim

Private Sub CommandButton1_Click()
For tnr = TextBox1.Text To Sheets("Sayfa1").[A65000].End(3).Row
TextBox1.Text = tnr
Son = [A65000].End(3).Row + 1
Cells(Son, 1) = " ' " & TextBox24.Text & "-" & TextBox1.Text

If TextBox2 = TextBox25 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox26 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox27 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox28 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox29 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox30 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox31 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox32 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox33 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox34 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox35 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox36 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox37 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox38 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox39 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox40 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox41 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox42 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox43 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox44 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox45 Then
Cells(Son, 2) = TextBox2.Text
End If
If TextBox2 = TextBox46 Then
Cells(Son, 2) = TextBox2.Text
End If

If TextBox3 = TextBox25 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox26 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox27 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox28 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox29 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox30 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox31 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox32 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox33 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox34 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox35 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox36 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox37 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox38 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox39 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox40 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox41 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox42 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox43 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox44 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox45 Then
Cells(Son, 3) = TextBox3.Text
End If
If TextBox3 = TextBox46 Then
Cells(Son, 3) = TextBox3.Text
End If

If TextBox4 = TextBox25 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox26 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox27 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox28 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox29 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox30 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox31 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox32 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox33 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox34 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox35 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox36 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox37 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox38 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox39 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox40 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox41 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox42 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox43 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox44 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox45 Then
Cells(Son, 4) = TextBox4.Text
End If
If TextBox4 = TextBox46 Then
Cells(Son, 4) = TextBox4.Text
End If

If TextBox5 = TextBox25 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox26 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox27 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox28 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox29 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox30 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox31 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox32 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox33 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox34 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox35 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox36 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox37 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox38 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox39 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox40 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox41 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox42 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox43 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox44 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox45 Then
Cells(Son, 5) = TextBox5.Text
End If
If TextBox5 = TextBox46 Then
Cells(Son, 5) = TextBox5.Text
End If

If TextBox6 = TextBox25 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox26 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox27 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox28 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox29 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox30 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox31 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox32 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox33 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox34 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox35 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox36 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox37 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox38 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox39 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox40 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox41 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox42 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox43 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox44 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox45 Then
Cells(Son, 6) = TextBox6.Text
End If
If TextBox6 = TextBox46 Then
Cells(Son, 6) = TextBox6.Text
End If

If TextBox7 = TextBox25 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox26 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox27 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox28 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox29 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox30 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox31 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox32 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox33 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox34 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox35 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox36 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox37 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox38 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox39 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox40 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox41 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox42 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox43 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox44 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox45 Then
Cells(Son, 7) = TextBox7.Text
End If
If TextBox7 = TextBox46 Then
Cells(Son, 7) = TextBox7.Text
End If

If TextBox8 = TextBox25 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox26 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox27 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox28 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox29 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox30 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox31 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox32 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox33 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox34 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox35 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox36 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox37 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox38 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox39 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox40 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox41 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox42 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox43 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox44 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox45 Then
Cells(Son, 8) = TextBox8.Text
End If
If TextBox8 = TextBox46 Then
Cells(Son, 8) = TextBox8.Text
End If

If TextBox9 = TextBox25 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox26 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox27 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox28 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox29 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox30 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox31 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox32 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox33 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox34 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox35 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox36 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox37 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox38 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox39 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox40 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox41 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox42 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox43 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox44 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox45 Then
Cells(Son, 9) = TextBox9.Text
End If
If TextBox9 = TextBox46 Then
Cells(Son, 9) = TextBox9.Text
End If

If TextBox10 = TextBox25 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox26 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox27 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox28 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox29 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox30 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox31 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox32 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox33 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox34 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox35 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox36 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox37 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox38 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox39 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox40 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox41 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox42 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox43 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox44 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox45 Then
Cells(Son, 10) = TextBox10.Text
End If
If TextBox10 = TextBox46 Then
Cells(Son, 10) = TextBox10.Text
End If

If TextBox11 = TextBox25 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox26 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox27 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox28 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox29 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox30 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox31 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox32 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox33 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox34 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox35 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox36 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox37 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox38 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox39 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox40 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox41 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox42 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox43 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox44 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox45 Then
Cells(Son, 11) = TextBox11.Text
End If
If TextBox11 = TextBox46 Then
Cells(Son, 11) = TextBox11.Text
End If

If TextBox12 = TextBox25 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox26 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox27 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox28 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox29 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox30 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox31 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox32 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox33 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox34 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox35 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox36 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox37 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox38 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox39 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox40 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox41 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox42 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox43 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox44 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox45 Then
Cells(Son, 12) = TextBox12.Text
End If
If TextBox12 = TextBox46 Then
Cells(Son, 12) = TextBox12.Text
End If

If TextBox13 = TextBox25 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox26 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox27 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox28 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox29 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox30 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox31 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox32 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox33 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox34 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox35 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox36 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox37 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox38 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox39 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox40 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox41 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox42 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox43 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox44 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox45 Then
Cells(Son, 13) = TextBox13.Text
End If
If TextBox13 = TextBox46 Then
Cells(Son, 13) = TextBox13.Text
End If

If TextBox14 = TextBox25 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox26 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox27 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox28 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox29 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox30 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox31 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox32 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox33 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox34 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox35 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox36 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox37 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox38 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox39 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox40 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox41 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox42 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox43 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox44 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox45 Then
Cells(Son, 14) = TextBox14.Text
End If
If TextBox14 = TextBox46 Then
Cells(Son, 14) = TextBox14.Text
End If

If TextBox15 = TextBox25 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox26 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox27 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox28 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox29 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox30 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox31 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox32 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox33 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox34 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox35 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox36 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox37 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox38 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox39 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox40 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox41 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox42 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox43 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox44 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox45 Then
Cells(Son, 15) = TextBox15.Text
End If
If TextBox15 = TextBox46 Then
Cells(Son, 15) = TextBox15.Text
End If

If TextBox16 = TextBox25 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox26 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox27 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox28 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox29 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox30 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox31 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox32 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox33 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox34 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox35 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox36 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox37 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox38 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox39 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox40 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox41 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox42 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox43 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox44 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox45 Then
Cells(Son, 16) = TextBox16.Text
End If
If TextBox16 = TextBox46 Then
Cells(Son, 16) = TextBox16.Text
End If

If TextBox17 = TextBox25 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox26 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox27 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox28 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox29 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox30 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox31 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox32 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox33 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox34 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox35 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox36 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox37 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox38 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox39 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox40 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox41 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox42 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox43 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox44 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox45 Then
Cells(Son, 17) = TextBox17.Text
End If
If TextBox17 = TextBox46 Then
Cells(Son, 17) = TextBox17.Text
End If

If TextBox18 = TextBox25 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox26 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox27 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox28 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox29 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox30 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox31 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox32 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox33 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox34 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox35 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox36 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox37 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox38 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox39 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox40 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox41 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox42 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox43 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox44 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox45 Then
Cells(Son, 18) = TextBox18.Text
End If
If TextBox18 = TextBox46 Then
Cells(Son, 18) = TextBox18.Text
End If

If TextBox19 = TextBox25 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox26 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox27 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox28 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox29 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox30 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox31 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox32 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox33 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox34 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox35 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox36 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox37 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox38 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox39 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox40 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox41 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox42 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox43 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox44 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox45 Then
Cells(Son, 19) = TextBox19.Text
End If
If TextBox19 = TextBox46 Then
Cells(Son, 19) = TextBox19.Text
End If

If TextBox20 = TextBox25 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox26 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox27 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox28 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox29 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox30 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox31 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox32 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox33 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox34 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox35 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox36 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox37 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox38 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox39 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox40 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox41 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox42 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox43 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox44 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox45 Then
Cells(Son, 20) = TextBox20.Text
End If
If TextBox20 = TextBox46 Then
Cells(Son, 20) = TextBox20.Text
End If

If TextBox21 = TextBox25 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox26 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox27 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox28 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox29 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox30 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox31 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox32 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox33 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox34 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox35 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox36 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox37 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox38 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox39 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox40 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox41 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox42 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox43 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox44 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox45 Then
Cells(Son, 21) = TextBox21.Text
End If
If TextBox21 = TextBox46 Then
Cells(Son, 21) = TextBox21.Text
End If

If TextBox22 = TextBox25 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox26 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox27 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox28 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox29 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox30 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox31 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox32 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox33 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox34 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox35 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox36 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox37 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox38 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox39 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox40 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox41 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox42 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox43 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox44 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox45 Then
Cells(Son, 22) = TextBox22.Text
End If
If TextBox22 = TextBox46 Then
Cells(Son, 22) = TextBox22.Text
End If

If TextBox23 = TextBox25 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox26 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox27 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox28 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox29 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox30 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox31 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox32 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox33 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox34 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox35 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox36 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox37 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox38 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox39 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox40 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox41 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox42 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox43 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox44 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox45 Then
Cells(Son, 23) = TextBox23.Text
End If
If TextBox23 = TextBox46 Then
Cells(Son, 23) = TextBox23.Text
End If
Next
End Sub
 
Merhaba iyi akşamlar,
bu nasıl bir program açıkcası merak ettim,yukarıdaki kodları hangi amaç ile kullanıyorsunuz?
 
neyse yardım etmesenizde olur. sadece birşeyler öğrenmek için böyle şeylerle uğraşıyordum. başka bir sitede bilmeyenlere yardım edecek arkadaşlar buldum. yönetici arkadaşlar beni siteden silebilir. bu forumda birşeyler öğretmeden çok insanlara yardım etmemek hakim.
 
bence tamamen yanılıyorsunuz.sabretmeyi ögrenin bence....
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst