• DİKKAT

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

procedure too large hatası

  • Konbuyu başlatan Konbuyu başlatan hamemo
  • Başlangıç tarihi Başlangıç tarihi
H

hamemo

Katılım
12 Mart 2018
Mesajlar
3
Excel Vers. ve Dili
Excel 2016, Türkçe
Kod: 
Sub gönder()

For i = 2 To 25

If Sayfa33.Cells(i, 3).Value <> "" Then

Sayfa1.Cells(i + 3, 2).Value = Sayfa33.Cells(i, 3).Value
Sayfa1.Cells(i + 3, 3).Value = Sayfa33.Cells(i, 4).Value
Sayfa1.Cells(i + 3, 4).Value = Sayfa33.Cells(i, 5).Value
Sayfa1.Cells(i + 3, 5).Value = Sayfa33.Cells(i, 6).Value
Sayfa1.Cells(i + 3, 6).Value = Sayfa33.Cells(i, 7).Value
Sayfa1.Cells(i + 3, 7).Value = Sayfa33.Cells(i, 8).Value
Sayfa1.Cells(i + 3, 9).Value = Sayfa33.Cells(i, 11).Value
Sayfa1.Cells(i + 3, 18).Value = Sayfa33.Cells(i, 9).Value
Sayfa1.Cells(i + 3, 28).Value = Sayfa33.Cells(i, 10).Value
Sayfa1.Cells(i + 3, 12).Value = Sayfa33.Cells(i, 12).Value
Sayfa1.Cells(i + 3, 14).Value = Sayfa33.Cells(i, 13).Value
Sayfa1.Cells(i + 3, 15).Value = Sayfa33.Cells(i, 14).Value
Sayfa1.Cells(i + 3, 17).Value = Sayfa33.Cells(i, 15).Value
Sayfa1.Cells(i + 3, 46).Value = Sayfa33.Cells(i, 16).Value
Sayfa1.Cells(i + 3, 27).Value = Sayfa33.Cells(i, 17).Value
Sayfa1.Cells(i + 3, 45).Value = Sayfa33.Cells(i, 18).Value
Sayfa1.Cells(i + 3, 24).Value = Sayfa33.Cells(i, 19).Value
Sayfa1.Cells(i + 3, 54).Value = Sayfa33.Cells(i, 20).Value
Sayfa1.Cells(i + 3, 56).Value = Sayfa33.Cells(i, 21).Value
Sayfa1.Cells(i + 3, 51).Value = Sayfa33.Cells(i, 22).Value
Sayfa1.Cells(i + 3, 53).Value = Sayfa33.Cells(i, 23).Value

End If
Next i

Dim a As Double

For a = 26 To 49

If Sayfa33.Cells(a, 3).Value <> "" Then

Sayfa2.Cells(a - 21, 2).Value = Sayfa33.Cells(a, 3).Value
Sayfa2.Cells(a - 21, 3).Value = Sayfa33.Cells(a, 4).Value
Sayfa2.Cells(a - 21, 4).Value = Sayfa33.Cells(a, 5).Value
Sayfa2.Cells(a - 21, 5).Value = Sayfa33.Cells(a, 6).Value
Sayfa2.Cells(a - 21, 6).Value = Sayfa33.Cells(a, 7).Value
Sayfa2.Cells(a - 21, 7).Value = Sayfa33.Cells(a, 8).Value
Sayfa2.Cells(a - 21, 9).Value = Sayfa33.Cells(a, 11).Value
Sayfa2.Cells(a - 21, 18).Value = Sayfa33.Cells(a, 9).Value
Sayfa2.Cells(a - 21, 28).Value = Sayfa33.Cells(a, 10).Value
Sayfa2.Cells(a - 21, 12).Value = Sayfa33.Cells(a, 12).Value
Sayfa2.Cells(a - 21, 14).Value = Sayfa33.Cells(a, 13).Value
Sayfa2.Cells(a - 21, 15).Value = Sayfa33.Cells(a, 14).Value
Sayfa2.Cells(a - 21, 17).Value = Sayfa33.Cells(a, 15).Value
Sayfa2.Cells(a - 21, 46).Value = Sayfa33.Cells(a, 16).Value
Sayfa2.Cells(a - 21, 27).Value = Sayfa33.Cells(a, 17).Value
Sayfa2.Cells(a - 21, 45).Value = Sayfa33.Cells(a, 18).Value
Sayfa2.Cells(a - 21, 24).Value = Sayfa33.Cells(a, 19).Value
Sayfa2.Cells(a - 21, 54).Value = Sayfa33.Cells(a, 20).Value
Sayfa2.Cells(a - 21, 56).Value = Sayfa33.Cells(a, 21).Value
Sayfa2.Cells(a - 21, 51).Value = Sayfa33.Cells(a, 22).Value
Sayfa2.Cells(a - 21, 53).Value = Sayfa33.Cells(a, 23).Value

End If
Next a

Dim b As Double

For b = 50 To 73

If Sayfa33.Cells(b, 3).Value <> "" Then

Sayfa3.Cells(b - 45, 2).Value = Sayfa33.Cells(b, 3).Value
Sayfa3.Cells(b - 45, 3).Value = Sayfa33.Cells(b, 4).Value
Sayfa3.Cells(b - 45, 4).Value = Sayfa33.Cells(b, 5).Value
Sayfa3.Cells(b - 45, 5).Value = Sayfa33.Cells(b, 6).Value
Sayfa3.Cells(b - 45, 6).Value = Sayfa33.Cells(b, 7).Value
Sayfa3.Cells(b - 45, 7).Value = Sayfa33.Cells(b, 8).Value
Sayfa3.Cells(b - 45, 9).Value = Sayfa33.Cells(b, 11).Value
Sayfa3.Cells(b - 45, 18).Value = Sayfa33.Cells(b, 9).Value
Sayfa3.Cells(b - 45, 28).Value = Sayfa33.Cells(b, 10).Value
Sayfa3.Cells(b - 45, 12).Value = Sayfa33.Cells(b, 12).Value
Sayfa3.Cells(b - 45, 14).Value = Sayfa33.Cells(b, 13).Value
Sayfa3.Cells(b - 45, 15).Value = Sayfa33.Cells(b, 14).Value
Sayfa3.Cells(b - 45, 17).Value = Sayfa33.Cells(b, 15).Value
Sayfa3.Cells(b - 45, 46).Value = Sayfa33.Cells(b, 16).Value
Sayfa3.Cells(b - 45, 27).Value = Sayfa33.Cells(b, 17).Value
Sayfa3.Cells(b - 45, 45).Value = Sayfa33.Cells(b, 18).Value
Sayfa3.Cells(b - 45, 24).Value = Sayfa33.Cells(b, 19).Value
Sayfa3.Cells(b - 45, 54).Value = Sayfa33.Cells(b, 20).Value
Sayfa3.Cells(b - 45, 56).Value = Sayfa33.Cells(b, 21).Value
Sayfa3.Cells(b - 45, 51).Value = Sayfa33.Cells(b, 22).Value
Sayfa3.Cells(b - 45, 53).Value = Sayfa33.Cells(b, 23).Value

End If
Next b

Dim c As Double

For c = 74 To 97

If Sayfa33.Cells(c, 3).Value <> "" Then

Sayfa4.Cells(c - 69, 2).Value = Sayfa33.Cells(c, 3).Value
Sayfa4.Cells(c - 69, 3).Value = Sayfa33.Cells(c, 4).Value
Sayfa4.Cells(c - 69, 4).Value = Sayfa33.Cells(c, 5).Value
Sayfa4.Cells(c - 69, 5).Value = Sayfa33.Cells(c, 6).Value
Sayfa4.Cells(c - 69, 6).Value = Sayfa33.Cells(c, 7).Value
Sayfa4.Cells(c - 69, 7).Value = Sayfa33.Cells(c, 8).Value
Sayfa4.Cells(c - 69, 9).Value = Sayfa33.Cells(c, 11).Value
Sayfa4.Cells(c - 69, 18).Value = Sayfa33.Cells(c, 9).Value
Sayfa4.Cells(c - 69, 28).Value = Sayfa33.Cells(c, 10).Value
Sayfa4.Cells(c - 69, 12).Value = Sayfa33.Cells(c, 12).Value
Sayfa4.Cells(c - 69, 14).Value = Sayfa33.Cells(c, 13).Value
Sayfa4.Cells(c - 69, 15).Value = Sayfa33.Cells(c, 14).Value
Sayfa4.Cells(c - 69, 17).Value = Sayfa33.Cells(c, 15).Value
Sayfa4.Cells(c - 69, 46).Value = Sayfa33.Cells(c, 16).Value
Sayfa4.Cells(c - 69, 27).Value = Sayfa33.Cells(c, 17).Value
Sayfa4.Cells(c - 69, 45).Value = Sayfa33.Cells(c, 18).Value
Sayfa4.Cells(c - 69, 24).Value = Sayfa33.Cells(c, 19).Value
Sayfa4.Cells(c - 69, 54).Value = Sayfa33.Cells(c, 20).Value
Sayfa4.Cells(c - 69, 56).Value = Sayfa33.Cells(c, 21).Value
Sayfa4.Cells(c - 69, 51).Value = Sayfa33.Cells(c, 22).Value
Sayfa4.Cells(c - 69, 53).Value = Sayfa33.Cells(c, 23).Value

End If
Next c

Dim d As Double

For d = 98 To 121

If Sayfa33.Cells(d, 3).Value <> "" Then

Sayfa5.Cells(d - 93, 2).Value = Sayfa33.Cells(d, 3).Value
Sayfa5.Cells(d - 93, 3).Value = Sayfa33.Cells(d, 4).Value
Sayfa5.Cells(d - 93, 4).Value = Sayfa33.Cells(d, 5).Value
Sayfa5.Cells(d - 93, 5).Value = Sayfa33.Cells(d, 6).Value
Sayfa5.Cells(d - 93, 6).Value = Sayfa33.Cells(d, 7).Value
Sayfa5.Cells(d - 93, 7).Value = Sayfa33.Cells(d, 8).Value
Sayfa5.Cells(d - 93, 9).Value = Sayfa33.Cells(d, 11).Value
Sayfa5.Cells(d - 93, 18).Value = Sayfa33.Cells(d, 9).Value
Sayfa5.Cells(d - 93, 28).Value = Sayfa33.Cells(d, 10).Value
Sayfa5.Cells(d - 93, 12).Value = Sayfa33.Cells(d, 12).Value
Sayfa5.Cells(d - 93, 14).Value = Sayfa33.Cells(d, 13).Value
Sayfa5.Cells(d - 93, 15).Value = Sayfa33.Cells(d, 14).Value
Sayfa5.Cells(d - 93, 17).Value = Sayfa33.Cells(d, 15).Value
Sayfa5.Cells(d - 93, 46).Value = Sayfa33.Cells(d, 16).Value
Sayfa5.Cells(d - 93, 27).Value = Sayfa33.Cells(d, 17).Value
Sayfa5.Cells(d - 93, 45).Value = Sayfa33.Cells(d, 18).Value
Sayfa5.Cells(d - 93, 24).Value = Sayfa33.Cells(d, 19).Value
Sayfa5.Cells(d - 93, 54).Value = Sayfa33.Cells(d, 20).Value
Sayfa5.Cells(d - 93, 56).Value = Sayfa33.Cells(d, 21).Value
Sayfa5.Cells(d - 93, 51).Value = Sayfa33.Cells(d, 22).Value
Sayfa5.Cells(d - 93, 53).Value = Sayfa33.Cells(d, 23).Value

End If
Next d

Dim e As Double

For e = 122 To 145

If Sayfa33.Cells(e, 3).Value <> "" Then

Sayfa6.Cells(e - 117, 2).Value = Sayfa33.Cells(e, 3).Value
Sayfa6.Cells(e - 117, 3).Value = Sayfa33.Cells(e, 4).Value
Sayfa6.Cells(e - 117, 4).Value = Sayfa33.Cells(e, 5).Value
Sayfa6.Cells(e - 117, 5).Value = Sayfa33.Cells(e, 6).Value
Sayfa6.Cells(e - 117, 6).Value = Sayfa33.Cells(e, 7).Value
Sayfa6.Cells(e - 117, 7).Value = Sayfa33.Cells(e, 8).Value
Sayfa6.Cells(e - 117, 9).Value = Sayfa33.Cells(e, 11).Value
Sayfa6.Cells(e - 117, 18).Value = Sayfa33.Cells(e, 9).Value
Sayfa6.Cells(e - 117, 28).Value = Sayfa33.Cells(e, 10).Value
Sayfa6.Cells(e - 117, 12).Value = Sayfa33.Cells(e, 12).Value
Sayfa6.Cells(e - 117, 14).Value = Sayfa33.Cells(e, 13).Value
Sayfa6.Cells(e - 117, 15).Value = Sayfa33.Cells(e, 14).Value
Sayfa6.Cells(e - 117, 17).Value = Sayfa33.Cells(e, 15).Value
Sayfa6.Cells(e - 117, 46).Value = Sayfa33.Cells(e, 16).Value
Sayfa6.Cells(e - 117, 27).Value = Sayfa33.Cells(e, 17).Value
Sayfa6.Cells(e - 117, 45).Value = Sayfa33.Cells(e, 18).Value
Sayfa6.Cells(e - 117, 24).Value = Sayfa33.Cells(e, 19).Value
Sayfa6.Cells(e - 117, 54).Value = Sayfa33.Cells(e, 20).Value
Sayfa6.Cells(e - 117, 56).Value = Sayfa33.Cells(e, 21).Value
Sayfa6.Cells(e - 117, 51).Value = Sayfa33.Cells(e, 22).Value
Sayfa6.Cells(e - 117, 53).Value = Sayfa33.Cells(e, 23).Value

End If
Next e

Dim f As Double

For f = 146 To 169

If Sayfa33.Cells(f, 3).Value <> "" Then

Sayfa7.Cells(f - 141, 2).Value = Sayfa33.Cells(f, 3).Value
Sayfa7.Cells(f - 141, 3).Value = Sayfa33.Cells(f, 4).Value
Sayfa7.Cells(f - 141, 4).Value = Sayfa33.Cells(f, 5).Value
Sayfa7.Cells(f - 141, 5).Value = Sayfa33.Cells(f, 6).Value
Sayfa7.Cells(f - 141, 6).Value = Sayfa33.Cells(f, 7).Value
Sayfa7.Cells(f - 141, 7).Value = Sayfa33.Cells(f, 8).Value
Sayfa7.Cells(f - 141, 9).Value = Sayfa33.Cells(f, 11).Value
Sayfa7.Cells(f - 141, 18).Value = Sayfa33.Cells(f, 9).Value
Sayfa7.Cells(f - 141, 28).Value = Sayfa33.Cells(f, 10).Value
Sayfa7.Cells(f - 141, 12).Value = Sayfa33.Cells(f, 12).Value
Sayfa7.Cells(f - 141, 14).Value = Sayfa33.Cells(f, 13).Value
Sayfa7.Cells(f - 141, 15).Value = Sayfa33.Cells(f, 14).Value
Sayfa7.Cells(f - 141, 17).Value = Sayfa33.Cells(f, 15).Value
Sayfa7.Cells(f - 141, 46).Value = Sayfa33.Cells(f, 16).Value
Sayfa7.Cells(f - 141, 27).Value = Sayfa33.Cells(f, 17).Value
Sayfa7.Cells(f - 141, 45).Value = Sayfa33.Cells(f, 18).Value
Sayfa7.Cells(f - 141, 24).Value = Sayfa33.Cells(f, 19).Value
Sayfa7.Cells(f - 141, 54).Value = Sayfa33.Cells(f, 20).Value
Sayfa7.Cells(f - 141, 56).Value = Sayfa33.Cells(f, 21).Value
Sayfa7.Cells(f - 141, 51).Value = Sayfa33.Cells(f, 22).Value
Sayfa7.Cells(f - 141, 53).Value = Sayfa33.Cells(f, 23).Value

End If
Next f

Dim g As Double

For g = 170 To 193

If Sayfa33.Cells(g, 3).Value <> "" Then

Sayfa8.Cells(g - 165, 2).Value = Sayfa33.Cells(g, 3).Value
Sayfa8.Cells(g - 165, 3).Value = Sayfa33.Cells(g, 4).Value
Sayfa8.Cells(g - 165, 4).Value = Sayfa33.Cells(g, 5).Value
Sayfa8.Cells(g - 165, 5).Value = Sayfa33.Cells(g, 6).Value
Sayfa8.Cells(g - 165, 6).Value = Sayfa33.Cells(g, 7).Value
Sayfa8.Cells(g - 165, 7).Value = Sayfa33.Cells(g, 8).Value
Sayfa8.Cells(g - 165, 9).Value = Sayfa33.Cells(g, 11).Value
Sayfa8.Cells(g - 165, 18).Value = Sayfa33.Cells(g, 9).Value
Sayfa8.Cells(g - 165, 28).Value = Sayfa33.Cells(g, 10).Value
Sayfa8.Cells(g - 165, 12).Value = Sayfa33.Cells(g, 12).Value
Sayfa8.Cells(g - 165, 14).Value = Sayfa33.Cells(g, 13).Value
Sayfa8.Cells(g - 165, 15).Value = Sayfa33.Cells(g, 14).Value
Sayfa8.Cells(g - 165, 17).Value = Sayfa33.Cells(g, 15).Value
Sayfa8.Cells(g - 165, 46).Value = Sayfa33.Cells(g, 16).Value
Sayfa8.Cells(g - 165, 27).Value = Sayfa33.Cells(g, 17).Value
Sayfa8.Cells(g - 165, 45).Value = Sayfa33.Cells(g, 18).Value
Sayfa8.Cells(g - 165, 24).Value = Sayfa33.Cells(g, 19).Value
Sayfa8.Cells(g - 165, 54).Value = Sayfa33.Cells(g, 20).Value
Sayfa8.Cells(g - 165, 56).Value = Sayfa33.Cells(g, 21).Value
Sayfa8.Cells(g - 165, 51).Value = Sayfa33.Cells(g, 22).Value
Sayfa8.Cells(g - 165, 53).Value = Sayfa33.Cells(g, 23).Value

End If
Next g

Dim h As Double

For h = 194 To 217

If Sayfa33.Cells(h, 3).Value <> "" Then

Sayfa9.Cells(h - 189, 2).Value = Sayfa33.Cells(h, 3).Value
Sayfa9.Cells(h - 189, 3).Value = Sayfa33.Cells(h, 4).Value
Sayfa9.Cells(h - 189, 4).Value = Sayfa33.Cells(h, 5).Value
Sayfa9.Cells(h - 189, 5).Value = Sayfa33.Cells(h, 6).Value
Sayfa9.Cells(h - 189, 6).Value = Sayfa33.Cells(h, 7).Value
Sayfa9.Cells(h - 189, 7).Value = Sayfa33.Cells(h, 8).Value
Sayfa9.Cells(h - 189, 9).Value = Sayfa33.Cells(h, 11).Value
Sayfa9.Cells(h - 189, 18).Value = Sayfa33.Cells(h, 9).Value
Sayfa9.Cells(h - 189, 28).Value = Sayfa33.Cells(h, 10).Value
Sayfa9.Cells(h - 189, 12).Value = Sayfa33.Cells(h, 12).Value
Sayfa9.Cells(h - 189, 14).Value = Sayfa33.Cells(h, 13).Value
Sayfa9.Cells(h - 189, 15).Value = Sayfa33.Cells(h, 14).Value
Sayfa9.Cells(h - 189, 17).Value = Sayfa33.Cells(h, 15).Value
Sayfa9.Cells(h - 189, 46).Value = Sayfa33.Cells(h, 16).Value
Sayfa9.Cells(h - 189, 27).Value = Sayfa33.Cells(h, 17).Value
Sayfa9.Cells(h - 189, 45).Value = Sayfa33.Cells(h, 18).Value
Sayfa9.Cells(h - 189, 24).Value = Sayfa33.Cells(h, 19).Value
Sayfa9.Cells(h - 189, 54).Value = Sayfa33.Cells(h, 20).Value
Sayfa9.Cells(h - 189, 56).Value = Sayfa33.Cells(h, 21).Value
Sayfa9.Cells(h - 189, 51).Value = Sayfa33.Cells(h, 22).Value
Sayfa9.Cells(h - 189, 53).Value = Sayfa33.Cells(h, 23).Value

End If
Next h

Dim j As Double

For j = 218 To 241

If Sayfa33.Cells(j, 3).Value <> "" Then

Sayfa10.Cells(j - 213, 2).Value = Sayfa33.Cells(j, 3).Value
Sayfa10.Cells(j - 213, 3).Value = Sayfa33.Cells(j, 4).Value
Sayfa10.Cells(j - 213, 4).Value = Sayfa33.Cells(j, 5).Value
Sayfa10.Cells(j - 213, 5).Value = Sayfa33.Cells(j, 6).Value
Sayfa10.Cells(j - 213, 6).Value = Sayfa33.Cells(j, 7).Value
Sayfa10.Cells(j - 213, 7).Value = Sayfa33.Cells(j, 8).Value
Sayfa10.Cells(j - 213, 9).Value = Sayfa33.Cells(j, 11).Value
Sayfa10.Cells(j - 213, 18).Value = Sayfa33.Cells(j, 9).Value
Sayfa10.Cells(j - 213, 28).Value = Sayfa33.Cells(j, 10).Value
Sayfa10.Cells(j - 213, 12).Value = Sayfa33.Cells(j, 12).Value
Sayfa10.Cells(j - 213, 14).Value = Sayfa33.Cells(j, 13).Value
Sayfa10.Cells(j - 213, 15).Value = Sayfa33.Cells(j, 14).Value
Sayfa10.Cells(j - 213, 17).Value = Sayfa33.Cells(j, 15).Value
Sayfa10.Cells(j - 213, 46).Value = Sayfa33.Cells(j, 16).Value
Sayfa10.Cells(j - 213, 27).Value = Sayfa33.Cells(j, 17).Value
Sayfa10.Cells(j - 213, 45).Value = Sayfa33.Cells(j, 18).Value
Sayfa10.Cells(j - 213, 24).Value = Sayfa33.Cells(j, 19).Value
Sayfa10.Cells(j - 213, 54).Value = Sayfa33.Cells(j, 20).Value
Sayfa10.Cells(j - 213, 56).Value = Sayfa33.Cells(j, 21).Value
Sayfa10.Cells(j - 213, 51).Value = Sayfa33.Cells(j, 22).Value
Sayfa10.Cells(j - 213, 53).Value = Sayfa33.Cells(j, 23).Value

End If
Next j

Dim k As Double

For k = 242 To 265

If Sayfa33.Cells(k, 3).Value <> "" Then

Sayfa11.Cells(k - 237, 2).Value = Sayfa33.Cells(k, 3).Value
Sayfa11.Cells(k - 237, 3).Value = Sayfa33.Cells(k, 4).Value
Sayfa11.Cells(k - 237, 4).Value = Sayfa33.Cells(k, 5).Value
Sayfa11.Cells(k - 237, 5).Value = Sayfa33.Cells(k, 6).Value
Sayfa11.Cells(k - 237, 6).Value = Sayfa33.Cells(k, 7).Value
Sayfa11.Cells(k - 237, 7).Value = Sayfa33.Cells(k, 8).Value
Sayfa11.Cells(k - 237, 9).Value = Sayfa33.Cells(k, 11).Value
Sayfa11.Cells(k - 237, 18).Value = Sayfa33.Cells(k, 9).Value
Sayfa11.Cells(k - 237, 28).Value = Sayfa33.Cells(k, 10).Value
Sayfa11.Cells(k - 237, 12).Value = Sayfa33.Cells(k, 12).Value
Sayfa11.Cells(k - 237, 14).Value = Sayfa33.Cells(k, 13).Value
Sayfa11.Cells(k - 237, 15).Value = Sayfa33.Cells(k, 14).Value
Sayfa11.Cells(k - 237, 17).Value = Sayfa33.Cells(k, 15).Value
Sayfa11.Cells(k - 237, 46).Value = Sayfa33.Cells(k, 16).Value
Sayfa11.Cells(k - 237, 27).Value = Sayfa33.Cells(k, 17).Value
Sayfa11.Cells(k - 237, 45).Value = Sayfa33.Cells(k, 18).Value
Sayfa11.Cells(k - 237, 24).Value = Sayfa33.Cells(k, 19).Value
Sayfa11.Cells(k - 237, 54).Value = Sayfa33.Cells(k, 20).Value
Sayfa11.Cells(k - 237, 56).Value = Sayfa33.Cells(k, 21).Value
Sayfa11.Cells(k - 237, 51).Value = Sayfa33.Cells(k, 22).Value
Sayfa11.Cells(k - 237, 53).Value = Sayfa33.Cells(k, 23).Value

End If
Next k

Dim l As Double

For l = 266 To 289

If Sayfa33.Cells(l, 3).Value <> "" Then

Sayfa12.Cells(l - 261, 2).Value = Sayfa33.Cells(l, 3).Value
Sayfa12.Cells(l - 261, 3).Value = Sayfa33.Cells(l, 4).Value
Sayfa12.Cells(l - 261, 4).Value = Sayfa33.Cells(l, 5).Value
Sayfa12.Cells(l - 261, 5).Value = Sayfa33.Cells(l, 6).Value
Sayfa12.Cells(l - 261, 6).Value = Sayfa33.Cells(l, 7).Value
Sayfa12.Cells(l - 261, 7).Value = Sayfa33.Cells(l, 8).Value
Sayfa12.Cells(l - 261, 9).Value = Sayfa33.Cells(l, 11).Value
Sayfa12.Cells(l - 261, 18).Value = Sayfa33.Cells(l, 9).Value
Sayfa12.Cells(l - 261, 28).Value = Sayfa33.Cells(l, 10).Value
Sayfa12.Cells(l - 261, 12).Value = Sayfa33.Cells(l, 12).Value
Sayfa12.Cells(l - 261, 14).Value = Sayfa33.Cells(l, 13).Value
Sayfa12.Cells(l - 261, 15).Value = Sayfa33.Cells(l, 14).Value
Sayfa12.Cells(l - 261, 17).Value = Sayfa33.Cells(l, 15).Value
Sayfa12.Cells(l - 261, 46).Value = Sayfa33.Cells(l, 16).Value
Sayfa12.Cells(l - 261, 27).Value = Sayfa33.Cells(l, 17).Value
Sayfa12.Cells(l - 261, 45).Value = Sayfa33.Cells(l, 18).Value
Sayfa12.Cells(l - 261, 24).Value = Sayfa33.Cells(l, 19).Value
Sayfa12.Cells(l - 261, 54).Value = Sayfa33.Cells(l, 20).Value
Sayfa12.Cells(l - 261, 56).Value = Sayfa33.Cells(l, 21).Value
Sayfa12.Cells(l - 261, 51).Value = Sayfa33.Cells(l, 22).Value
Sayfa12.Cells(l - 261, 53).Value = Sayfa33.Cells(l, 23).Value

End If
Next l

Dim m As Double

For m = 290 To 313

If Sayfa33.Cells(m, 3).Value <> "" Then

Sayfa13.Cells(m - 285, 2).Value = Sayfa33.Cells(m, 3).Value
Sayfa13.Cells(m - 285, 3).Value = Sayfa33.Cells(m, 4).Value
Sayfa13.Cells(m - 285, 4).Value = Sayfa33.Cells(m, 5).Value
Sayfa13.Cells(m - 285, 5).Value = Sayfa33.Cells(m, 6).Value
Sayfa13.Cells(m - 285, 6).Value = Sayfa33.Cells(m, 7).Value
Sayfa13.Cells(m - 285, 7).Value = Sayfa33.Cells(m, 8).Value
Sayfa13.Cells(m - 285, 9).Value = Sayfa33.Cells(m, 11).Value
Sayfa13.Cells(m - 285, 18).Value = Sayfa33.Cells(m, 9).Value
Sayfa13.Cells(m - 285, 28).Value = Sayfa33.Cells(m, 10).Value
Sayfa13.Cells(m - 285, 12).Value = Sayfa33.Cells(m, 12).Value
Sayfa13.Cells(m - 285, 14).Value = Sayfa33.Cells(m, 13).Value
Sayfa13.Cells(m - 285, 15).Value = Sayfa33.Cells(m, 14).Value
Sayfa13.Cells(m - 285, 17).Value = Sayfa33.Cells(m, 15).Value
Sayfa13.Cells(m - 285, 46).Value = Sayfa33.Cells(m, 16).Value
Sayfa13.Cells(m - 285, 27).Value = Sayfa33.Cells(m, 17).Value
Sayfa13.Cells(m - 285, 45).Value = Sayfa33.Cells(m, 18).Value
Sayfa13.Cells(m - 285, 24).Value = Sayfa33.Cells(m, 19).Value
Sayfa13.Cells(m - 285, 54).Value = Sayfa33.Cells(m, 20).Value
Sayfa13.Cells(m - 285, 56).Value = Sayfa33.Cells(m, 21).Value
Sayfa13.Cells(m - 285, 51).Value = Sayfa33.Cells(m, 22).Value
Sayfa13.Cells(m - 285, 53).Value = Sayfa33.Cells(m, 23).Value

End If
Next m

Dim n As Double

For n = 314 To 337

If Sayfa33.Cells(n, 3).Value <> "" Then

Sayfa14.Cells(n - 309, 2).Value = Sayfa33.Cells(n, 3).Value
Sayfa14.Cells(n - 309, 3).Value = Sayfa33.Cells(n, 4).Value
Sayfa14.Cells(n - 309, 4).Value = Sayfa33.Cells(n, 5).Value
Sayfa14.Cells(n - 309, 5).Value = Sayfa33.Cells(n, 6).Value
Sayfa14.Cells(n - 309, 6).Value = Sayfa33.Cells(n, 7).Value
Sayfa14.Cells(n - 309, 7).Value = Sayfa33.Cells(n, 8).Value
Sayfa14.Cells(n - 309, 9).Value = Sayfa33.Cells(n, 11).Value
Sayfa14.Cells(n - 309, 18).Value = Sayfa33.Cells(n, 9).Value
Sayfa14.Cells(n - 309, 28).Value = Sayfa33.Cells(n, 10).Value
Sayfa14.Cells(n - 309, 12).Value = Sayfa33.Cells(n, 12).Value
Sayfa14.Cells(n - 309, 14).Value = Sayfa33.Cells(n, 13).Value
Sayfa14.Cells(n - 309, 15).Value = Sayfa33.Cells(n, 14).Value
Sayfa14.Cells(n - 309, 17).Value = Sayfa33.Cells(n, 15).Value
Sayfa14.Cells(n - 309, 46).Value = Sayfa33.Cells(n, 16).Value
Sayfa14.Cells(n - 309, 27).Value = Sayfa33.Cells(n, 17).Value
Sayfa14.Cells(n - 309, 45).Value = Sayfa33.Cells(n, 18).Value
Sayfa14.Cells(n - 309, 24).Value = Sayfa33.Cells(n, 19).Value
Sayfa14.Cells(n - 309, 54).Value = Sayfa33.Cells(n, 20).Value
Sayfa14.Cells(n - 309, 56).Value = Sayfa33.Cells(n, 21).Value
Sayfa14.Cells(n - 309, 51).Value = Sayfa33.Cells(n, 22).Value
Sayfa14.Cells(n - 309, 53).Value = Sayfa33.Cells(n, 23).Value

End If
Next n

Dim o As Double

For o = 338 To 361

If Sayfa33.Cells(o, 3).Value <> "" Then

Sayfa15.Cells(o - 333, 2).Value = Sayfa33.Cells(o, 3).Value
Sayfa15.Cells(o - 333, 3).Value = Sayfa33.Cells(o, 4).Value
Sayfa15.Cells(o - 333, 4).Value = Sayfa33.Cells(o, 5).Value
Sayfa15.Cells(o - 333, 5).Value = Sayfa33.Cells(o, 6).Value
Sayfa15.Cells(o - 333, 6).Value = Sayfa33.Cells(o, 7).Value
Sayfa15.Cells(o - 333, 7).Value = Sayfa33.Cells(o, 8).Value
Sayfa15.Cells(o - 333, 9).Value = Sayfa33.Cells(o, 11).Value
Sayfa15.Cells(o - 333, 18).Value = Sayfa33.Cells(o, 9).Value
Sayfa15.Cells(o - 333, 28).Value = Sayfa33.Cells(o, 10).Value
Sayfa15.Cells(o - 333, 12).Value = Sayfa33.Cells(o, 12).Value
Sayfa15.Cells(o - 333, 14).Value = Sayfa33.Cells(o, 13).Value
Sayfa15.Cells(o - 333, 15).Value = Sayfa33.Cells(o, 14).Value
Sayfa15.Cells(o - 333, 17).Value = Sayfa33.Cells(o, 15).Value
Sayfa15.Cells(o - 333, 46).Value = Sayfa33.Cells(o, 16).Value
Sayfa15.Cells(o - 333, 27).Value = Sayfa33.Cells(o, 17).Value
Sayfa15.Cells(o - 333, 45).Value = Sayfa33.Cells(o, 18).Value
Sayfa15.Cells(o - 333, 24).Value = Sayfa33.Cells(o, 19).Value
Sayfa15.Cells(o - 333, 54).Value = Sayfa33.Cells(o, 20).Value
Sayfa15.Cells(o - 333, 56).Value = Sayfa33.Cells(o, 21).Value
Sayfa15.Cells(o - 333, 51).Value = Sayfa33.Cells(o, 22).Value
Sayfa15.Cells(o - 333, 53).Value = Sayfa33.Cells(o, 23).Value

End If
Next o

Dim p As Double
    
For p = 362 To 385
    
If Sayfa33.Cells(p, 3).Value <> "" Then
    
Sayfa16.Cells(p - 357, 2).Value = Sayfa33.Cells(p, 3).Value
Sayfa16.Cells(p - 357, 3).Value = Sayfa33.Cells(p, 4).Value
Sayfa16.Cells(p - 357, 4).Value = Sayfa33.Cells(p, 5).Value
Sayfa16.Cells(p - 357, 5).Value = Sayfa33.Cells(p, 6).Value
Sayfa16.Cells(p - 357, 6).Value = Sayfa33.Cells(p, 7).Value
Sayfa16.Cells(p - 357, 7).Value = Sayfa33.Cells(p, 8).Value
Sayfa16.Cells(p - 357, 9).Value = Sayfa33.Cells(p, 11).Value
Sayfa16.Cells(p - 357, 18).Value = Sayfa33.Cells(p, 9).Value
Sayfa16.Cells(p - 357, 28).Value = Sayfa33.Cells(p, 10).Value
Sayfa16.Cells(p - 357, 12).Value = Sayfa33.Cells(p, 12).Value
Sayfa16.Cells(p - 357, 14).Value = Sayfa33.Cells(p, 13).Value
Sayfa16.Cells(p - 357, 15).Value = Sayfa33.Cells(p, 14).Value
Sayfa16.Cells(p - 357, 17).Value = Sayfa33.Cells(p, 15).Value
Sayfa16.Cells(p - 357, 46).Value = Sayfa33.Cells(p, 16).Value
Sayfa16.Cells(p - 357, 27).Value = Sayfa33.Cells(p, 17).Value
Sayfa16.Cells(p - 357, 45).Value = Sayfa33.Cells(p, 18).Value
Sayfa16.Cells(p - 357, 24).Value = Sayfa33.Cells(p, 19).Value
Sayfa16.Cells(p - 357, 54).Value = Sayfa33.Cells(p, 20).Value
Sayfa16.Cells(p - 357, 56).Value = Sayfa33.Cells(p, 21).Value
Sayfa16.Cells(p - 357, 51).Value = Sayfa33.Cells(p, 22).Value
Sayfa16.Cells(p - 357, 53).Value = Sayfa33.Cells(p, 23).Value
    
End If
Next p

Dim q As Double

For q = 386 To 409

If Sayfa33.Cells(q, 3).Value <> "" Then

Sayfa17.Cells(q - 381, 2).Value = Sayfa33.Cells(q, 3).Value
Sayfa17.Cells(q - 381, 3).Value = Sayfa33.Cells(q, 4).Value
Sayfa17.Cells(q - 381, 4).Value = Sayfa33.Cells(q, 5).Value
Sayfa17.Cells(q - 381, 5).Value = Sayfa33.Cells(q, 6).Value
Sayfa17.Cells(q - 381, 6).Value = Sayfa33.Cells(q, 7).Value
Sayfa17.Cells(q - 381, 7).Value = Sayfa33.Cells(q, 8).Value
Sayfa17.Cells(q - 381, 9).Value = Sayfa33.Cells(q, 11).Value
Sayfa17.Cells(q - 381, 18).Value = Sayfa33.Cells(q, 9).Value
Sayfa17.Cells(q - 381, 28).Value = Sayfa33.Cells(q, 10).Value
Sayfa17.Cells(q - 381, 12).Value = Sayfa33.Cells(q, 12).Value
Sayfa17.Cells(q - 381, 14).Value = Sayfa33.Cells(q, 13).Value
Sayfa17.Cells(q - 381, 15).Value = Sayfa33.Cells(q, 14).Value
Sayfa17.Cells(q - 381, 17).Value = Sayfa33.Cells(q, 15).Value
Sayfa17.Cells(q - 381, 46).Value = Sayfa33.Cells(q, 16).Value
Sayfa17.Cells(q - 381, 27).Value = Sayfa33.Cells(q, 17).Value
Sayfa17.Cells(q - 381, 45).Value = Sayfa33.Cells(q, 18).Value
Sayfa17.Cells(q - 381, 24).Value = Sayfa33.Cells(q, 19).Value
Sayfa17.Cells(q - 381, 54).Value = Sayfa33.Cells(q, 20).Value
Sayfa17.Cells(q - 381, 56).Value = Sayfa33.Cells(q, 21).Value
Sayfa17.Cells(q - 381, 51).Value = Sayfa33.Cells(q, 22).Value
Sayfa17.Cells(q - 381, 53).Value = Sayfa33.Cells(q, 23).Value

End If
Next q

Dim r As Double

For r = 410 To 433

If Sayfa33.Cells(r, 3).Value <> "" Then

Sayfa18.Cells(r - 405, 2).Value = Sayfa33.Cells(r, 3).Value
Sayfa18.Cells(r - 405, 3).Value = Sayfa33.Cells(r, 4).Value
Sayfa18.Cells(r - 405, 4).Value = Sayfa33.Cells(r, 5).Value
Sayfa18.Cells(r - 405, 5).Value = Sayfa33.Cells(r, 6).Value
Sayfa18.Cells(r - 405, 6).Value = Sayfa33.Cells(r, 7).Value
Sayfa18.Cells(r - 405, 7).Value = Sayfa33.Cells(r, 8).Value
Sayfa18.Cells(r - 405, 9).Value = Sayfa33.Cells(r, 11).Value
Sayfa18.Cells(r - 405, 18).Value = Sayfa33.Cells(r, 9).Value
Sayfa18.Cells(r - 405, 28).Value = Sayfa33.Cells(r, 10).Value
Sayfa18.Cells(r - 405, 12).Value = Sayfa33.Cells(r, 12).Value
Sayfa18.Cells(r - 405, 14).Value = Sayfa33.Cells(r, 13).Value
Sayfa18.Cells(r - 405, 15).Value = Sayfa33.Cells(r, 14).Value
Sayfa18.Cells(r - 405, 17).Value = Sayfa33.Cells(r, 15).Value
Sayfa18.Cells(r - 405, 46).Value = Sayfa33.Cells(r, 16).Value
Sayfa18.Cells(r - 405, 27).Value = Sayfa33.Cells(r, 17).Value
Sayfa18.Cells(r - 405, 45).Value = Sayfa33.Cells(r, 18).Value
Sayfa18.Cells(r - 405, 24).Value = Sayfa33.Cells(r, 19).Value
Sayfa18.Cells(r - 405, 54).Value = Sayfa33.Cells(r, 20).Value
Sayfa18.Cells(r - 405, 56).Value = Sayfa33.Cells(r, 21).Value
Sayfa18.Cells(r - 405, 51).Value = Sayfa33.Cells(r, 22).Value
Sayfa18.Cells(r - 405, 53).Value = Sayfa33.Cells(r, 23).Value

End If
Next r

Dim s As Double

For s = 434 To 457

If Sayfa33.Cells(s, 3).Value <> "" Then

Sayfa19.Cells(s - 429, 2).Value = Sayfa33.Cells(s, 3).Value
Sayfa19.Cells(s - 429, 3).Value = Sayfa33.Cells(s, 4).Value
Sayfa19.Cells(s - 429, 4).Value = Sayfa33.Cells(s, 5).Value
Sayfa19.Cells(s - 429, 5).Value = Sayfa33.Cells(s, 6).Value
Sayfa19.Cells(s - 429, 6).Value = Sayfa33.Cells(s, 7).Value
Sayfa19.Cells(s - 429, 7).Value = Sayfa33.Cells(s, 8).Value
Sayfa19.Cells(s - 429, 9).Value = Sayfa33.Cells(s, 11).Value
Sayfa19.Cells(s - 429, 18).Value = Sayfa33.Cells(s, 9).Value
Sayfa19.Cells(s - 429, 28).Value = Sayfa33.Cells(s, 10).Value
Sayfa19.Cells(s - 429, 12).Value = Sayfa33.Cells(s, 12).Value
Sayfa19.Cells(s - 429, 14).Value = Sayfa33.Cells(s, 13).Value
Sayfa19.Cells(s - 429, 15).Value = Sayfa33.Cells(s, 14).Value
Sayfa19.Cells(s - 429, 17).Value = Sayfa33.Cells(s, 15).Value
Sayfa19.Cells(s - 429, 46).Value = Sayfa33.Cells(s, 16).Value
Sayfa19.Cells(s - 429, 27).Value = Sayfa33.Cells(s, 17).Value
Sayfa19.Cells(s - 429, 45).Value = Sayfa33.Cells(s, 18).Value
Sayfa19.Cells(s - 429, 24).Value = Sayfa33.Cells(s, 19).Value
Sayfa19.Cells(s - 429, 54).Value = Sayfa33.Cells(s, 20).Value
Sayfa19.Cells(s - 429, 56).Value = Sayfa33.Cells(s, 21).Value
Sayfa19.Cells(s - 429, 51).Value = Sayfa33.Cells(s, 22).Value
Sayfa19.Cells(s - 429, 53).Value = Sayfa33.Cells(s, 23).Value

End If
Next s

Dim t As Double

For t = 458 To 481

If Sayfa33.Cells(t, 3).Value <> "" Then

Sayfa20.Cells(t - 453, 2).Value = Sayfa33.Cells(t, 3).Value
Sayfa20.Cells(t - 453, 3).Value = Sayfa33.Cells(t, 4).Value
Sayfa20.Cells(t - 453, 4).Value = Sayfa33.Cells(t, 5).Value
Sayfa20.Cells(t - 453, 5).Value = Sayfa33.Cells(t, 6).Value
Sayfa20.Cells(t - 453, 6).Value = Sayfa33.Cells(t, 7).Value
Sayfa20.Cells(t - 453, 7).Value = Sayfa33.Cells(t, 8).Value
Sayfa20.Cells(t - 453, 9).Value = Sayfa33.Cells(t, 11).Value
Sayfa20.Cells(t - 453, 18).Value = Sayfa33.Cells(t, 9).Value
Sayfa20.Cells(t - 453, 28).Value = Sayfa33.Cells(t, 10).Value
Sayfa20.Cells(t - 453, 12).Value = Sayfa33.Cells(t, 12).Value
Sayfa20.Cells(t - 453, 14).Value = Sayfa33.Cells(t, 13).Value
Sayfa20.Cells(t - 453, 15).Value = Sayfa33.Cells(t, 14).Value
Sayfa20.Cells(t - 453, 17).Value = Sayfa33.Cells(t, 15).Value
Sayfa20.Cells(t - 453, 46).Value = Sayfa33.Cells(t, 16).Value
Sayfa20.Cells(t - 453, 27).Value = Sayfa33.Cells(t, 17).Value
Sayfa20.Cells(t - 453, 45).Value = Sayfa33.Cells(t, 18).Value
Sayfa20.Cells(t - 453, 24).Value = Sayfa33.Cells(t, 19).Value
Sayfa20.Cells(t - 453, 54).Value = Sayfa33.Cells(t, 20).Value
Sayfa20.Cells(t - 453, 56).Value = Sayfa33.Cells(t, 21).Value
Sayfa20.Cells(t - 453, 51).Value = Sayfa33.Cells(t, 22).Value
Sayfa20.Cells(t - 453, 53).Value = Sayfa33.Cells(t, 23).Value

End If
Next t

Dim u As Double

For u = 482 To 505

If Sayfa33.Cells(u, 3).Value <> "" Then

Sayfa21.Cells(u - 477, 2).Value = Sayfa33.Cells(u, 3).Value
Sayfa21.Cells(u - 477, 3).Value = Sayfa33.Cells(u, 4).Value
Sayfa21.Cells(u - 477, 4).Value = Sayfa33.Cells(u, 5).Value
Sayfa21.Cells(u - 477, 5).Value = Sayfa33.Cells(u, 6).Value
Sayfa21.Cells(u - 477, 6).Value = Sayfa33.Cells(u, 7).Value
Sayfa21.Cells(u - 477, 7).Value = Sayfa33.Cells(u, 8).Value
Sayfa21.Cells(u - 477, 9).Value = Sayfa33.Cells(u, 11).Value
Sayfa21.Cells(u - 477, 18).Value = Sayfa33.Cells(u, 9).Value
Sayfa21.Cells(u - 477, 28).Value = Sayfa33.Cells(u, 10).Value
Sayfa21.Cells(u - 477, 12).Value = Sayfa33.Cells(u, 12).Value
Sayfa21.Cells(u - 477, 14).Value = Sayfa33.Cells(u, 13).Value
Sayfa21.Cells(u - 477, 15).Value = Sayfa33.Cells(u, 14).Value
Sayfa21.Cells(u - 477, 17).Value = Sayfa33.Cells(u, 15).Value
Sayfa21.Cells(u - 477, 46).Value = Sayfa33.Cells(u, 16).Value
Sayfa21.Cells(u - 477, 27).Value = Sayfa33.Cells(u, 17).Value
Sayfa21.Cells(u - 477, 45).Value = Sayfa33.Cells(u, 18).Value
Sayfa21.Cells(u - 477, 24).Value = Sayfa33.Cells(u, 19).Value
Sayfa21.Cells(u - 477, 54).Value = Sayfa33.Cells(u, 20).Value
Sayfa21.Cells(u - 477, 56).Value = Sayfa33.Cells(u, 21).Value
Sayfa21.Cells(u - 477, 51).Value = Sayfa33.Cells(u, 22).Value
Sayfa21.Cells(u - 477, 53).Value = Sayfa33.Cells(u, 23).Value

End If
Next u

Dim v As Double

For v = 506 To 529

If Sayfa33.Cells(v, 3).Value <> "" Then

Sayfa22.Cells(v - 501, 2).Value = Sayfa33.Cells(v, 3).Value
Sayfa22.Cells(v - 501, 3).Value = Sayfa33.Cells(v, 4).Value
Sayfa22.Cells(v - 501, 4).Value = Sayfa33.Cells(v, 5).Value
Sayfa22.Cells(v - 501, 5).Value = Sayfa33.Cells(v, 6).Value
Sayfa22.Cells(v - 501, 6).Value = Sayfa33.Cells(v, 7).Value
Sayfa22.Cells(v - 501, 7).Value = Sayfa33.Cells(v, 8).Value
Sayfa22.Cells(v - 501, 9).Value = Sayfa33.Cells(v, 11).Value
Sayfa22.Cells(v - 501, 18).Value = Sayfa33.Cells(v, 9).Value
Sayfa22.Cells(v - 501, 28).Value = Sayfa33.Cells(v, 10).Value
Sayfa22.Cells(v - 501, 12).Value = Sayfa33.Cells(v, 12).Value
Sayfa22.Cells(v - 501, 14).Value = Sayfa33.Cells(v, 13).Value
Sayfa22.Cells(v - 501, 15).Value = Sayfa33.Cells(v, 14).Value
Sayfa22.Cells(v - 501, 17).Value = Sayfa33.Cells(v, 15).Value
Sayfa22.Cells(v - 501, 46).Value = Sayfa33.Cells(v, 16).Value
Sayfa22.Cells(v - 501, 27).Value = Sayfa33.Cells(v, 17).Value
Sayfa22.Cells(v - 501, 45).Value = Sayfa33.Cells(v, 18).Value
Sayfa22.Cells(v - 501, 24).Value = Sayfa33.Cells(v, 19).Value
Sayfa22.Cells(v - 501, 54).Value = Sayfa33.Cells(v, 20).Value
Sayfa22.Cells(v - 501, 56).Value = Sayfa33.Cells(v, 21).Value
Sayfa22.Cells(v - 501, 51).Value = Sayfa33.Cells(v, 22).Value
Sayfa22.Cells(v - 501, 53).Value = Sayfa33.Cells(v, 23).Value

End If
Next v

Dim w As Double

For w = 530 To 553

If Sayfa33.Cells(w, 3).Value <> "" Then

Sayfa23.Cells(w - 525, 2).Value = Sayfa33.Cells(w, 3).Value
Sayfa23.Cells(w - 525, 3).Value = Sayfa33.Cells(w, 4).Value
Sayfa23.Cells(w - 525, 4).Value = Sayfa33.Cells(w, 5).Value
Sayfa23.Cells(w - 525, 5).Value = Sayfa33.Cells(w, 6).Value
Sayfa23.Cells(w - 525, 6).Value = Sayfa33.Cells(w, 7).Value
Sayfa23.Cells(w - 525, 7).Value = Sayfa33.Cells(w, 8).Value
Sayfa23.Cells(w - 525, 9).Value = Sayfa33.Cells(w, 11).Value
Sayfa23.Cells(w - 525, 18).Value = Sayfa33.Cells(w, 9).Value
Sayfa23.Cells(w - 525, 28).Value = Sayfa33.Cells(w, 10).Value
Sayfa23.Cells(w - 525, 12).Value = Sayfa33.Cells(w, 12).Value
Sayfa23.Cells(w - 525, 14).Value = Sayfa33.Cells(w, 13).Value
Sayfa23.Cells(w - 525, 15).Value = Sayfa33.Cells(w, 14).Value
Sayfa23.Cells(w - 525, 17).Value = Sayfa33.Cells(w, 15).Value
Sayfa23.Cells(w - 525, 46).Value = Sayfa33.Cells(w, 16).Value
Sayfa23.Cells(w - 525, 27).Value = Sayfa33.Cells(w, 17).Value
Sayfa23.Cells(w - 525, 45).Value = Sayfa33.Cells(w, 18).Value
Sayfa23.Cells(w - 525, 24).Value = Sayfa33.Cells(w, 19).Value
Sayfa23.Cells(w - 525, 54).Value = Sayfa33.Cells(w, 20).Value
Sayfa23.Cells(w - 525, 56).Value = Sayfa33.Cells(w, 21).Value
Sayfa23.Cells(w - 525, 51).Value = Sayfa33.Cells(w, 22).Value
Sayfa23.Cells(w - 525, 53).Value = Sayfa33.Cells(w, 23).Value

End If
Next w

Dim x As Double

For x = 554 To 577

If Sayfa33.Cells(x, 3).Value <> "" Then

Sayfa24.Cells(x - 549, 2).Value = Sayfa33.Cells(x, 3).Value
Sayfa24.Cells(x - 549, 3).Value = Sayfa33.Cells(x, 4).Value
Sayfa24.Cells(x - 549, 4).Value = Sayfa33.Cells(x, 5).Value
Sayfa24.Cells(x - 549, 5).Value = Sayfa33.Cells(x, 6).Value
Sayfa24.Cells(x - 549, 6).Value = Sayfa33.Cells(x, 7).Value
Sayfa24.Cells(x - 549, 7).Value = Sayfa33.Cells(x, 8).Value
Sayfa24.Cells(x - 549, 9).Value = Sayfa33.Cells(x, 11).Value
Sayfa24.Cells(x - 549, 18).Value = Sayfa33.Cells(x, 9).Value
Sayfa24.Cells(x - 549, 28).Value = Sayfa33.Cells(x, 10).Value
Sayfa24.Cells(x - 549, 12).Value = Sayfa33.Cells(x, 12).Value
Sayfa24.Cells(x - 549, 14).Value = Sayfa33.Cells(x, 13).Value
Sayfa24.Cells(x - 549, 15).Value = Sayfa33.Cells(x, 14).Value
Sayfa24.Cells(x - 549, 17).Value = Sayfa33.Cells(x, 15).Value
Sayfa24.Cells(x - 549, 46).Value = Sayfa33.Cells(x, 16).Value
Sayfa24.Cells(x - 549, 27).Value = Sayfa33.Cells(x, 17).Value
Sayfa24.Cells(x - 549, 45).Value = Sayfa33.Cells(x, 18).Value
Sayfa24.Cells(x - 549, 24).Value = Sayfa33.Cells(x, 19).Value
Sayfa24.Cells(x - 549, 54).Value = Sayfa33.Cells(x, 20).Value
Sayfa24.Cells(x - 549, 56).Value = Sayfa33.Cells(x, 21).Value
Sayfa24.Cells(x - 549, 51).Value = Sayfa33.Cells(x, 22).Value
Sayfa24.Cells(x - 549, 53).Value = Sayfa33.Cells(x, 23).Value

End If
Next x

Dim y As Double

For y = 578 To 601

If Sayfa33.Cells(y, 3).Value <> "" Then

Sayfa25.Cells(y - 573, 2).Value = Sayfa33.Cells(y, 3).Value
Sayfa25.Cells(y - 573, 3).Value = Sayfa33.Cells(y, 4).Value
Sayfa25.Cells(y - 573, 4).Value = Sayfa33.Cells(y, 5).Value
Sayfa25.Cells(y - 573, 5).Value = Sayfa33.Cells(y, 6).Value
Sayfa25.Cells(y - 573, 6).Value = Sayfa33.Cells(y, 7).Value
Sayfa25.Cells(y - 573, 7).Value = Sayfa33.Cells(y, 8).Value
Sayfa25.Cells(y - 573, 9).Value = Sayfa33.Cells(y, 11).Value
Sayfa25.Cells(y - 573, 18).Value = Sayfa33.Cells(y, 9).Value
Sayfa25.Cells(y - 573, 28).Value = Sayfa33.Cells(y, 10).Value
Sayfa25.Cells(y - 573, 12).Value = Sayfa33.Cells(y, 12).Value
Sayfa25.Cells(y - 573, 14).Value = Sayfa33.Cells(y, 13).Value
Sayfa25.Cells(y - 573, 15).Value = Sayfa33.Cells(y, 14).Value
Sayfa25.Cells(y - 573, 17).Value = Sayfa33.Cells(y, 15).Value
Sayfa25.Cells(y - 573, 46).Value = Sayfa33.Cells(y, 16).Value
Sayfa25.Cells(y - 573, 27).Value = Sayfa33.Cells(y, 17).Value
Sayfa25.Cells(y - 573, 45).Value = Sayfa33.Cells(y, 18).Value
Sayfa25.Cells(y - 573, 24).Value = Sayfa33.Cells(y, 19).Value
Sayfa25.Cells(y - 573, 54).Value = Sayfa33.Cells(y, 20).Value
Sayfa25.Cells(y - 573, 56).Value = Sayfa33.Cells(y, 21).Value
Sayfa25.Cells(y - 573, 51).Value = Sayfa33.Cells(y, 22).Value
Sayfa25.Cells(y - 573, 53).Value = Sayfa33.Cells(y, 23).Value

End If
Next y

Dim z As Double

For z = 602 To 625

If Sayfa33.Cells(z, 3).Value <> "" Then

Sayfa26.Cells(z - 597, 2).Value = Sayfa33.Cells(z, 3).Value
Sayfa26.Cells(z - 597, 3).Value = Sayfa33.Cells(z, 4).Value
Sayfa26.Cells(z - 597, 4).Value = Sayfa33.Cells(z, 5).Value
Sayfa26.Cells(z - 597, 5).Value = Sayfa33.Cells(z, 6).Value
Sayfa26.Cells(z - 597, 6).Value = Sayfa33.Cells(z, 7).Value
Sayfa26.Cells(z - 597, 7).Value = Sayfa33.Cells(z, 8).Value
Sayfa26.Cells(z - 597, 9).Value = Sayfa33.Cells(z, 11).Value
Sayfa26.Cells(z - 597, 18).Value = Sayfa33.Cells(z, 9).Value
Sayfa26.Cells(z - 597, 28).Value = Sayfa33.Cells(z, 10).Value
Sayfa26.Cells(z - 597, 12).Value = Sayfa33.Cells(z, 12).Value
Sayfa26.Cells(z - 597, 14).Value = Sayfa33.Cells(z, 13).Value
Sayfa26.Cells(z - 597, 15).Value = Sayfa33.Cells(z, 14).Value
Sayfa26.Cells(z - 597, 17).Value = Sayfa33.Cells(z, 15).Value
Sayfa26.Cells(z - 597, 46).Value = Sayfa33.Cells(z, 16).Value
Sayfa26.Cells(z - 597, 27).Value = Sayfa33.Cells(z, 17).Value
Sayfa26.Cells(z - 597, 45).Value = Sayfa33.Cells(z, 18).Value
Sayfa26.Cells(z - 597, 24).Value = Sayfa33.Cells(z, 19).Value
Sayfa26.Cells(z - 597, 54).Value = Sayfa33.Cells(z, 20).Value
Sayfa26.Cells(z - 597, 56).Value = Sayfa33.Cells(z, 21).Value
Sayfa26.Cells(z - 597, 51).Value = Sayfa33.Cells(z, 22).Value
Sayfa26.Cells(z - 597, 53).Value = Sayfa33.Cells(z, 23).Value

End If
Next z

Dim aa As Double

For aa = 626 To 649

If Sayfa33.Cells(aa, 3).Value <> "" Then

Sayfa27.Cells(aa - 621, 2).Value = Sayfa33.Cells(aa, 3).Value
Sayfa27.Cells(aa - 621, 3).Value = Sayfa33.Cells(aa, 4).Value
Sayfa27.Cells(aa - 621, 4).Value = Sayfa33.Cells(aa, 5).Value
Sayfa27.Cells(aa - 621, 5).Value = Sayfa33.Cells(aa, 6).Value
Sayfa27.Cells(aa - 621, 6).Value = Sayfa33.Cells(aa, 7).Value
Sayfa27.Cells(aa - 621, 7).Value = Sayfa33.Cells(aa, 8).Value
Sayfa27.Cells(aa - 621, 9).Value = Sayfa33.Cells(aa, 11).Value
Sayfa27.Cells(aa - 621, 18).Value = Sayfa33.Cells(aa, 9).Value
Sayfa27.Cells(aa - 621, 28).Value = Sayfa33.Cells(aa, 10).Value
Sayfa27.Cells(aa - 621, 12).Value = Sayfa33.Cells(aa, 12).Value
Sayfa27.Cells(aa - 621, 14).Value = Sayfa33.Cells(aa, 13).Value
Sayfa27.Cells(aa - 621, 15).Value = Sayfa33.Cells(aa, 14).Value
Sayfa27.Cells(aa - 621, 17).Value = Sayfa33.Cells(aa, 15).Value
Sayfa27.Cells(aa - 621, 46).Value = Sayfa33.Cells(aa, 16).Value
Sayfa27.Cells(aa - 621, 27).Value = Sayfa33.Cells(aa, 17).Value
Sayfa27.Cells(aa - 621, 45).Value = Sayfa33.Cells(aa, 18).Value
Sayfa27.Cells(aa - 621, 24).Value = Sayfa33.Cells(aa, 19).Value
Sayfa27.Cells(aa - 621, 54).Value = Sayfa33.Cells(aa, 20).Value
Sayfa27.Cells(aa - 621, 56).Value = Sayfa33.Cells(aa, 21).Value
Sayfa27.Cells(aa - 621, 51).Value = Sayfa33.Cells(aa, 22).Value
Sayfa27.Cells(aa - 621, 53).Value = Sayfa33.Cells(aa, 23).Value

End If
Next aa

Dim ab As Double

For ab = 650 To 673

If Sayfa33.Cells(ab, 3).Value <> "" Then

Sayfa28.Cells(ab - 645, 2).Value = Sayfa33.Cells(ab, 3).Value
Sayfa28.Cells(ab - 645, 3).Value = Sayfa33.Cells(ab, 4).Value
Sayfa28.Cells(ab - 645, 4).Value = Sayfa33.Cells(ab, 5).Value
Sayfa28.Cells(ab - 645, 5).Value = Sayfa33.Cells(ab, 6).Value
Sayfa28.Cells(ab - 645, 6).Value = Sayfa33.Cells(ab, 7).Value
Sayfa28.Cells(ab - 645, 7).Value = Sayfa33.Cells(ab, 8).Value
Sayfa28.Cells(ab - 645, 9).Value = Sayfa33.Cells(ab, 11).Value
Sayfa28.Cells(ab - 645, 18).Value = Sayfa33.Cells(ab, 9).Value
Sayfa28.Cells(ab - 645, 28).Value = Sayfa33.Cells(ab, 10).Value
Sayfa28.Cells(ab - 645, 12).Value = Sayfa33.Cells(ab, 12).Value
Sayfa28.Cells(ab - 645, 14).Value = Sayfa33.Cells(ab, 13).Value
Sayfa28.Cells(ab - 645, 15).Value = Sayfa33.Cells(ab, 14).Value
Sayfa28.Cells(ab - 645, 17).Value = Sayfa33.Cells(ab, 15).Value
Sayfa28.Cells(ab - 645, 46).Value = Sayfa33.Cells(ab, 16).Value
Sayfa28.Cells(ab - 645, 27).Value = Sayfa33.Cells(ab, 17).Value
Sayfa28.Cells(ab - 645, 45).Value = Sayfa33.Cells(ab, 18).Value
Sayfa28.Cells(ab - 645, 24).Value = Sayfa33.Cells(ab, 19).Value
Sayfa28.Cells(ab - 645, 54).Value = Sayfa33.Cells(ab, 20).Value
Sayfa28.Cells(ab - 645, 56).Value = Sayfa33.Cells(ab, 21).Value
Sayfa28.Cells(ab - 645, 51).Value = Sayfa33.Cells(ab, 22).Value
Sayfa28.Cells(ab - 645, 53).Value = Sayfa33.Cells(ab, 23).Value

End If
Next ab

Dim ac As Double

For ac = 674 To 697

If Sayfa33.Cells(ac, 3).Value <> "" Then

Sayfa29.Cells(ac - 669, 2).Value = Sayfa33.Cells(ac, 3).Value
Sayfa29.Cells(ac - 669, 3).Value = Sayfa33.Cells(ac, 4).Value
Sayfa29.Cells(ac - 669, 4).Value = Sayfa33.Cells(ac, 5).Value
Sayfa29.Cells(ac - 669, 5).Value = Sayfa33.Cells(ac, 6).Value
Sayfa29.Cells(ac - 669, 6).Value = Sayfa33.Cells(ac, 7).Value
Sayfa29.Cells(ac - 669, 7).Value = Sayfa33.Cells(ac, 8).Value
Sayfa29.Cells(ac - 669, 9).Value = Sayfa33.Cells(ac, 11).Value
Sayfa29.Cells(ac - 669, 18).Value = Sayfa33.Cells(ac, 9).Value
Sayfa29.Cells(ac - 669, 28).Value = Sayfa33.Cells(ac, 10).Value
Sayfa29.Cells(ac - 669, 12).Value = Sayfa33.Cells(ac, 12).Value
Sayfa29.Cells(ac - 669, 14).Value = Sayfa33.Cells(ac, 13).Value
Sayfa29.Cells(ac - 669, 15).Value = Sayfa33.Cells(ac, 14).Value
Sayfa29.Cells(ac - 669, 17).Value = Sayfa33.Cells(ac, 15).Value
Sayfa29.Cells(ac - 669, 46).Value = Sayfa33.Cells(ac, 16).Value
Sayfa29.Cells(ac - 669, 27).Value = Sayfa33.Cells(ac, 17).Value
Sayfa29.Cells(ac - 669, 45).Value = Sayfa33.Cells(ac, 18).Value
Sayfa29.Cells(ac - 669, 24).Value = Sayfa33.Cells(ac, 19).Value
Sayfa29.Cells(ac - 669, 54).Value = Sayfa33.Cells(ac, 20).Value
Sayfa29.Cells(ac - 669, 56).Value = Sayfa33.Cells(ac, 21).Value
Sayfa29.Cells(ac - 669, 51).Value = Sayfa33.Cells(ac, 22).Value
Sayfa29.Cells(ac - 669, 53).Value = Sayfa33.Cells(ac, 23).Value

End If
Next ac

Dim ad As Double

For ad = 698 To 721

If Sayfa33.Cells(ad, 3).Value <> "" Then

Sayfa30.Cells(ad - 693, 2).Value = Sayfa33.Cells(ad, 3).Value
Sayfa30.Cells(ad - 693, 3).Value = Sayfa33.Cells(ad, 4).Value
Sayfa30.Cells(ad - 693, 4).Value = Sayfa33.Cells(ad, 5).Value
Sayfa30.Cells(ad - 693, 5).Value = Sayfa33.Cells(ad, 6).Value
Sayfa30.Cells(ad - 693, 6).Value = Sayfa33.Cells(ad, 7).Value
Sayfa30.Cells(ad - 693, 7).Value = Sayfa33.Cells(ad, 8).Value
Sayfa30.Cells(ad - 693, 9).Value = Sayfa33.Cells(ad, 11).Value
Sayfa30.Cells(ad - 693, 18).Value = Sayfa33.Cells(ad, 9).Value
Sayfa30.Cells(ad - 693, 28).Value = Sayfa33.Cells(ad, 10).Value
Sayfa30.Cells(ad - 693, 12).Value = Sayfa33.Cells(ad, 12).Value
Sayfa30.Cells(ad - 693, 14).Value = Sayfa33.Cells(ad, 13).Value
Sayfa30.Cells(ad - 693, 15).Value = Sayfa33.Cells(ad, 14).Value
Sayfa30.Cells(ad - 693, 17).Value = Sayfa33.Cells(ad, 15).Value
Sayfa30.Cells(ad - 693, 46).Value = Sayfa33.Cells(ad, 16).Value
Sayfa30.Cells(ad - 693, 27).Value = Sayfa33.Cells(ad, 17).Value
Sayfa30.Cells(ad - 693, 45).Value = Sayfa33.Cells(ad, 18).Value
Sayfa30.Cells(ad - 693, 24).Value = Sayfa33.Cells(ad, 19).Value
Sayfa30.Cells(ad - 693, 54).Value = Sayfa33.Cells(ad, 20).Value
Sayfa30.Cells(ad - 693, 56).Value = Sayfa33.Cells(ad, 21).Value
Sayfa30.Cells(ad - 693, 51).Value = Sayfa33.Cells(ad, 22).Value
Sayfa30.Cells(ad - 693, 53).Value = Sayfa33.Cells(ad, 23).Value

End If
Next ad

Dim ae As Double

For ae = 722 To 745

If Sayfa33.Cells(ae, 3).Value <> "" Then

Sayfa31.Cells(ae - 717, 2).Value = Sayfa33.Cells(ae, 3).Value
Sayfa31.Cells(ae - 717, 3).Value = Sayfa33.Cells(ae, 4).Value
Sayfa31.Cells(ae - 717, 4).Value = Sayfa33.Cells(ae, 5).Value
Sayfa31.Cells(ae - 717, 5).Value = Sayfa33.Cells(ae, 6).Value
Sayfa31.Cells(ae - 717, 6).Value = Sayfa33.Cells(ae, 7).Value
Sayfa31.Cells(ae - 717, 7).Value = Sayfa33.Cells(ae, 8).Value
Sayfa31.Cells(ae - 717, 9).Value = Sayfa33.Cells(ae, 11).Value
Sayfa31.Cells(ae - 717, 18).Value = Sayfa33.Cells(ae, 9).Value
Sayfa31.Cells(ae - 717, 28).Value = Sayfa33.Cells(ae, 10).Value
Sayfa31.Cells(ae - 717, 12).Value = Sayfa33.Cells(ae, 12).Value
Sayfa31.Cells(ae - 717, 14).Value = Sayfa33.Cells(ae, 13).Value
Sayfa31.Cells(ae - 717, 15).Value = Sayfa33.Cells(ae, 14).Value
Sayfa31.Cells(ae - 717, 17).Value = Sayfa33.Cells(ae, 15).Value
Sayfa31.Cells(ae - 717, 46).Value = Sayfa33.Cells(ae, 16).Value
Sayfa31.Cells(ae - 717, 27).Value = Sayfa33.Cells(ae, 17).Value
Sayfa31.Cells(ae - 717, 45).Value = Sayfa33.Cells(ae, 18).Value
Sayfa31.Cells(ae - 717, 24).Value = Sayfa33.Cells(ae, 19).Value
Sayfa31.Cells(ae - 717, 54).Value = Sayfa33.Cells(ae, 20).Value
Sayfa31.Cells(ae - 717, 56).Value = Sayfa33.Cells(ae, 21).Value
Sayfa31.Cells(ae - 717, 51).Value = Sayfa33.Cells(ae, 22).Value
Sayfa31.Cells(ae - 717, 53).Value = Sayfa33.Cells(ae, 23).Value

End If
Next ae

End Sub

Yukarıdaki kodu çalıştırdığımda "procedure too large hatası" alıyorum.

Yukarıda yapmaya çalıştığımı kısaca özetlersem, 33. sayfadaki verileri 1. safadan 31. sayfaya kadar aynı hücrelere kopyalayıp yapıştırmaya çalışıyorum. Fakat yukarıda bahsettiğim hata ile karşılaşıyorum. Yardımlarınızı rica ederim.
 
Bu kadar kod yazmak yerine döngü kullanılabilirdi. Dosya eklerseniz hatayı daha rahat görebiliriz.
 
VBA procedure yi yada modülü sınırlandırmıştır.
Yanlış hatırlamıyorsam satır sayısı 1000 satırı geçemez diye hatırlıyorum.:cool:
 
Kodu yapıştırıp test ettim. "Too large" hatası belirmedi. Aynı versiyonu kullandığımıza göre 32/64 bit farkı olabilir belki...

.
 
Kodları parçalama veya birkaç farklı modülde yazma şansım var mı?
 
Döngünüz daha az satıra çevrilebilir.

Dosyanızın küçük bir örneğini paylaşırsanız yardımcı olabiliriz.

Paylaşım sitelerine yükleyip link verebilirsiniz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst