Procedure too Large hatası

G

gezgin-49

Altın Üye
Katılım
17 Ekim 2006
Mesajlar
669
Excel Vers. ve Dili
Türkçe 2003
Altın Üyelik Bitiş Tarihi
22-09-2028
sayın üstadlarım acemi olarak yaptığım bir programda procedure too large hatası verdi, kodu nasıl kısaltabilirim, yardımlarınız için şimdiden teşekkür ederim.
Kod: 
Dim Yeni_mi As Boolean
'.............

Private Sub CommandButton1_Click()
  
      
             Sheets("Form").Select
                Sheets("Form").Range("E4").Value = TextBox222.Text & TextBox230.Text
                Sheets("Form").Range("G4").Value = TextBox223.Text & TextBox230.Text
                Sheets("Form").Range("H43").Value = TextBox224.Text & TextBox230.Text
                Sheets("Form").Range("I4").Value = TextBox225.Text & TextBox230.Text
                        Sheets("Form").Range("C3").Value = TextBox1.Text
                        Sheets("Form").Range("F3").Value = TextBox2.Text
                        Sheets("Form").Range("H3").Value = TextBox3.Text
                    '2009 Yılı
                        Sheets("Form").Range("E5").Value = TextBox4.Text
                        Sheets("Form").Range("E6").Value = TextBox5.Text
                        Sheets("Form").Range("E7").Value = TextBox6.Text
                        Sheets("Form").Range("E8").Value = TextBox7.Text
                        Sheets("Form").Range("E9").Value = TextBox8.Text
                        Sheets("Form").Range("E10").Value = TextBox9.Text
                        Sheets("Form").Range("E11").Value = TextBox10.Text
                        Sheets("Form").Range("E12").Value = TextBox11.Text
                        Sheets("Form").Range("E13").Value = TextBox12.Text
                        Sheets("Form").Range("E14").Value = TextBox13.Text
                        Sheets("Form").Range("E15").Value = TextBox14.Text
                        Sheets("Form").Range("E16").Value = TextBox15.Text
                        Sheets("Form").Range("E17").Value = TextBox16.Text
                        Sheets("Form").Range("E18").Value = TextBox17.Text
                        Sheets("Form").Range("E19").Value = TextBox18.Text
                        Sheets("Form").Range("E20").Value = TextBox19.Text
                        Sheets("Form").Range("E21").Value = TextBox20.Text
                        Sheets("Form").Range("E22").Value = TextBox21.Text
                        Sheets("Form").Range("E23").Value = TextBox22.Text
                        Sheets("Form").Range("E24").Value = TextBox23.Text
                        Sheets("Form").Range("E25").Value = TextBox24.Text
                        Sheets("Form").Range("E26").Value = TextBox25.Text
                        Sheets("Form").Range("E27").Value = TextBox26.Text
                        Sheets("Form").Range("E28").Value = TextBox27.Text
                        Sheets("Form").Range("E29").Value = TextBox28.Text
                        Sheets("Form").Range("E30").Value = TextBox29.Text
                        Sheets("Form").Range("E31").Value = TextBox30.Text
                        Sheets("Form").Range("E32").Value = TextBox31.Text
                        Sheets("Form").Range("E33").Value = TextBox32.Text
                        Sheets("Form").Range("E34").Value = TextBox33.Text
                        Sheets("Form").Range("E35").Value = TextBox34.Text
                        Sheets("Form").Range("E36").Value = TextBox35.Text
                        Sheets("Form").Range("E37").Value = TextBox36.Text
                        Sheets("Form").Range("E38").Value = TextBox37.Text
                        Sheets("Form").Range("E39").Value = TextBox38.Text
                        Sheets("Form").Range("E40").Value = TextBox39.Text
                        Sheets("Form").Range("E41").Value = TextBox40.Text
                        Sheets("Form").Range("E42").Value = TextBox41.Text
                        Sheets("Form").Range("E43").Value = TextBox42.Text
                        Sheets("Form").Range("E44").Value = TextBox43.Text
                        Sheets("Form").Range("E45").Value = TextBox44.Text
                        Sheets("Form").Range("E46").Value = TextBox45.Text
                        Sheets("Form").Range("E47").Value = TextBox46.Text
                        Sheets("Form").Range("E48").Value = TextBox47.Text
                        Sheets("Form").Range("E49").Value = TextBox48.Text
                        Sheets("Form").Range("E50").Value = TextBox49.Text
                        Sheets("Form").Range("E51").Value = TextBox50.Text
                        Sheets("Form").Range("E52").Value = TextBox51.Text
                        Sheets("Form").Range("E53").Value = TextBox52.Text
                        Sheets("Form").Range("E54").Value = TextBox53.Text
                          Sheets("Form").Range("E55").Value = TextBox54.Text
                         Sheets("Form").Range("E56").Value = TextBox55.Text
                         '2010 YILI
                        Sheets("Form").Range("G5").Value = TextBox56.Text
                        Sheets("Form").Range("G6").Value = TextBox57.Text
                        Sheets("Form").Range("G7").Value = TextBox58.Text
                        Sheets("Form").Range("G8").Value = TextBox59.Text
                        Sheets("Form").Range("G9").Value = TextBox60.Text
                        Sheets("Form").Range("G10").Value = TextBox61.Text
                        Sheets("Form").Range("G11").Value = TextBox62.Text
                        Sheets("Form").Range("G12").Value = TextBox63.Text
                        Sheets("Form").Range("G13").Value = TextBox64.Text
                        Sheets("Form").Range("G14").Value = TextBox65.Text
                        Sheets("Form").Range("G15").Value = TextBox66.Text
                        Sheets("Form").Range("G16").Value = TextBox67.Text
                        Sheets("Form").Range("G17").Value = TextBox68.Text
                        Sheets("Form").Range("G18").Value = TextBox69.Text
                        Sheets("Form").Range("G19").Value = TextBox70.Text
                        Sheets("Form").Range("G20").Value = TextBox71.Text
                        Sheets("Form").Range("G21").Value = TextBox72.Text
                        Sheets("Form").Range("G22").Value = TextBox73.Text
                        Sheets("Form").Range("G23").Value = TextBox74.Text
                        Sheets("Form").Range("G24").Value = TextBox75.Text
                        Sheets("Form").Range("G25").Value = TextBox76.Text
                        Sheets("Form").Range("G26").Value = TextBox77.Text
                        Sheets("Form").Range("G27").Value = TextBox78.Text
                        Sheets("Form").Range("G28").Value = TextBox79.Text
                        Sheets("Form").Range("G29").Value = TextBox80.Text
                        Sheets("Form").Range("G30").Value = TextBox81.Text
                        Sheets("Form").Range("G31").Value = TextBox82.Text
                        Sheets("Form").Range("G32").Value = TextBox83.Text
                        Sheets("Form").Range("G33").Value = TextBox84.Text
                        Sheets("Form").Range("G34").Value = TextBox85.Text
                        Sheets("Form").Range("G35").Value = TextBox86.Text
                        Sheets("Form").Range("G36").Value = TextBox87.Text
                        Sheets("Form").Range("G37").Value = TextBox88.Text
                        Sheets("Form").Range("G38").Value = TextBox89.Text
                        Sheets("Form").Range("G39").Value = TextBox90.Text
                        Sheets("Form").Range("G40").Value = TextBox91.Text
                        Sheets("Form").Range("G41").Value = TextBox92.Text
                        Sheets("Form").Range("G42").Value = TextBox93.Text
                        Sheets("Form").Range("G43").Value = TextBox94.Text
                        Sheets("Form").Range("G44").Value = TextBox95.Text
                        Sheets("Form").Range("G45").Value = TextBox96.Text
                        Sheets("Form").Range("G46").Value = TextBox97.Text
                        Sheets("Form").Range("G47").Value = TextBox98.Text
                        Sheets("Form").Range("G48").Value = TextBox99.Text
                        Sheets("Form").Range("G49").Value = TextBox100.Text
                        Sheets("Form").Range("G50").Value = TextBox101.Text
                        Sheets("Form").Range("G51").Value = TextBox102.Text
                        Sheets("Form").Range("G52").Value = TextBox103.Text
                        Sheets("Form").Range("G53").Value = TextBox104.Text
                        Sheets("Form").Range("G54").Value = TextBox105.Text
                        Sheets("Form").Range("G55").Value = TextBox106.Text
                        Sheets("Form").Range("G56").Value = TextBox107.Text
                        '2011 YILI
                        Sheets("Form").Range("H5").Value = TextBox108.Text
                        Sheets("Form").Range("H6").Value = TextBox109.Text
                        Sheets("Form").Range("H7").Value = TextBox110.Text
                        Sheets("Form").Range("H8").Value = TextBox111.Text
                        Sheets("Form").Range("H9").Value = TextBox112.Text
                        Sheets("Form").Range("H10").Value = TextBox113.Text
                        Sheets("Form").Range("H11").Value = TextBox114.Text
                        Sheets("Form").Range("H12").Value = TextBox115.Text
                        Sheets("Form").Range("H13").Value = TextBox116.Text
                        Sheets("Form").Range("H14").Value = TextBox117.Text
                        Sheets("Form").Range("H15").Value = TextBox118.Text
                        Sheets("Form").Range("H16").Value = TextBox119.Text
                        Sheets("Form").Range("H17").Value = TextBox120.Text
                        Sheets("Form").Range("H18").Value = TextBox121.Text
                        Sheets("Form").Range("H19").Value = TextBox122.Text
                        Sheets("Form").Range("H20").Value = TextBox123.Text
                        Sheets("Form").Range("H21").Value = TextBox124.Text
                        Sheets("Form").Range("H22").Value = TextBox125.Text
                        Sheets("Form").Range("H23").Value = TextBox126.Text
                        Sheets("Form").Range("H24").Value = TextBox127.Text
                        Sheets("Form").Range("H25").Value = TextBox128.Text
                        Sheets("Form").Range("H26").Value = TextBox129.Text
                        Sheets("Form").Range("H27").Value = TextBox130.Text
                        Sheets("Form").Range("H28").Value = TextBox131.Text
                        Sheets("Form").Range("H29").Value = TextBox132.Text
                        Sheets("Form").Range("H30").Value = TextBox133.Text
                        Sheets("Form").Range("H31").Value = TextBox134.Text
                        Sheets("Form").Range("H32").Value = TextBox135.Text
                        Sheets("Form").Range("H33").Value = TextBox136.Text
                        Sheets("Form").Range("H34").Value = TextBox137.Text
                        Sheets("Form").Range("H35").Value = TextBox138.Text
                        Sheets("Form").Range("H36").Value = TextBox139.Text
                        Sheets("Form").Range("H37").Value = TextBox140.Text
                        Sheets("Form").Range("H38").Value = TextBox141.Text
                        Sheets("Form").Range("H39").Value = TextBox142.Text
                        Sheets("Form").Range("H40").Value = TextBox143.Text
                        Sheets("Form").Range("H41").Value = TextBox144.Text
                        Sheets("Form").Range("H42").Value = TextBox145.Text
                        Sheets("Form").Range("H43").Value = TextBox146.Text
                        Sheets("Form").Range("H44").Value = TextBox147.Text
                        Sheets("Form").Range("H45").Value = TextBox148.Text
                        Sheets("Form").Range("H46").Value = TextBox149.Text
                        Sheets("Form").Range("H47").Value = TextBox150.Text
                        Sheets("Form").Range("H48").Value = TextBox151.Text
                        Sheets("Form").Range("H49").Value = TextBox152.Text
                        Sheets("Form").Range("H50").Value = TextBox153.Text
                        Sheets("Form").Range("H51").Value = TextBox154.Text
                        Sheets("Form").Range("H52").Value = TextBox155.Text
                        Sheets("Form").Range("H53").Value = TextBox156.Text
                        Sheets("Form").Range("H54").Value = TextBox157.Text
                        Sheets("Form").Range("H55").Value = TextBox158.Text
                        Sheets("Form").Range("H56").Value = TextBox159.Text
                '///////////////////////////
                 '2012 YILI
                        Sheets("Form").Range("I5").Value = TextBox167.Text
                        Sheets("Form").Range("I6").Value = TextBox168.Text
                        Sheets("Form").Range("I7").Value = TextBox169.Text
                        Sheets("Form").Range("I8").Value = TextBox170.Text
                        Sheets("Form").Range("I9").Value = TextBox171.Text
                        Sheets("Form").Range("I10").Value = TextBox172.Text
                        Sheets("Form").Range("I11").Value = TextBox173.Text
                        Sheets("Form").Range("I12").Value = TextBox174.Text
                        Sheets("Form").Range("I13").Value = TextBox175.Text
                        Sheets("Form").Range("I14").Value = TextBox176.Text
                        Sheets("Form").Range("I15").Value = TextBox177.Text
                        Sheets("Form").Range("I16").Value = TextBox178.Text
                        Sheets("Form").Range("I17").Value = TextBox179.Text
                        Sheets("Form").Range("I18").Value = TextBox180.Text
                        Sheets("Form").Range("I19").Value = TextBox181.Text
                        Sheets("Form").Range("I20").Value = TextBox182.Text
                        Sheets("Form").Range("I21").Value = TextBox183.Text
                        Sheets("Form").Range("I22").Value = TextBox184.Text
                        Sheets("Form").Range("I23").Value = TextBox185.Text
                        Sheets("Form").Range("I24").Value = TextBox186.Text
                        Sheets("Form").Range("I25").Value = TextBox187.Text
                        Sheets("Form").Range("I26").Value = TextBox188.Text
                        Sheets("Form").Range("I27").Value = TextBox189.Text
                        Sheets("Form").Range("I28").Value = TextBox190.Text
                        Sheets("Form").Range("I29").Value = TextBox191.Text
                        Sheets("Form").Range("I30").Value = TextBox192.Text
                        Sheets("Form").Range("I31").Value = TextBox193.Text
                        Sheets("Form").Range("I32").Value = TextBox194.Text
                        Sheets("Form").Range("I33").Value = TextBox195.Text
                        Sheets("Form").Range("I34").Value = TextBox196.Text
                        Sheets("Form").Range("I35").Value = TextBox197.Text
                        Sheets("Form").Range("I36").Value = TextBox198.Text
                        Sheets("Form").Range("I37").Value = TextBox199.Text
                        Sheets("Form").Range("I38").Value = TextBox200.Text
                        Sheets("Form").Range("I39").Value = TextBox201.Text
                        Sheets("Form").Range("I40").Value = TextBox202.Text
                        Sheets("Form").Range("I41").Value = TextBox203.Text
                        Sheets("Form").Range("I42").Value = TextBox204.Text
                        Sheets("Form").Range("I43").Value = TextBox205.Text
                        Sheets("Form").Range("I44").Value = TextBox206.Text
                        Sheets("Form").Range("I45").Value = TextBox207.Text
                        Sheets("Form").Range("I46").Value = TextBox208.Text
                        Sheets("Form").Range("I47").Value = TextBox209.Text
                        Sheets("Form").Range("I48").Value = TextBox210.Text
                        Sheets("Form").Range("I49").Value = TextBox211.Text
                        Sheets("Form").Range("I50").Value = TextBox212.Text
                        Sheets("Form").Range("I51").Value = TextBox213.Text
                        Sheets("Form").Range("I52").Value = TextBox214.Text
                        Sheets("Form").Range("I53").Value = TextBox215.Text
                        Sheets("Form").Range("I54").Value = TextBox216.Text
                        Sheets("Form").Range("I55").Value = TextBox217.Text
                        Sheets("Form").Range("I56").Value = TextBox218.Text
                '////////////////////////
                         Sheets("Form").Range("D59").Value = TextBox221.Text & TextBox219.Text & TextBox220.Text 'DENETİM YERİ - DENETİM TARİHİ
                        Sheets("Form").Range("A57").Value = TextBox160.Text
                         Sheets("Form").Range("D60").Value = TextBox161.Text
                          Sheets("Form").Range("D61").Value = TextBox162.Text
                 Sheets("Form").Range("G60").Value = TextBox163.Text
                          Sheets("Form").Range("G61").Value = TextBox164.Text
                           Sheets("Form").Range("A60").Value = TextBox165.Text
                          Sheets("Form").Range("A61").Value = TextBox166.Text
             
                        If Yeni_mi = True Then
                        Son_Dolu_Satir = Sheets("Data").Range("A65536").End(xlUp).Row
                        Bos_Satir = Son_Dolu_Satir + 1
                        Sheets("Data").Range("A" & Bos_Satir).Value = _
                                             Application.WorksheetFunction.Max(Sheets("Data").Range("A:A")) + 1
                             Sheets("Data").Range("B" & Bos_Satir).Value = TextBox1.Text
                        Sheets("Data").Range("C" & Bos_Satir).Value = TextBox2.Text
                        Sheets("Data").Range("D" & Bos_Satir).Value = TextBox3.Text
                        Sheets("Data").Range("E" & Bos_Satir).Value = TextBox4.Text
                        Sheets("Data").Range("F" & Bos_Satir).Value = TextBox5.Text
                        Sheets("Data").Range("G" & Bos_Satir).Value = TextBox6.Text
                        Sheets("Data").Range("H" & Bos_Satir).Value = TextBox7.Text
                        Sheets("Data").Range("I" & Bos_Satir).Value = TextBox8.Text
                        Sheets("Data").Range("J" & Bos_Satir).Value = TextBox9.Text
                        Sheets("Data").Range("K" & Bos_Satir).Value = TextBox10.Text
                        Sheets("Data").Range("L" & Bos_Satir).Value = TextBox11.Text
                        Sheets("Data").Range("M" & Bos_Satir).Value = TextBox12.Text
                        Sheets("Data").Range("N" & Bos_Satir).Value = TextBox13.Text
                        Sheets("Data").Range("O" & Bos_Satir).Value = TextBox14.Text
                        Sheets("Data").Range("P" & Bos_Satir).Value = TextBox15.Text
                        Sheets("Data").Range("Q" & Bos_Satir).Value = TextBox16.Text
                        Sheets("Data").Range("R" & Bos_Satir).Value = TextBox17.Text
                        Sheets("Data").Range("S" & Bos_Satir).Value = TextBox18.Text
                        Sheets("Data").Range("T" & Bos_Satir).Value = TextBox19.Text
                        Sheets("Data").Range("U" & Bos_Satir).Value = TextBox20.Text
                        Sheets("Data").Range("V" & Bos_Satir).Value = TextBox21.Text
                        Sheets("Data").Range("W" & Bos_Satir).Value = TextBox22.Text
                        Sheets("Data").Range("X" & Bos_Satir).Value = TextBox23.Text
                        Sheets("Data").Range("Y" & Bos_Satir).Value = TextBox24.Text
                        Sheets("Data").Range("Z" & Bos_Satir).Value = TextBox25.Text
                        Sheets("Data").Range("AA" & Bos_Satir).Value = TextBox26.Text
                        Sheets("Data").Range("AB" & Bos_Satir).Value = TextBox27.Text
                        Sheets("Data").Range("AC" & Bos_Satir).Value = TextBox28.Text
                        Sheets("Data").Range("AD" & Bos_Satir).Value = TextBox29.Text
                        Sheets("Data").Range("AE" & Bos_Satir).Value = TextBox30.Text
                        Sheets("Data").Range("AF" & Bos_Satir).Value = TextBox31.Text
                        Sheets("Data").Range("AG" & Bos_Satir).Value = TextBox32.Text
                        Sheets("Data").Range("AH" & Bos_Satir).Value = TextBox33.Text
                        Sheets("Data").Range("AI" & Bos_Satir).Value = TextBox34.Text
                        Sheets("Data").Range("AJ" & Bos_Satir).Value = TextBox35.Text
                        Sheets("Data").Range("AK" & Bos_Satir).Value = TextBox36.Text
                        Sheets("Data").Range("AL" & Bos_Satir).Value = TextBox37.Text
                        Sheets("Data").Range("AM" & Bos_Satir).Value = TextBox38.Text
                        Sheets("Data").Range("AN" & Bos_Satir).Value = TextBox39.Text
                        Sheets("Data").Range("AO" & Bos_Satir).Value = TextBox40.Text
                        Sheets("Data").Range("AP" & Bos_Satir).Value = TextBox41.Text
                        Sheets("Data").Range("AQ" & Bos_Satir).Value = TextBox42.Text
                        Sheets("Data").Range("AR" & Bos_Satir).Value = TextBox43.Text
                        Sheets("Data").Range("AS" & Bos_Satir).Value = TextBox44.Text
                        Sheets("Data").Range("AT" & Bos_Satir).Value = TextBox45.Text
                        Sheets("Data").Range("AU" & Bos_Satir).Value = TextBox46.Text
                        Sheets("Data").Range("AV" & Bos_Satir).Value = TextBox47.Text
                        Sheets("Data").Range("AW" & Bos_Satir).Value = TextBox48.Text
                        Sheets("Data").Range("AX" & Bos_Satir).Value = TextBox49.Text
                        Sheets("Data").Range("AY" & Bos_Satir).Value = TextBox50.Text
                        Sheets("Data").Range("AZ" & Bos_Satir).Value = TextBox51.Text
                        Sheets("Data").Range("BA" & Bos_Satir).Value = TextBox52.Text
                        Sheets("Data").Range("BB" & Bos_Satir).Value = TextBox53.Text
                        Sheets("Data").Range("BC" & Bos_Satir).Value = TextBox54.Text
                        Sheets("Data").Range("BD" & Bos_Satir).Value = TextBox55.Text
                        Sheets("Data").Range("BE" & Bos_Satir).Value = TextBox56.Text
                        Sheets("Data").Range("BF" & Bos_Satir).Value = TextBox57.Text
                        Sheets("Data").Range("BG" & Bos_Satir).Value = TextBox58.Text
                        Sheets("Data").Range("BH" & Bos_Satir).Value = TextBox59.Text
                        Sheets("Data").Range("BI" & Bos_Satir).Value = TextBox60.Text
                        Sheets("Data").Range("BJ" & Bos_Satir).Value = TextBox61.Text
                        Sheets("Data").Range("BK" & Bos_Satir).Value = TextBox62.Text
                        Sheets("Data").Range("BL" & Bos_Satir).Value = TextBox63.Text
                        Sheets("Data").Range("BM" & Bos_Satir).Value = TextBox64.Text
                        Sheets("Data").Range("BN" & Bos_Satir).Value = TextBox65.Text
                        Sheets("Data").Range("BO" & Bos_Satir).Value = TextBox66.Text
                        Sheets("Data").Range("BP" & Bos_Satir).Value = TextBox67.Text
                        Sheets("Data").Range("BQ" & Bos_Satir).Value = TextBox68.Text
                        Sheets("Data").Range("BR" & Bos_Satir).Value = TextBox69.Text
                        Sheets("Data").Range("BS" & Bos_Satir).Value = TextBox70.Text
                        Sheets("Data").Range("BT" & Bos_Satir).Value = TextBox71.Text
                        Sheets("Data").Range("BU" & Bos_Satir).Value = TextBox72.Text
                        Sheets("Data").Range("BV" & Bos_Satir).Value = TextBox73.Text
                        Sheets("Data").Range("BW" & Bos_Satir).Value = TextBox74.Text
                        Sheets("Data").Range("BX" & Bos_Satir).Value = TextBox75.Text
                        Sheets("Data").Range("BY" & Bos_Satir).Value = TextBox76.Text
                        Sheets("Data").Range("BZ" & Bos_Satir).Value = TextBox77.Text
                        Sheets("Data").Range("CA" & Bos_Satir).Value = TextBox78.Text
                        Sheets("Data").Range("CB" & Bos_Satir).Value = TextBox79.Text
                        Sheets("Data").Range("CC" & Bos_Satir).Value = TextBox80.Text
                        Sheets("Data").Range("CD" & Bos_Satir).Value = TextBox81.Text
                        Sheets("Data").Range("CE" & Bos_Satir).Value = TextBox82.Text
                        Sheets("Data").Range("CF" & Bos_Satir).Value = TextBox83.Text
                        Sheets("Data").Range("CG" & Bos_Satir).Value = TextBox84.Text
                        Sheets("Data").Range("CH" & Bos_Satir).Value = TextBox85.Text
                        Sheets("Data").Range("CI" & Bos_Satir).Value = TextBox86.Text
                        Sheets("Data").Range("CJ" & Bos_Satir).Value = TextBox87.Text
                        Sheets("Data").Range("CK" & Bos_Satir).Value = TextBox88.Text
                        Sheets("Data").Range("CL" & Bos_Satir).Value = TextBox89.Text
                        Sheets("Data").Range("CM" & Bos_Satir).Value = TextBox90.Text
                        Sheets("Data").Range("CN" & Bos_Satir).Value = TextBox91.Text
                        Sheets("Data").Range("CO" & Bos_Satir).Value = TextBox92.Text
                        Sheets("Data").Range("CP" & Bos_Satir).Value = TextBox93.Text
                        Sheets("Data").Range("CQ" & Bos_Satir).Value = TextBox94.Text
                        Sheets("Data").Range("CR" & Bos_Satir).Value = TextBox95.Text
                        Sheets("Data").Range("CS" & Bos_Satir).Value = TextBox96.Text
                        Sheets("Data").Range("CT" & Bos_Satir).Value = TextBox97.Text
                        Sheets("Data").Range("CU" & Bos_Satir).Value = TextBox98.Text
                        Sheets("Data").Range("CV" & Bos_Satir).Value = TextBox99.Text
                        Sheets("Data").Range("CW" & Bos_Satir).Value = TextBox100.Text
                        Sheets("Data").Range("CX" & Bos_Satir).Value = TextBox101.Text
                        Sheets("Data").Range("CY" & Bos_Satir).Value = TextBox102.Text
                        Sheets("Data").Range("CZ" & Bos_Satir).Value = TextBox103.Text
                        Sheets("Data").Range("DA" & Bos_Satir).Value = TextBox104.Text
                        Sheets("Data").Range("DB" & Bos_Satir).Value = TextBox105.Text
                        Sheets("Data").Range("DC" & Bos_Satir).Value = TextBox106.Text
                        Sheets("Data").Range("DD" & Bos_Satir).Value = TextBox107.Text
                        Sheets("Data").Range("DE" & Bos_Satir).Value = TextBox108.Text
                        Sheets("Data").Range("DF" & Bos_Satir).Value = TextBox109.Text
                        Sheets("Data").Range("DG" & Bos_Satir).Value = TextBox10.Text
                        Sheets("Data").Range("DH" & Bos_Satir).Value = TextBox111.Text
                        Sheets("Data").Range("DI" & Bos_Satir).Value = TextBox112.Text
                        Sheets("Data").Range("DJ" & Bos_Satir).Value = TextBox113.Text
                        Sheets("Data").Range("DK" & Bos_Satir).Value = TextBox114.Text
                        Sheets("Data").Range("DL" & Bos_Satir).Value = TextBox115.Text
                        Sheets("Data").Range("DM" & Bos_Satir).Value = TextBox116.Text
                        Sheets("Data").Range("DN" & Bos_Satir).Value = TextBox117.Text
                        Sheets("Data").Range("DO" & Bos_Satir).Value = TextBox118.Text
                        Sheets("Data").Range("DP" & Bos_Satir).Value = TextBox119.Text
                        Sheets("Data").Range("DQ" & Bos_Satir).Value = TextBox120.Text
                        Sheets("Data").Range("DR" & Bos_Satir).Value = TextBox121.Text
                        Sheets("Data").Range("DS" & Bos_Satir).Value = TextBox122.Text
                        Sheets("Data").Range("DT" & Bos_Satir).Value = TextBox123.Text
                        Sheets("Data").Range("DU" & Bos_Satir).Value = TextBox124.Text
                        Sheets("Data").Range("DV" & Bos_Satir).Value = TextBox125.Text
                        Sheets("Data").Range("DW" & Bos_Satir).Value = TextBox126.Text
                        Sheets("Data").Range("DX" & Bos_Satir).Value = TextBox127.Text
                        Sheets("Data").Range("DY" & Bos_Satir).Value = TextBox128.Text
                        Sheets("Data").Range("DZ" & Bos_Satir).Value = TextBox129.Text
                        Sheets("Data").Range("EA" & Bos_Satir).Value = TextBox130.Text
                        Sheets("Data").Range("EB" & Bos_Satir).Value = TextBox131.Text
                        Sheets("Data").Range("EC" & Bos_Satir).Value = TextBox132.Text
                        Sheets("Data").Range("ED" & Bos_Satir).Value = TextBox133.Text
                        Sheets("Data").Range("EE" & Bos_Satir).Value = TextBox134.Text
                        Sheets("Data").Range("EF" & Bos_Satir).Value = TextBox135.Text
                        Sheets("Data").Range("EG" & Bos_Satir).Value = TextBox136.Text
                        Sheets("Data").Range("EH" & Bos_Satir).Value = TextBox137.Text
                        Sheets("Data").Range("EI" & Bos_Satir).Value = TextBox138.Text
                        Sheets("Data").Range("EJ" & Bos_Satir).Value = TextBox139.Text
                        Sheets("Data").Range("EK" & Bos_Satir).Value = TextBox140.Text
                        Sheets("Data").Range("EL" & Bos_Satir).Value = TextBox141.Text
                        Sheets("Data").Range("EM" & Bos_Satir).Value = TextBox142.Text
                        Sheets("Data").Range("EN" & Bos_Satir).Value = TextBox143.Text
                        Sheets("Data").Range("EO" & Bos_Satir).Value = TextBox144.Text
                        Sheets("Data").Range("EP" & Bos_Satir).Value = TextBox145.Text
                        Sheets("Data").Range("EQ" & Bos_Satir).Value = TextBox146.Text
                        Sheets("Data").Range("ER" & Bos_Satir).Value = TextBox147.Text
                        Sheets("Data").Range("ES" & Bos_Satir).Value = TextBox148.Text
                        Sheets("Data").Range("ET" & Bos_Satir).Value = TextBox149.Text
                        Sheets("Data").Range("EU" & Bos_Satir).Value = TextBox150.Text
                        Sheets("Data").Range("EV" & Bos_Satir).Value = TextBox151.Text
                        Sheets("Data").Range("EW" & Bos_Satir).Value = TextBox152.Text
                        Sheets("Data").Range("EX" & Bos_Satir).Value = TextBox153.Text
                        Sheets("Data").Range("EY" & Bos_Satir).Value = TextBox154.Text
                        Sheets("Data").Range("EZ" & Bos_Satir).Value = TextBox155.Text
                        Sheets("Data").Range("FA" & Bos_Satir).Value = TextBox156.Text
                        Sheets("Data").Range("FB" & Bos_Satir).Value = TextBox157.Text
                        Sheets("Data").Range("FC" & Bos_Satir).Value = TextBox158.Text
                        Sheets("Data").Range("FD" & Bos_Satir).Value = TextBox159.Text
                        Sheets("Data").Range("FE" & Bos_Satir).Value = TextBox160.Text
                        Sheets("Data").Range("FF" & Bos_Satir).Value = TextBox161.Text
                        Sheets("Data").Range("FG" & Bos_Satir).Value = TextBox162.Text
                        Sheets("Data").Range("FH" & Bos_Satir).Value = TextBox163.Text
                        Sheets("Data").Range("FI" & Bos_Satir).Value = TextBox164.Text
                        Sheets("Data").Range("FJ" & Bos_Satir).Value = TextBox165.Text
                        Sheets("Data").Range("FK" & Bos_Satir).Value = TextBox166.Text
            '///////////////////////////////////////////////////////////
                        Sheets("Data").Range("FL" & Bos_Satir).Value = TextBox167.Text
                        Sheets("Data").Range("FM" & Bos_Satir).Value = TextBox168.Text
                        Sheets("Data").Range("FN" & Bos_Satir).Value = TextBox169.Text
                        Sheets("Data").Range("FO" & Bos_Satir).Value = TextBox170.Text
                        Sheets("Data").Range("FP" & Bos_Satir).Value = TextBox171.Text
                        Sheets("Data").Range("FQ" & Bos_Satir).Value = TextBox172.Text
                        Sheets("Data").Range("FR" & Bos_Satir).Value = TextBox173.Text
                        Sheets("Data").Range("FS" & Bos_Satir).Value = TextBox174.Text
                        Sheets("Data").Range("FT" & Bos_Satir).Value = TextBox175.Text
                        Sheets("Data").Range("FU" & Bos_Satir).Value = TextBox176.Text
                        Sheets("Data").Range("FV" & Bos_Satir).Value = TextBox177.Text
                        Sheets("Data").Range("FW" & Bos_Satir).Value = TextBox178.Text
                        Sheets("Data").Range("FX" & Bos_Satir).Value = TextBox179.Text
                        Sheets("Data").Range("FY" & Bos_Satir).Value = TextBox180.Text
                        Sheets("Data").Range("FZ" & Bos_Satir).Value = TextBox181.Text
                        Sheets("Data").Range("GA" & Bos_Satir).Value = TextBox182.Text
                        Sheets("Data").Range("GB" & Bos_Satir).Value = TextBox183.Text
                        Sheets("Data").Range("GC" & Bos_Satir).Value = TextBox184.Text
                        Sheets("Data").Range("GD" & Bos_Satir).Value = TextBox185.Text
                        Sheets("Data").Range("GE" & Bos_Satir).Value = TextBox186.Text
                        Sheets("Data").Range("GF" & Bos_Satir).Value = TextBox187.Text
                        Sheets("Data").Range("GG" & Bos_Satir).Value = TextBox188.Text
                        Sheets("Data").Range("GH" & Bos_Satir).Value = TextBox189.Text
                        Sheets("Data").Range("GI" & Bos_Satir).Value = TextBox190.Text
                        Sheets("Data").Range("GJ" & Bos_Satir).Value = TextBox191.Text
                        Sheets("Data").Range("GK" & Bos_Satir).Value = TextBox192.Text
                        Sheets("Data").Range("GL" & Bos_Satir).Value = TextBox193.Text
                        Sheets("Data").Range("GM" & Bos_Satir).Value = TextBox194.Text
                        Sheets("Data").Range("GN" & Bos_Satir).Value = TextBox195.Text
                        Sheets("Data").Range("GO" & Bos_Satir).Value = TextBox196.Text
                        Sheets("Data").Range("GP" & Bos_Satir).Value = TextBox197.Text
                        Sheets("Data").Range("GQ" & Bos_Satir).Value = TextBox198.Text
                        Sheets("Data").Range("GR" & Bos_Satir).Value = TextBox199.Text
                        Sheets("Data").Range("GS" & Bos_Satir).Value = TextBox200.Text
                        Sheets("Data").Range("GT" & Bos_Satir).Value = TextBox201.Text
                        Sheets("Data").Range("GU" & Bos_Satir).Value = TextBox202.Text
                        Sheets("Data").Range("GV" & Bos_Satir).Value = TextBox203.Text
                        Sheets("Data").Range("GW" & Bos_Satir).Value = TextBox204.Text
                        Sheets("Data").Range("GX" & Bos_Satir).Value = TextBox205.Text
                        Sheets("Data").Range("GY" & Bos_Satir).Value = TextBox206.Text
                        Sheets("Data").Range("GZ" & Bos_Satir).Value = TextBox207.Text
                        Sheets("Data").Range("HA" & Bos_Satir).Value = TextBox208.Text
                        Sheets("Data").Range("HB" & Bos_Satir).Value = TextBox209.Text
                        Sheets("Data").Range("HC" & Bos_Satir).Value = TextBox210.Text
                        Sheets("Data").Range("HD" & Bos_Satir).Value = TextBox211.Text
                        Sheets("Data").Range("HE" & Bos_Satir).Value = TextBox212.Text
                        Sheets("Data").Range("HF" & Bos_Satir).Value = TextBox213.Text
                        Sheets("Data").Range("HG" & Bos_Satir).Value = TextBox214.Text
                        Sheets("Data").Range("HH" & Bos_Satir).Value = TextBox215.Text
                        Sheets("Data").Range("HI" & Bos_Satir).Value = TextBox216.Text
                        Sheets("Data").Range("HJ" & Bos_Satir).Value = TextBox217.Text
                        Sheets("Data").Range("HK" & Bos_Satir).Value = TextBox218.Text
 
   
                         Sheets("Data").Range("HM" & Bos_Satir).Value = TextBox221.Text
                         Sheets("Data").Range("HN" & Bos_Satir).Value = TextBox219.Text
                         Sheets("Data").Range("HO" & Bos_Satir).Value = TextBox220.Text
                         Sheets("Data").Range("HP" & Bos_Satir).Value = TextBox160.Text
                         Sheets("Data").Range("HQ" & Bos_Satir).Value = TextBox161.Text
                          Sheets("Data").Range("HR" & Bos_Satir).Value = TextBox162.Text
                 Sheets("Data").Range("HS" & Bos_Satir).Value = TextBox163.Text
                          Sheets("Data").Range("HT" & Bos_Satir).Value = TextBox164.Text
                           Sheets("Data").Range("HU" & Bos_Satir).Value = TextBox165.Text
                          Sheets("Data").Range("HV" & Bos_Satir).Value = TextBox166.Text
                        Sheets("Form").Select
                    Else
                        Degistirilecek_Satir = ListBox1.ListIndex + 2
     
    Sheets("Data").Range("B" & Degistirilecek_Satir).Value = TextBox1.Text
                        Sheets("Data").Range("C" & Degistirilecek_Satir).Value = TextBox2.Text
                        Sheets("Data").Range("D" & Degistirilecek_Satir).Value = TextBox3.Text
                        Sheets("Data").Range("E" & Degistirilecek_Satir).Value = TextBox4.Text
                        Sheets("Data").Range("F" & Degistirilecek_Satir).Value = TextBox5.Text
                        Sheets("Data").Range("G" & Degistirilecek_Satir).Value = TextBox6.Text
                        Sheets("Data").Range("H" & Degistirilecek_Satir).Value = TextBox7.Text
                        Sheets("Data").Range("I" & Degistirilecek_Satir).Value = TextBox8.Text
                        Sheets("Data").Range("J" & Degistirilecek_Satir).Value = TextBox9.Text
                        Sheets("Data").Range("K" & Degistirilecek_Satir).Value = TextBox10.Text
                        Sheets("Data").Range("L" & Degistirilecek_Satir).Value = TextBox11.Text
                        Sheets("Data").Range("M" & Degistirilecek_Satir).Value = TextBox12.Text
                        Sheets("Data").Range("N" & Degistirilecek_Satir).Value = TextBox13.Text
                        Sheets("Data").Range("O" & Degistirilecek_Satir).Value = TextBox14.Text
                        Sheets("Data").Range("P" & Degistirilecek_Satir).Value = TextBox15.Text
                        Sheets("Data").Range("Q" & Degistirilecek_Satir).Value = TextBox16.Text
                        Sheets("Data").Range("R" & Degistirilecek_Satir).Value = TextBox17.Text
                        Sheets("Data").Range("S" & Degistirilecek_Satir).Value = TextBox18.Text
                        Sheets("Data").Range("T" & Degistirilecek_Satir).Value = TextBox19.Text
                        Sheets("Data").Range("U" & Degistirilecek_Satir).Value = TextBox20.Text
                        Sheets("Data").Range("V" & Degistirilecek_Satir).Value = TextBox21.Text
                        Sheets("Data").Range("W" & Degistirilecek_Satir).Value = TextBox22.Text
                        Sheets("Data").Range("X" & Degistirilecek_Satir).Value = TextBox23.Text
                        Sheets("Data").Range("Y" & Degistirilecek_Satir).Value = TextBox24.Text
                        Sheets("Data").Range("Z" & Degistirilecek_Satir).Value = TextBox25.Text
                        Sheets("Data").Range("AA" & Degistirilecek_Satir).Value = TextBox26.Text
                        Sheets("Data").Range("AB" & Degistirilecek_Satir).Value = TextBox27.Text
                        Sheets("Data").Range("AC" & Degistirilecek_Satir).Value = TextBox28.Text
                        Sheets("Data").Range("AD" & Degistirilecek_Satir).Value = TextBox29.Text
                        Sheets("Data").Range("AE" & Degistirilecek_Satir).Value = TextBox30.Text
                        Sheets("Data").Range("AF" & Degistirilecek_Satir).Value = TextBox31.Text
                        Sheets("Data").Range("AG" & Degistirilecek_Satir).Value = TextBox32.Text
                        Sheets("Data").Range("AH" & Degistirilecek_Satir).Value = TextBox33.Text
                        Sheets("Data").Range("AI" & Degistirilecek_Satir).Value = TextBox34.Text
                        Sheets("Data").Range("AJ" & Degistirilecek_Satir).Value = TextBox35.Text
                        Sheets("Data").Range("AK" & Degistirilecek_Satir).Value = TextBox36.Text
                        Sheets("Data").Range("AL" & Degistirilecek_Satir).Value = TextBox37.Text
                        Sheets("Data").Range("AM" & Degistirilecek_Satir).Value = TextBox38.Text
                        Sheets("Data").Range("AN" & Degistirilecek_Satir).Value = TextBox39.Text
                        Sheets("Data").Range("AO" & Degistirilecek_Satir).Value = TextBox40.Text
                        Sheets("Data").Range("AP" & Degistirilecek_Satir).Value = TextBox41.Text
                        Sheets("Data").Range("AQ" & Degistirilecek_Satir).Value = TextBox42.Text
                        Sheets("Data").Range("AR" & Degistirilecek_Satir).Value = TextBox43.Text
                        Sheets("Data").Range("AS" & Degistirilecek_Satir).Value = TextBox44.Text
                        Sheets("Data").Range("AT" & Degistirilecek_Satir).Value = TextBox45.Text
                        Sheets("Data").Range("AU" & Degistirilecek_Satir).Value = TextBox46.Text
                        Sheets("Data").Range("AV" & Degistirilecek_Satir).Value = TextBox47.Text
                        Sheets("Data").Range("AW" & Degistirilecek_Satir).Value = TextBox48.Text
                        Sheets("Data").Range("AX" & Degistirilecek_Satir).Value = TextBox49.Text
                        Sheets("Data").Range("AY" & Degistirilecek_Satir).Value = TextBox50.Text
                        Sheets("Data").Range("AZ" & Degistirilecek_Satir).Value = TextBox51.Text
                        Sheets("Data").Range("BA" & Degistirilecek_Satir).Value = TextBox52.Text
                        Sheets("Data").Range("BB" & Degistirilecek_Satir).Value = TextBox53.Text
                        Sheets("Data").Range("BC" & Degistirilecek_Satir).Value = TextBox54.Text
                        Sheets("Data").Range("BD" & Degistirilecek_Satir).Value = TextBox55.Text
                        Sheets("Data").Range("BE" & Degistirilecek_Satir).Value = TextBox56.Text
                        Sheets("Data").Range("BF" & Degistirilecek_Satir).Value = TextBox57.Text
                        Sheets("Data").Range("BG" & Degistirilecek_Satir).Value = TextBox58.Text
                        Sheets("Data").Range("BH" & Degistirilecek_Satir).Value = TextBox59.Text
                        Sheets("Data").Range("BI" & Degistirilecek_Satir).Value = TextBox60.Text
                        Sheets("Data").Range("BJ" & Degistirilecek_Satir).Value = TextBox61.Text
                        Sheets("Data").Range("BK" & Degistirilecek_Satir).Value = TextBox62.Text
                        Sheets("Data").Range("BL" & Degistirilecek_Satir).Value = TextBox63.Text
                        Sheets("Data").Range("BM" & Degistirilecek_Satir).Value = TextBox64.Text
                        Sheets("Data").Range("BN" & Degistirilecek_Satir).Value = TextBox65.Text
                        Sheets("Data").Range("BO" & Degistirilecek_Satir).Value = TextBox66.Text
                        Sheets("Data").Range("BP" & Degistirilecek_Satir).Value = TextBox67.Text
                        Sheets("Data").Range("BQ" & Degistirilecek_Satir).Value = TextBox68.Text
                        Sheets("Data").Range("BR" & Degistirilecek_Satir).Value = TextBox69.Text
                        Sheets("Data").Range("BS" & Degistirilecek_Satir).Value = TextBox70.Text
                        Sheets("Data").Range("BT" & Degistirilecek_Satir).Value = TextBox71.Text
                        Sheets("Data").Range("BU" & Degistirilecek_Satir).Value = TextBox72.Text
                        Sheets("Data").Range("BV" & Degistirilecek_Satir).Value = TextBox73.Text
                        Sheets("Data").Range("BW" & Degistirilecek_Satir).Value = TextBox74.Text
                        Sheets("Data").Range("BX" & Degistirilecek_Satir).Value = TextBox75.Text
                        Sheets("Data").Range("BY" & Degistirilecek_Satir).Value = TextBox76.Text
                        Sheets("Data").Range("BZ" & Degistirilecek_Satir).Value = TextBox77.Text
                        Sheets("Data").Range("CA" & Degistirilecek_Satir).Value = TextBox78.Text
                        Sheets("Data").Range("CB" & Degistirilecek_Satir).Value = TextBox79.Text
                        Sheets("Data").Range("CC" & Degistirilecek_Satir).Value = TextBox80.Text
                        Sheets("Data").Range("CD" & Degistirilecek_Satir).Value = TextBox81.Text
                        Sheets("Data").Range("CE" & Degistirilecek_Satir).Value = TextBox82.Text
                        Sheets("Data").Range("CF" & Degistirilecek_Satir).Value = TextBox83.Text
                        Sheets("Data").Range("CG" & Degistirilecek_Satir).Value = TextBox84.Text
                        Sheets("Data").Range("CH" & Degistirilecek_Satir).Value = TextBox85.Text
                        Sheets("Data").Range("CI" & Degistirilecek_Satir).Value = TextBox86.Text
                        Sheets("Data").Range("CJ" & Degistirilecek_Satir).Value = TextBox87.Text
                        Sheets("Data").Range("CK" & Degistirilecek_Satir).Value = TextBox88.Text
                        Sheets("Data").Range("CL" & Degistirilecek_Satir).Value = TextBox89.Text
                        Sheets("Data").Range("CM" & Degistirilecek_Satir).Value = TextBox90.Text
                        Sheets("Data").Range("CN" & Degistirilecek_Satir).Value = TextBox91.Text
                        Sheets("Data").Range("CO" & Degistirilecek_Satir).Value = TextBox92.Text
                        Sheets("Data").Range("CP" & Degistirilecek_Satir).Value = TextBox93.Text
                        Sheets("Data").Range("CQ" & Degistirilecek_Satir).Value = TextBox94.Text
                        Sheets("Data").Range("CR" & Degistirilecek_Satir).Value = TextBox95.Text
                        Sheets("Data").Range("CS" & Degistirilecek_Satir).Value = TextBox96.Text
                        Sheets("Data").Range("CT" & Degistirilecek_Satir).Value = TextBox97.Text
                        Sheets("Data").Range("CU" & Degistirilecek_Satir).Value = TextBox98.Text
                        Sheets("Data").Range("CV" & Degistirilecek_Satir).Value = TextBox99.Text
                        Sheets("Data").Range("CW" & Degistirilecek_Satir).Value = TextBox100.Text
                        Sheets("Data").Range("CX" & Degistirilecek_Satir).Value = TextBox101.Text
                        Sheets("Data").Range("CY" & Degistirilecek_Satir).Value = TextBox102.Text
                        Sheets("Data").Range("CZ" & Degistirilecek_Satir).Value = TextBox103.Text
                        Sheets("Data").Range("DA" & Degistirilecek_Satir).Value = TextBox104.Text
                        Sheets("Data").Range("DB" & Degistirilecek_Satir).Value = TextBox105.Text
                        Sheets("Data").Range("DC" & Degistirilecek_Satir).Value = TextBox106.Text
                        Sheets("Data").Range("DD" & Degistirilecek_Satir).Value = TextBox107.Text
                        Sheets("Data").Range("DE" & Degistirilecek_Satir).Value = TextBox108.Text
                        Sheets("Data").Range("DF" & Degistirilecek_Satir).Value = TextBox109.Text
                        Sheets("Data").Range("DG" & Degistirilecek_Satir).Value = TextBox10.Text
                        Sheets("Data").Range("DH" & Degistirilecek_Satir).Value = TextBox111.Text
                        Sheets("Data").Range("DI" & Degistirilecek_Satir).Value = TextBox112.Text
                        Sheets("Data").Range("DJ" & Degistirilecek_Satir).Value = TextBox113.Text
                        Sheets("Data").Range("DK" & Degistirilecek_Satir).Value = TextBox114.Text
                        Sheets("Data").Range("DL" & Degistirilecek_Satir).Value = TextBox115.Text
                        Sheets("Data").Range("DM" & Degistirilecek_Satir).Value = TextBox116.Text
                        Sheets("Data").Range("DN" & Degistirilecek_Satir).Value = TextBox117.Text
                        Sheets("Data").Range("DO" & Degistirilecek_Satir).Value = TextBox118.Text
                        Sheets("Data").Range("DP" & Degistirilecek_Satir).Value = TextBox119.Text
                        Sheets("Data").Range("DQ" & Degistirilecek_Satir).Value = TextBox120.Text
                        Sheets("Data").Range("DR" & Degistirilecek_Satir).Value = TextBox121.Text
                        Sheets("Data").Range("DS" & Degistirilecek_Satir).Value = TextBox122.Text
                        Sheets("Data").Range("DT" & Degistirilecek_Satir).Value = TextBox123.Text
                        Sheets("Data").Range("DU" & Degistirilecek_Satir).Value = TextBox124.Text
                        Sheets("Data").Range("DV" & Degistirilecek_Satir).Value = TextBox125.Text
                        Sheets("Data").Range("DW" & Degistirilecek_Satir).Value = TextBox126.Text
                        Sheets("Data").Range("DX" & Degistirilecek_Satir).Value = TextBox127.Text
                        Sheets("Data").Range("DY" & Degistirilecek_Satir).Value = TextBox128.Text
                        Sheets("Data").Range("DZ" & Degistirilecek_Satir).Value = TextBox129.Text
                        Sheets("Data").Range("EA" & Degistirilecek_Satir).Value = TextBox130.Text
                        Sheets("Data").Range("EB" & Degistirilecek_Satir).Value = TextBox131.Text
                        Sheets("Data").Range("EC" & Degistirilecek_Satir).Value = TextBox132.Text
                        Sheets("Data").Range("ED" & Degistirilecek_Satir).Value = TextBox133.Text
                        Sheets("Data").Range("EE" & Degistirilecek_Satir).Value = TextBox134.Text
                        Sheets("Data").Range("EF" & Degistirilecek_Satir).Value = TextBox135.Text
                        Sheets("Data").Range("EG" & Degistirilecek_Satir).Value = TextBox136.Text
                        Sheets("Data").Range("EH" & Degistirilecek_Satir).Value = TextBox137.Text
                        Sheets("Data").Range("EI" & Degistirilecek_Satir).Value = TextBox138.Text
                        Sheets("Data").Range("EJ" & Degistirilecek_Satir).Value = TextBox139.Text
                        Sheets("Data").Range("EK" & Degistirilecek_Satir).Value = TextBox140.Text
                                               
                        Sheets("Data").Range("EL" & Degistirilecek_Satir).Value = TextBox141.Text
                        Sheets("Data").Range("EM" & Degistirilecek_Satir).Value = TextBox142.Text
                        Sheets("Data").Range("EN" & Degistirilecek_Satir).Value = TextBox143.Text
                        Sheets("Data").Range("EO" & Degistirilecek_Satir).Value = TextBox144.Text
                        Sheets("Data").Range("EP" & Degistirilecek_Satir).Value = TextBox145.Text
                        Sheets("Data").Range("EQ" & Degistirilecek_Satir).Value = TextBox146.Text
                        Sheets("Data").Range("ER" & Degistirilecek_Satir).Value = TextBox147.Text
                        Sheets("Data").Range("ES" & Degistirilecek_Satir).Value = TextBox148.Text
                        Sheets("Data").Range("ET" & Degistirilecek_Satir).Value = TextBox149.Text
                        Sheets("Data").Range("EU" & Degistirilecek_Satir).Value = TextBox150.Text
                        Sheets("Data").Range("EV" & Degistirilecek_Satir).Value = TextBox151.Text
                        Sheets("Data").Range("EW" & Degistirilecek_Satir).Value = TextBox152.Text
                        Sheets("Data").Range("EX" & Degistirilecek_Satir).Value = TextBox153.Text
                        Sheets("Data").Range("EY" & Degistirilecek_Satir).Value = TextBox154.Text
                        Sheets("Data").Range("EZ" & Degistirilecek_Satir).Value = TextBox155.Text
                        Sheets("Data").Range("FA" & Degistirilecek_Satir).Value = TextBox156.Text
                        Sheets("Data").Range("FB" & Degistirilecek_Satir).Value = TextBox157.Text
                        Sheets("Data").Range("FC" & Degistirilecek_Satir).Value = TextBox158.Text
                        Sheets("Data").Range("FD" & Degistirilecek_Satir).Value = TextBox159.Text
                        Sheets("Data").Range("FE" & Degistirilecek_Satir).Value = TextBox160.Text
                        
                     Sheets("Data").Range("FF" & Degistirilecek_Satir).Value = TextBox161.Text
                        Sheets("Data").Range("FG" & Degistirilecek_Satir).Value = TextBox162.Text
          Sheets("Data").Range("FH" & Degistirilecek_Satir).Value = TextBox163.Text
                        Sheets("Data").Range("FI" & Degistirilecek_Satir).Value = TextBox164.Text
                        Sheets("Data").Range("FJ" & Degistirilecek_Satir).Value = TextBox165.Text
                        Sheets("Data").Range("FK" & Degistirilecek_Satir).Value = TextBox166.Text
                       '///////////////////////////////////////////////////////////
                        Sheets("Data").Range("FL" & Degistirilecek_Satir).Value = TextBox167.Text
                        Sheets("Data").Range("FM" & Degistirilecek_Satir).Value = TextBox168.Text
                        Sheets("Data").Range("FN" & Degistirilecek_Satir).Value = TextBox169.Text
                        Sheets("Data").Range("FO" & Degistirilecek_Satir).Value = TextBox170.Text
                        Sheets("Data").Range("FP" & Degistirilecek_Satir).Value = TextBox171.Text
                        Sheets("Data").Range("FQ" & Degistirilecek_Satir).Value = TextBox172.Text
                        Sheets("Data").Range("FR" & Degistirilecek_Satir).Value = TextBox173.Text
                        Sheets("Data").Range("FS" & Degistirilecek_Satir).Value = TextBox174.Text
                        Sheets("Data").Range("FT" & Degistirilecek_Satir).Value = TextBox175.Text
                        Sheets("Data").Range("FU" & Degistirilecek_Satir).Value = TextBox176.Text
                        Sheets("Data").Range("FV" & Degistirilecek_Satir).Value = TextBox177.Text
                        Sheets("Data").Range("FW" & Degistirilecek_Satir).Value = TextBox178.Text
                        Sheets("Data").Range("FX" & Degistirilecek_Satir).Value = TextBox179.Text
                        Sheets("Data").Range("FY" & Degistirilecek_Satir).Value = TextBox180.Text
                        Sheets("Data").Range("FZ" & Degistirilecek_Satir).Value = TextBox181.Text
                        Sheets("Data").Range("GA" & Degistirilecek_Satir).Value = TextBox182.Text
                        Sheets("Data").Range("GB" & Degistirilecek_Satir).Value = TextBox183.Text
                        Sheets("Data").Range("GC" & Degistirilecek_Satir).Value = TextBox184.Text
                        Sheets("Data").Range("GD" & Degistirilecek_Satir).Value = TextBox185.Text
                        Sheets("Data").Range("GE" & Degistirilecek_Satir).Value = TextBox186.Text
                        Sheets("Data").Range("GF" & Degistirilecek_Satir).Value = TextBox187.Text
                        Sheets("Data").Range("GG" & Degistirilecek_Satir).Value = TextBox188.Text
                        Sheets("Data").Range("GH" & Degistirilecek_Satir).Value = TextBox189.Text
                        Sheets("Data").Range("GI" & Degistirilecek_Satir).Value = TextBox190.Text
                        Sheets("Data").Range("GJ" & Degistirilecek_Satir).Value = TextBox191.Text
                        Sheets("Data").Range("GK" & Degistirilecek_Satir).Value = TextBox192.Text
                        Sheets("Data").Range("GL" & Degistirilecek_Satir).Value = TextBox193.Text
                        Sheets("Data").Range("GM" & Degistirilecek_Satir).Value = TextBox194.Text
                        Sheets("Data").Range("GN" & Degistirilecek_Satir).Value = TextBox195.Text
                        Sheets("Data").Range("GO" & Degistirilecek_Satir).Value = TextBox196.Text
                        Sheets("Data").Range("GP" & Degistirilecek_Satir).Value = TextBox197.Text
                        Sheets("Data").Range("GQ" & Degistirilecek_Satir).Value = TextBox198.Text
                        Sheets("Data").Range("GR" & Degistirilecek_Satir).Value = TextBox199.Text
                        Sheets("Data").Range("GS" & Degistirilecek_Satir).Value = TextBox200.Text
                        Sheets("Data").Range("GT" & Degistirilecek_Satir).Value = TextBox201.Text
                        Sheets("Data").Range("GU" & Degistirilecek_Satir).Value = TextBox202.Text
                        Sheets("Data").Range("GV" & Degistirilecek_Satir).Value = TextBox203.Text
                        Sheets("Data").Range("GW" & Degistirilecek_Satir).Value = TextBox204.Text
                        Sheets("Data").Range("GX" & Degistirilecek_Satir).Value = TextBox205.Text
                        Sheets("Data").Range("GY" & Degistirilecek_Satir).Value = TextBox206.Text
                        Sheets("Data").Range("GZ" & Degistirilecek_Satir).Value = TextBox207.Text
                        Sheets("Data").Range("HA" & Degistirilecek_Satir).Value = TextBox208.Text
                        Sheets("Data").Range("HB" & Degistirilecek_Satir).Value = TextBox209.Text
                        Sheets("Data").Range("HC" & Degistirilecek_Satir).Value = TextBox210.Text
                        Sheets("Data").Range("HD" & Degistirilecek_Satir).Value = TextBox211.Text
                        Sheets("Data").Range("HE" & Degistirilecek_Satir).Value = TextBox212.Text
                        Sheets("Data").Range("HF" & Degistirilecek_Satir).Value = TextBox213.Text
                        Sheets("Data").Range("HG" & Degistirilecek_Satir).Value = TextBox214.Text
                        Sheets("Data").Range("HH" & Degistirilecek_Satir).Value = TextBox215.Text
                        Sheets("Data").Range("HI" & Degistirilecek_Satir).Value = TextBox216.Text
                        Sheets("Data").Range("HJ" & Degistirilecek_Satir).Value = TextBox217.Text
                        Sheets("Data").Range("HK" & Degistirilecek_Satir).Value = TextBox218.Text
  '//////////////////////////////////////////////////////
                  
                         Sheets("Data").Range("HM" & Degistirilecek_Satir).Value = TextBox221.Text
                         Sheets("Data").Range("HN" & Degistirilecek_Satir).Value = TextBox219.Text
                         Sheets("Data").Range("HO" & Degistirilecek_Satir).Value = TextBox220.Text
                         Sheets("Data").Range("HP" & Degistirilecek_Satir).Value = TextBox160.Text
                         Sheets("Data").Range("HQ" & Degistirilecek_Satir).Value = TextBox161.Text
                          Sheets("Data").Range("HR" & Degistirilecek_Satir).Value = TextBox162.Text
                 Sheets("Data").Range("HS" & Degistirilecek_Satir).Value = TextBox163.Text
                          Sheets("Data").Range("HT" & Degistirilecek_Satir).Value = TextBox164.Text
                           Sheets("Data").Range("HU" & Degistirilecek_Satir).Value = TextBox165.Text
                          Sheets("Data").Range("HV" & Degistirilecek_Satir).Value = TextBox166.Text
   End If
            
End Sub
 
H

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,738
Excel Vers. ve Dili
Excel 2019 Türkçe
Döngü kurmalısınız. Forumdaki örnekleri inceleyerek öğrenebilirsiniz.
 
G

gezgin-49

Altın Üye
Katılım
17 Ekim 2006
Mesajlar
669
Excel Vers. ve Dili
Türkçe 2003
Altın Üyelik Bitiş Tarihi
22-09-2028
hamitcan' Alıntı:
Döngü kurmalısınız. Forumdaki örnekleri inceleyerek öğrenebilirsiniz.
Genişletmek için tıkla ...
döngüyü çok denedim ama bu konuda hiç deneyimim olmadığı ve bu işi iyi bilen birisi memleketimizde olmadığından bir türlü başaramadım, bu nedenle siz değerli üstadlarımın yardımlarını bekliyorum,
 
G

gezgin-49

Altın Üye
Katılım
17 Ekim 2006
Mesajlar
669
Excel Vers. ve Dili
Türkçe 2003
Altın Üyelik Bitiş Tarihi
22-09-2028
sayın üstadlarım hiç olmazsa yukarıdaki kodlarla ilgili nasıl bir döngü kuracağım hakkında bir ipucu verirseniz belki başarabilirim, saygılarımla
 
H

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,738
Excel Vers. ve Dili
Excel 2019 Türkçe
Bir örnek veriyorum, diğerlerini buna bakarak yapın.
Kod: 
Private Sub CommandButton1_Click()
'2009 Yılı
For i = 4 To 54
Sheets("Form").Range("E" & i).Value = Controls("TextBox" & i).Text
Next
End Sub
 
G

gezgin-49

Altın Üye
Katılım
17 Ekim 2006
Mesajlar
669
Excel Vers. ve Dili
Türkçe 2003
Altın Üyelik Bitiş Tarihi
22-09-2028
Sayın üstadım Hamitcan Allah sizden razı olsun, çok teşekkür ederim, yanlız kayıt işlemi E5 hücresinden başlaması gerekiyor, onu da hallederseniz memnun olurum saygılarımla


Private Sub CommandButton1_Click()
'2009 Yılı
For i = 4 To 54
Sheets("Form").Range("E" & i).Value = Controls("TextBox" & i).Text
Next
End Sub
 
Son düzenleme:
H

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,738
Excel Vers. ve Dili
Excel 2019 Türkçe
Döngü başlangıç sayısını değiştirmelisiniz.
Kod: 
For i = [COLOR=RED]5[/COLOR] To 54
 
G

gezgin-49

Altın Üye
Katılım
17 Ekim 2006
Mesajlar
669
Excel Vers. ve Dili
Türkçe 2003
Altın Üyelik Bitiş Tarihi
22-09-2028
hamitcan' Alıntı:
Döngü başlangıç sayısını değiştirmelisiniz.
Kod: 
For i = [COLOR=RED]5[/COLOR] To 54
Genişletmek için tıkla ...
sayın üstadım döngü başlangıç sayısını değiştirdim, ilk satır E5 ten başladı, ancak textboxlar 4 ten başladığı için bir problem var, bunu nasıl çözebiliriz
eğer textboxlar 5 ten başlasaydı sorun yoktu, bu konuda yardımlarınızı bekliyorum, saygılar
Kod: 
 Sheets("Form").Range("E5").Value = TextBox4.Text
                        Sheets("Form").Range("E6").Value = TextBox5.Text
                        Sheets("Form").Range("E7").Value = TextBox6.Text
                        Sheets("Form").Range("E8").Value = TextBox7.Text
                        Sheets("Form").Range("E9").Value = TextBox8.Text
                        Sheets("Form").Range("E10").Value = TextBox9.Text
                        Sheets("Form").Range("E11").Value = TextBox10.Text
                        Sheets("Form").Range("E12").Value = TextBox11.Text
                        Sheets("Form").Range("E13").Value = TextBox12.Text
                        Sheets("Form").Range("E14").Value = TextBox13.Text
                        Sheets("Form").Range("E15").Value = TextBox14.Text
                        Sheets("Form").Range("E16").Value = TextBox15.Text
                        Sheets("Form").Range("E17").Value = TextBox16.Text
                        Sheets("Form").Range("E18").Value = TextBox17.Text
                        Sheets("Form").Range("E19").Value = TextBox18.Text
                        Sheets("Form").Range("E20").Value = TextBox19.Text
                        Sheets("Form").Range("E21").Value = TextBox20.Text
                        Sheets("Form").Range("E22").Value = TextBox21.Text
                        Sheets("Form").Range("E23").Value = TextBox22.Text
                        Sheets("Form").Range("E24").Value = TextBox23.Text
                        Sheets("Form").Range("E25").Value = TextBox24.Text
                        Sheets("Form").Range("E26").Value = TextBox25.Text
                        Sheets("Form").Range("E27").Value = TextBox26.Text
                        Sheets("Form").Range("E28").Value = TextBox27.Text
                        Sheets("Form").Range("E29").Value = TextBox28.Text
                        Sheets("Form").Range("E30").Value = TextBox29.Text
                        Sheets("Form").Range("E31").Value = TextBox30.Text
                        Sheets("Form").Range("E32").Value = TextBox31.Text
                        Sheets("Form").Range("E33").Value = TextBox32.Text
                        Sheets("Form").Range("E34").Value = TextBox33.Text
                        Sheets("Form").Range("E35").Value = TextBox34.Text
                        Sheets("Form").Range("E36").Value = TextBox35.Text
                        Sheets("Form").Range("E37").Value = TextBox36.Text
                        Sheets("Form").Range("E38").Value = TextBox37.Text
                        Sheets("Form").Range("E39").Value = TextBox38.Text
                        Sheets("Form").Range("E40").Value = TextBox39.Text
                        Sheets("Form").Range("E41").Value = TextBox40.Text
                        Sheets("Form").Range("E42").Value = TextBox41.Text
                        Sheets("Form").Range("E43").Value = TextBox42.Text
                        Sheets("Form").Range("E44").Value = TextBox43.Text
                        Sheets("Form").Range("E45").Value = TextBox44.Text
                        Sheets("Form").Range("E46").Value = TextBox45.Text
                        Sheets("Form").Range("E47").Value = TextBox46.Text
                        Sheets("Form").Range("E48").Value = TextBox47.Text
                        Sheets("Form").Range("E49").Value = TextBox48.Text
                        Sheets("Form").Range("E50").Value = TextBox49.Text
                        Sheets("Form").Range("E51").Value = TextBox50.Text
                        Sheets("Form").Range("E52").Value = TextBox51.Text
                        Sheets("Form").Range("E53").Value = TextBox52.Text
                        Sheets("Form").Range("E54").Value = TextBox53.Text
                          Sheets("Form").Range("E55").Value = TextBox54.Text
                         Sheets("Form").Range("E56").Value = TextBox55.Text
 
G

gezgin-49

Altın Üye
Katılım
17 Ekim 2006
Mesajlar
669
Excel Vers. ve Dili
Türkçe 2003
Altın Üyelik Bitiş Tarihi
22-09-2028
sayın üstadlarım yardımlarınızı bekliyorum, 8 nolu mesajıma cevap verebilirseniz memnun olurum, saygılarımla
 
H

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,738
Excel Vers. ve Dili
Excel 2019 Türkçe
Aslında siz de rahatlıkla çözebilirdiniz. Kodlara bakarak korkmayın, deneyerek bazı sonuçlara ulaşmaya çalışın.
Kod: 
Controls("TextBox" & [COLOR=RED]i-1[/COLOR]).Text
 
G

gezgin-49

Altın Üye
Katılım
17 Ekim 2006
Mesajlar
669
Excel Vers. ve Dili
Türkçe 2003
Altın Üyelik Bitiş Tarihi
22-09-2028
Sayın üstadım Hamitcan çok teşekkür ederim, ama ben mesajı attıktan sonra sizin cevabınızdaki gibi denemiştim, gerçekten deneme yanılma yoluyla oluyormuş, sizin cevabınızla da sorunu pekinleştirdim, teşekkür ederim, Allah razı olsun, Allah sizleri darda bırakmasın (Amin.)
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst