Tablo üzerindeki renkleri kodlama

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
K

krokix

Katılım
13 Eylül 2007
Mesajlar
85
Excel Vers. ve Dili
office 2003 Türkçe
Arkadaşlar, herkese iyi akşamlar dileyerek sözlerime başlamak istiyorum. 19 Mayıs Bayramı için kasabamızda oluşturacağımız fon gösterileri için öğretmen arkadaşlar yardım istedi aklıma sizler geldiniz. yapmaya çalıştığımız şey şu şekilde;
sayfa1, sayfa2,sayfa3, sayfa4 ve sayfa5 de hücreler renklendirilerek oluşturulmuş yazı ve şekiller var. bu oluşturulmuş tablolardaki her hücrenin rengi baş harfi ile o hücreye yazılmış durumda. oluşturulacak bir sonuç sayfasında user form ile bu renk kodları veri tabanına kaydedilecek ve istenildiğinde hangi sıradaki öğrencinin hangi tabloda hangi rengi göstereceği yazdırılabilicek.
Tam olarak buraya açıklayamadığım için dosya halinde gönderiyorum. acaba olabilecek bir şey midir. yardımlarınız için çok teşekkür ederim. iyi çalışmalar ...
 

Ekli dosyalar

Son düzenleme:
K

krokix

Katılım
13 Eylül 2007
Mesajlar
85
Excel Vers. ve Dili
office 2003 Türkçe
Arkadaşlar, hepinizden özür dilerim. soruyu dosyada sorduğum için. bu sefer mesajda sorumu sormaya çalıştım. umarım çözülebilecek bir sorudur. çalışmalarınızda başarılar dilerim.. esenlikler dilerim...
 
Hüseyin

Hüseyin

Administrator
Yönetici
Admin
Katılım
2 Haziran 2004
Mesajlar
3,594
Excel Vers. ve Dili
Excel 2010 - Türkçe
Bu şekilde cevaplanma ihtimali kesinlikle daha yüksek olmuş.
 
L

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,060
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Sorunuzun birinci kısmı için RENK KODLA butonuna aşağıdaki kodu yazarak deneyin.

Kod: 
Private Sub CommandButton3_Click()
Set s1 = Sheets("sonuc")
aralik = "b3:as12"
sayfa = Array("sayfa1", "sayfa2", "sayfa3", "sayfa4", "sayfa5")
For a = 2 To s1.[a65536].End(3).Row
For b = 0 To UBound(sayfa)
Set s2 = Sheets(sayfa(b))
sat = Range(aralik).Cells(a - 1).Row
sut = Range(aralik).Cells(a - 1).Column
s1.Cells(a, "b") = s2.Cells(sat, "a") & sut - 1
s1.Cells(a, b * 2 + 3) = s2.[a1]
s1.Cells(a, b * 2 + 4) = s2.Range(aralik).Cells(a - 1)
Next
Next
End Sub
 
K

krokix

Katılım
13 Eylül 2007
Mesajlar
85
Excel Vers. ve Dili
office 2003 Türkçe
Leven Hocam, çok teşekkür ederim. bu şekliyle biraz inceleyip gerekli çalışmaları yapayım. ellerinize sağlık. esen kalınız..
 
J

janveljan

Katılım
27 Temmuz 2004
Mesajlar
719
Excel Vers. ve Dili
Excel 2003 Tr
Benin çözümüm de ilk kısım için, dosyanın içinde gerekli açıklama var.
Kod: 
Sub sırala2()
Dim h
h = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")
tablosayısı = 5
For j = 1 To 10
For i = 1 To 44
    Cells(1 + (j - 1) * 44 + i, 2) = h(j - 1) & i
    For n = 1 To tablosayısı
        Cells(1 + (j - 1) * 44 + i, 2 * n + 2) = Sheets("Sayfa" & n).Cells(j + 2, i + 1)
    Next
Next
Next
End Sub
 

Ekli dosyalar

K

krokix

Katılım
13 Eylül 2007
Mesajlar
85
Excel Vers. ve Dili
office 2003 Türkçe
Veri tabanı olarak kullandığım sayfada B2 ile B441 arasındaki verileri userform1 üzerindeki combobox1 in rowsourcessi olarak belirledim. userform1 üserindeki comboya bu verileri alıyorum. ordan örneğin B2 hücresindeki değeri seçip LİSTE OLUŞTUR düğmesine bastığımda B2 hücresinden başlayarak c2, d2... diye devam edip giden verileri YAZDIRMA sayfasındaki ilgili yerlere aşağıdaki kodlar ile yazdırıyorum. ancak örneğin comboboxtan b3 deki değeri seçip LİSTE OLUŞTUR dediğimde bu olmuyor. tüm kodları her defasında yazmam mı gerekiyor. yoksa daha pratik bir kodlama var mı. ilgilerinize şimdiden teşekkürler.


Private Sub CommandButton4_Click()

For i = 1 To 250

If UserForm1.ComboBox1.Value = Sheets("sonuc").Cells(2, i).Value Then
Sheets("yazdirma").Cells(1, 4).Value = Sheets("sonuc").Cells(2, i + 0).Value
Sheets("yazdirma").Cells(3, 3).Value = Sheets("sonuc").Cells(2, i + 1).Value
Sheets("yazdirma").Cells(4, 3).Value = Sheets("sonuc").Cells(2, i + 3).Value
Sheets("yazdirma").Cells(5, 3).Value = Sheets("sonuc").Cells(2, i + 5).Value
Sheets("yazdirma").Cells(6, 3).Value = Sheets("sonuc").Cells(2, i + 7).Value
Sheets("yazdirma").Cells(7, 3).Value = Sheets("sonuc").Cells(2, i + 9).Value
Sheets("yazdirma").Cells(3, 4).Value = Sheets("sonuc").Cells(2, i + 2).Value
Sheets("yazdirma").Cells(4, 4).Value = Sheets("sonuc").Cells(2, i + 4).Value
Sheets("yazdirma").Cells(5, 4).Value = Sheets("sonuc").Cells(2, i + 6).Value
Sheets("yazdirma").Cells(6, 4).Value = Sheets("sonuc").Cells(2, i + 8).Value
Sheets("yazdirma").Cells(7, 4).Value = Sheets("sonuc").Cells(2, i + 10).Value

Exit For
End If
Next
End Sub
 

Ekli dosyalar

Son düzenleme:
J

janveljan

Katılım
27 Temmuz 2004
Mesajlar
719
Excel Vers. ve Dili
Excel 2003 Tr
Konuyu inceleyenler arasında Levent beyin ismini görünce haddimize düşmez ama
Cells(satır,sütun) olarak yazmanız lazım siz Cells(sütun,satır) olarak yazmışsınız.
 
J

janveljan

Katılım
27 Temmuz 2004
Mesajlar
719
Excel Vers. ve Dili
Excel 2003 Tr
Bu kodları dener misiniz?
Kod: 
Private Sub CommandButton4_Click()
If UserForm1.ComboBox1.Value = "" Then
MsgBox "Harf Sırası Seçiniz"
Exit Sub
End If
Sheets("yazdirma").Cells.ClearContents
a = UserForm1.ComboBox1.ListIndex + 2

For i = a To 441
   Sheets("yazdirma").Cells((i - a) * 7 + 1, 1).Value = Sheets("sonuc").Cells(i, 2).Value
   Sheets("yazdirma").Cells((i - a) * 7 + 1, 1).HorizontalAlignment = xlCenter
   
   Sheets("yazdirma").Cells((i - a) * 7 + 2, 1).Value = Sheets("sonuc").Cells(i, 3).Value
   Sheets("yazdirma").Cells((i - a) * 7 + 3, 1).Value = Sheets("sonuc").Cells(i, 5).Value
   Sheets("yazdirma").Cells((i - a) * 7 + 4, 1).Value = Sheets("sonuc").Cells(i, 7).Value
   Sheets("yazdirma").Cells((i - a) * 7 + 5, 1).Value = Sheets("sonuc").Cells(i, 9).Value
   Sheets("yazdirma").Cells((i - a) * 7 + 6, 1).Value = Sheets("sonuc").Cells(i, 11).Value
   
   Sheets("yazdirma").Cells((i - a) * 7 + 2, 2).Value = Sheets("sonuc").Cells(i, 4).Value
   Sheets("yazdirma").Cells((i - a) * 7 + 3, 2).Value = Sheets("sonuc").Cells(i, 6).Value
   Sheets("yazdirma").Cells((i - a) * 7 + 4, 2).Value = Sheets("sonuc").Cells(i, 8).Value
   Sheets("yazdirma").Cells((i - a) * 7 + 5, 2).Value = Sheets("sonuc").Cells(i, 10).Value
   Sheets("yazdirma").Cells((i - a) * 7 + 6, 2).Value = Sheets("sonuc").Cells(i, 12).Value

Next
Unload UserForm1
End Sub
 
L

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,060
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
janveljan' Alıntı:
Konuyu inceleyenler arasında Levent beyin ismini görünce haddimize düşmez ama
Cells(satır,sütun) olarak yazmanız lazım siz Cells(sütun,satır) olarak yazmışsınız.
Genişletmek için tıkla ...
Rica ederim. Lütfen bu şekilde düşünmeyin, önerilerinizi yazmaktan hiç bir zaman çekinmemenizi rica ederim.
 
K

krokix

Katılım
13 Eylül 2007
Mesajlar
85
Excel Vers. ve Dili
office 2003 Türkçe
Sayın Levent Bey, ve Sayın Janveljan. kodlarınız çok işime yaradı. çok güzel çalışıyor. ellerinize sağlık minnettarım. fakat sayın janveljan, bir şey dikkatimi çekti. kodlara bazı eklemeler yaptım. listeleme işini yapıyor fakat bazı tablolarda ortalı yazıyor. acaba o neden. yani listeyi inceledim arada bazı tablolardaki harfleri ortalı yazıyor. yani renklerin baş harflerini. ayrıca bir şey daha söylemek istiyorum. Sayın Levent Bey, ilk kısımda Renklllerin baş harflerini sonuç sayfasına yazıyor ya. onu renk olarak yazdırmak için ne yapmam gerekiyor. yani B yerine BEYAZ yazsın. M yerine MAVİ yazsın yani direk rengin adını yazsın. bu durumda ne yapmam gerekir. ilgilerinize çok teşekkür ederim. değişiklik yaptığım yerleri daha iyi görebilmeniz için dosyayı tekrar ekliyorum.
 

Ekli dosyalar

L

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,060
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Kodu aşağıdaki ile değiştirerek deneyin. İlaveler kodun çalışmasını biraz yavaşlatabilir.

Kod: 
Private Sub CommandButton3_Click()
Set s1 = Sheets("sonuc")
aralik = "b3:as12"
sayfa = Array("sayfa1", "sayfa2", "sayfa3", "sayfa4", "sayfa5")
For a = 2 To s1.[a65536].End(3).Row
For b = 0 To UBound(sayfa)
Set s2 = Sheets(sayfa(b))
sat = Range(aralik).Cells(a - 1).Row
sut = Range(aralik).Cells(a - 1).Column
s1.Cells(a, "b") = s2.Cells(sat, "a") & sut - 1
s1.Cells(a, b * 2 + 3) = s2.[a1]
Select Case s2.Range(aralik).Cells(a - 1)
Case "B": deg = "BEYAZ"
Case "K": deg = "KIRMIZI"
Case "Y": deg = "YEŞİL"
Case "M": deg = "MAVİ"
End Select
s1.Cells(a, b * 2 + 4) = deg
Next
Next
End Sub
 
J

janveljan

Katılım
27 Temmuz 2004
Mesajlar
719
Excel Vers. ve Dili
Excel 2003 Tr
Bende böyle bir yol tavsiye edebilirim, ancak satırların sırası önemli,
beyaz yeşilden önce değişirse "BeYeşilaz" oluyor. :)
Kod: 
    Columns("C:C").Select
    Selection.Replace What:="Y", Replacement:="Yeşil"
    Selection.Replace What:="B", Replacement:="Beyaz"
    Selection.Replace What:="M", Replacement:="Mavi"
    Selection.Replace What:="K", Replacement:="Kırmızı"
    Cells(1, 1).Select
 
K

krokix

Katılım
13 Eylül 2007
Mesajlar
85
Excel Vers. ve Dili
office 2003 Türkçe
sayın arkadaşlarım. her ikinize de binlerce teşekkürler. gayet güzel çalışıyor. emeğinize elinize sağlık. tek bir ayrıntı var aslında o da çok önemli değil ancak ilerde sorun yaratır mı diye sormak istiyorum. yazdirma sayfasında bazı hücrelerde renkleri ortalı yazıyor. yani alt alta renkleri yazarken bazı hücrelerde bazı renkleri ortalı yazıyor. acaba neden olabilir. esen kalınız...
 
J

janveljan

Katılım
27 Temmuz 2004
Mesajlar
719
Excel Vers. ve Dili
Excel 2003 Tr
Bunun nedeni o hücrelerin daha önceden o şekilde biçimlendirilmiş olmasındandır. O hücre ortaya hizalı ise, hep ortada görünür gibi. Bunu şu şekilde aşabilirsiniz. Bütün hücreleri seçin ve silin (içeriği temizlemeyeceksiniz, sileceksiniz.).
 
K

krokix

Katılım
13 Eylül 2007
Mesajlar
85
Excel Vers. ve Dili
office 2003 Türkçe
Sayın Levent Bey, hazırlamış olduğunuz kodları bir örnek üzerine uygulamaya çalıştım. bu örnekte sadece 441. satıra kadar işlem yapıyor, daha sonrasını yapmıyor. tablodaki tüm renkleri düzenlemesi gerekirken 441. satıra kadar olan renkleri kodluyor, ancak ondan sonraki renkleri kodlamıyor. ben 1500. satıra kadar kodlaması için kodlar üzerinde bir iki değişiklik yaptım ancak olmadı. dosyayı uyarlamaya çalıştığım örnek ile birlikte ekliyorum. acaba nasıl düzeltebilirim.
 
K

krokix

Katılım
13 Eylül 2007
Mesajlar
85
Excel Vers. ve Dili
office 2003 Türkçe
pardon Levent Bey dosyayı eklemeyi unutmuşum. özür... hemen ekliyorum...
 

Ekli dosyalar

Son düzenleme:
L

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,060
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Sonuc sayfası A sütunundaki sıra nosunu 1500'e kadar tamamlarsanız istediğiniz sonucu elde edeceksiniz.
 
K

krokix

Katılım
13 Eylül 2007
Mesajlar
85
Excel Vers. ve Dili
office 2003 Türkçe
Hocam çok teşekkür ederim. eksik olmayın. iyi çalışmalar...
 
K

krokix

Katılım
13 Eylül 2007
Mesajlar
85
Excel Vers. ve Dili
office 2003 Türkçe
Sayın Levent Hocam, kodları kendi uygulamama uyarladım. aşağıdaki kodlar ile çıktı alınıyor. ancak yazdirma sayfasında sadece ilk altı tablo listeleniyor en sondaki (M78) tam olarak listeleniyor. ben de şöyle bir çözüm düşündüm. şimdi bir comboboxtan yazdırmak istenen seçilse ve sadece o seçilen yazdırılsa. kodları aşağıya koyuyorum. ancak bütünlük açısından sorun olur diye dosyayı da ekliyorum. dosyada şu an bir combobox var. ancak ordan sadece M78 nolu değeri seçince onu yazdırıyor. diğerlerini seçince tümünü yazdırıyor. ben sadece o seçilmiş olan satırın yazılmasını istiyorum. acayip karışık oldu farkındayım. özür... kodlar şunlar:

Private Sub CommandButton4_Click()
If UserForm1.ComboBox1.Value = "" Then
MsgBox "Harf Sırası Seçiniz"
Exit Sub
End If
Sheets("yazdirma").Cells.ClearContents
a = UserForm1.ComboBox1.ListIndex + 2

For i = a To 1015
Sheets("yazdirma").Cells((i - a) * 7 + 1, 2).Value = "İSİMLERİ"
Sheets("yazdirma").Cells((i - a) * 7 + 1, 2).HorizontalAlignment = xlLeft
Sheets("yazdirma").Cells((i - a) * 7 + 1, 1).Value = "TABLO"
Sheets("yazdirma").Cells((i - a) * 7 + 1, 1).HorizontalAlignment = xlRight

Sheets("yazdirma").Cells((i - a) * 7 + 2, 1).Value = "TABLO 1"
Sheets("yazdirma").Cells((i - a) * 7 + 2, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 3, 1).Value = "TABLO 2"
Sheets("yazdirma").Cells((i - a) * 7 + 3, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 4, 1).Value = "TABLO 3"
Sheets("yazdirma").Cells((i - a) * 7 + 4, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 5, 1).Value = "TABLO 4"
Sheets("yazdirma").Cells((i - a) * 7 + 5, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 6, 1).Value = "TABLO 5"
Sheets("yazdirma").Cells((i - a) * 7 + 6, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 7, 1).Value = "TABLO 6"
Sheets("yazdirma").Cells((i - a) * 7 + 7, 1).HorizontalAlignment = xlCenter

Sheets("yazdirma").Cells((i - a) * 7 + 8, 1).Value = "TABLO 7"
Sheets("yazdirma").Cells((i - a) * 7 + 8, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 9, 1).Value = "TABLO 8"
Sheets("yazdirma").Cells((i - a) * 7 + 9, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 10, 1).Value = "TABLO 9"
Sheets("yazdirma").Cells((i - a) * 7 + 10, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 11, 1).Value = "TABLO 10"
Sheets("yazdirma").Cells((i - a) * 7 + 11, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 12, 1).Value = "TABLO 11"
Sheets("yazdirma").Cells((i - a) * 7 + 12, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 13, 1).Value = "TABLO 12"
Sheets("yazdirma").Cells((i - a) * 7 + 13, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 14, 1).Value = "TABLO 13"
Sheets("yazdirma").Cells((i - a) * 7 + 14, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 15, 1).Value = "TABLO 14"
Sheets("yazdirma").Cells((i - a) * 7 + 15, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 16, 1).Value = "TABLO 15"
Sheets("yazdirma").Cells((i - a) * 7 + 16, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 17, 1).Value = "TABLO 16"
Sheets("yazdirma").Cells((i - a) * 7 + 17, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 18, 1).Value = "TABLO 17"
Sheets("yazdirma").Cells((i - a) * 7 + 18, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 19, 1).Value = "TABLO 18"
Sheets("yazdirma").Cells((i - a) * 7 + 19, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 20, 1).Value = "TABLO 19"
Sheets("yazdirma").Cells((i - a) * 7 + 20, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 21, 1).Value = "TABLO 20"
Sheets("yazdirma").Cells((i - a) * 7 + 21, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 22, 1).Value = "TABLO 21"
Sheets("yazdirma").Cells((i - a) * 7 + 22, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 23, 1).Value = "TABLO 22"
Sheets("yazdirma").Cells((i - a) * 7 + 23, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 24, 1).Value = "TABLO 23"
Sheets("yazdirma").Cells((i - a) * 7 + 24, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 25, 1).Value = "TABLO 24"
Sheets("yazdirma").Cells((i - a) * 7 + 25, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 26, 1).Value = "TABLO 25"
Sheets("yazdirma").Cells((i - a) * 7 + 26, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 27, 1).Value = "TABLO 26"
Sheets("yazdirma").Cells((i - a) * 7 + 27, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 28, 1).Value = "TABLO 27"
Sheets("yazdirma").Cells((i - a) * 7 + 28, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 29, 1).Value = "TABLO 28"
Sheets("yazdirma").Cells((i - a) * 7 + 29, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 30, 1).Value = "TABLO 29"
Sheets("yazdirma").Cells((i - a) * 7 + 30, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 31, 1).Value = "TABLO 30"
Sheets("yazdirma").Cells((i - a) * 7 + 31, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 32, 1).Value = "TABLO 31"
Sheets("yazdirma").Cells((i - a) * 7 + 32, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 33, 1).Value = "TABLO 32"
Sheets("yazdirma").Cells((i - a) * 7 + 33, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 34, 1).Value = "TABLO 33"
Sheets("yazdirma").Cells((i - a) * 7 + 34, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 35, 1).Value = "TABLO 34"
Sheets("yazdirma").Cells((i - a) * 7 + 35, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 36, 1).Value = "TABLO 35"
Sheets("yazdirma").Cells((i - a) * 7 + 36, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 37, 1).Value = "TABLO 36"
Sheets("yazdirma").Cells((i - a) * 7 + 37, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 38, 1).Value = "TABLO 37"
Sheets("yazdirma").Cells((i - a) * 7 + 38, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 39, 1).Value = "TABLO 38"
Sheets("yazdirma").Cells((i - a) * 7 + 39, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 40, 1).Value = "TABLO 39"
Sheets("yazdirma").Cells((i - a) * 7 + 40, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 41, 1).Value = "TABLO 40"
Sheets("yazdirma").Cells((i - a) * 7 + 41, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 42, 1).Value = "TABLO 41"
Sheets("yazdirma").Cells((i - a) * 7 + 42, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 43, 1).Value = "TABLO 42"
Sheets("yazdirma").Cells((i - a) * 7 + 43, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 44, 1).Value = "TABLO 43"
Sheets("yazdirma").Cells((i - a) * 7 + 44, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 45, 1).Value = "TABLO 44"
Sheets("yazdirma").Cells((i - a) * 7 + 45, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 46, 1).Value = "TABLO 45"
Sheets("yazdirma").Cells((i - a) * 7 + 46, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 47, 1).Value = "TABLO 46"
Sheets("yazdirma").Cells((i - a) * 7 + 47, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 48, 1).Value = "TABLO 47"
Sheets("yazdirma").Cells((i - a) * 7 + 48, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 49, 1).Value = "TABLO 48"
Sheets("yazdirma").Cells((i - a) * 7 + 49, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 50, 1).Value = "TABLO 49"
Sheets("yazdirma").Cells((i - a) * 7 + 50, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 51, 1).Value = "TABLO 50"
Sheets("yazdirma").Cells((i - a) * 7 + 51, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 52, 1).Value = "TABLO 51"
Sheets("yazdirma").Cells((i - a) * 7 + 52, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 53, 1).Value = "TABLO 52"
Sheets("yazdirma").Cells((i - a) * 7 + 53, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 54, 1).Value = "TABLO 53"
Sheets("yazdirma").Cells((i - a) * 7 + 54, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 55, 1).Value = "TABLO 54"
Sheets("yazdirma").Cells((i - a) * 7 + 55, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 56, 1).Value = "TABLO 55"
Sheets("yazdirma").Cells((i - a) * 7 + 56, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 57, 1).Value = "TABLO 56"
Sheets("yazdirma").Cells((i - a) * 7 + 57, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 58, 1).Value = "TABLO 57"
Sheets("yazdirma").Cells((i - a) * 7 + 58, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 59, 1).Value = "TABLO 58"
Sheets("yazdirma").Cells((i - a) * 7 + 59, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 60, 1).Value = "TABLO 59"
Sheets("yazdirma").Cells((i - a) * 7 + 60, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 61, 1).Value = "TABLO 60"
Sheets("yazdirma").Cells((i - a) * 7 + 61, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 62, 1).Value = "TABLO 61"
Sheets("yazdirma").Cells((i - a) * 7 + 62, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 63, 1).Value = "TABLO 62"
Sheets("yazdirma").Cells((i - a) * 7 + 63, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 64, 1).Value = "TABLO 63"
Sheets("yazdirma").Cells((i - a) * 7 + 64, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 65, 1).Value = "TABLO 64"
Sheets("yazdirma").Cells((i - a) * 7 + 65, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 66, 1).Value = "TABLO 65"
Sheets("yazdirma").Cells((i - a) * 7 + 66, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 67, 1).Value = "TABLO 66"
Sheets("yazdirma").Cells((i - a) * 7 + 67, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 68, 1).Value = "TABLO 67"
Sheets("yazdirma").Cells((i - a) * 7 + 68, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 69, 1).Value = "TABLO 68"
Sheets("yazdirma").Cells((i - a) * 7 + 69, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 70, 1).Value = "TABLO 69"
Sheets("yazdirma").Cells((i - a) * 7 + 70, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 71, 1).Value = "TABLO 70"
Sheets("yazdirma").Cells((i - a) * 7 + 71, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 72, 1).Value = "TABLO 71"
Sheets("yazdirma").Cells((i - a) * 7 + 72, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 73, 1).Value = "TABLO 72"
Sheets("yazdirma").Cells((i - a) * 7 + 73, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 74, 1).Value = "TABLO 73"
Sheets("yazdirma").Cells((i - a) * 7 + 74, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 75, 1).Value = "TABLO 74"
Sheets("yazdirma").Cells((i - a) * 7 + 75, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 76, 1).Value = "TABLO 75"
Sheets("yazdirma").Cells((i - a) * 7 + 76, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 77, 1).Value = "TABLO 76"
Sheets("yazdirma").Cells((i - a) * 7 + 77, 1).HorizontalAlignment = xlCenter
Sheets("yazdirma").Cells((i - a) * 7 + 78, 1).Value = "TABLO 77"
Sheets("yazdirma").Cells((i - a) * 7 + 78, 1).HorizontalAlignment = xlCenter


Sheets("yazdirma").Cells((i - a) * 7 + 1, 3).Value = Sheets("sonuc").Cells(i, 2).Value
Sheets("yazdirma").Cells((i - a) * 7 + 1, 3).HorizontalAlignment = xlCenter

Sheets("yazdirma").Cells((i - a) * 7 + 2, 2).Value = Sheets("sonuc").Cells(i, 3).Value
Sheets("yazdirma").Cells((i - a) * 7 + 3, 2).Value = Sheets("sonuc").Cells(i, 5).Value
Sheets("yazdirma").Cells((i - a) * 7 + 4, 2).Value = Sheets("sonuc").Cells(i, 7).Value
Sheets("yazdirma").Cells((i - a) * 7 + 5, 2).Value = Sheets("sonuc").Cells(i, 9).Value
Sheets("yazdirma").Cells((i - a) * 7 + 6, 2).Value = Sheets("sonuc").Cells(i, 11).Value
Sheets("yazdirma").Cells((i - a) * 7 + 7, 2).Value = Sheets("sonuc").Cells(i, 13).Value
Sheets("yazdirma").Cells((i - a) * 7 + 8, 2).Value = Sheets("sonuc").Cells(i, 15).Value
Sheets("yazdirma").Cells((i - a) * 7 + 9, 2).Value = Sheets("sonuc").Cells(i, 17).Value
Sheets("yazdirma").Cells((i - a) * 7 + 10, 2).Value = Sheets("sonuc").Cells(i, 19).Value
Sheets("yazdirma").Cells((i - a) * 7 + 11, 2).Value = Sheets("sonuc").Cells(i, 21).Value
Sheets("yazdirma").Cells((i - a) * 7 + 12, 2).Value = Sheets("sonuc").Cells(i, 23).Value
Sheets("yazdirma").Cells((i - a) * 7 + 13, 2).Value = Sheets("sonuc").Cells(i, 25).Value
Sheets("yazdirma").Cells((i - a) * 7 + 14, 2).Value = Sheets("sonuc").Cells(i, 27).Value
Sheets("yazdirma").Cells((i - a) * 7 + 15, 2).Value = Sheets("sonuc").Cells(i, 29).Value
Sheets("yazdirma").Cells((i - a) * 7 + 16, 2).Value = Sheets("sonuc").Cells(i, 31).Value
Sheets("yazdirma").Cells((i - a) * 7 + 17, 2).Value = Sheets("sonuc").Cells(i, 33).Value
Sheets("yazdirma").Cells((i - a) * 7 + 18, 2).Value = Sheets("sonuc").Cells(i, 35).Value
Sheets("yazdirma").Cells((i - a) * 7 + 19, 2).Value = Sheets("sonuc").Cells(i, 37).Value
Sheets("yazdirma").Cells((i - a) * 7 + 20, 2).Value = Sheets("sonuc").Cells(i, 39).Value
Sheets("yazdirma").Cells((i - a) * 7 + 21, 2).Value = Sheets("sonuc").Cells(i, 41).Value
Sheets("yazdirma").Cells((i - a) * 7 + 22, 2).Value = Sheets("sonuc").Cells(i, 43).Value
Sheets("yazdirma").Cells((i - a) * 7 + 23, 2).Value = Sheets("sonuc").Cells(i, 45).Value
Sheets("yazdirma").Cells((i - a) * 7 + 24, 2).Value = Sheets("sonuc").Cells(i, 47).Value
Sheets("yazdirma").Cells((i - a) * 7 + 25, 2).Value = Sheets("sonuc").Cells(i, 49).Value
Sheets("yazdirma").Cells((i - a) * 7 + 26, 2).Value = Sheets("sonuc").Cells(i, 51).Value
Sheets("yazdirma").Cells((i - a) * 7 + 27, 2).Value = Sheets("sonuc").Cells(i, 53).Value
Sheets("yazdirma").Cells((i - a) * 7 + 28, 2).Value = Sheets("sonuc").Cells(i, 55).Value
Sheets("yazdirma").Cells((i - a) * 7 + 29, 2).Value = Sheets("sonuc").Cells(i, 57).Value
Sheets("yazdirma").Cells((i - a) * 7 + 30, 2).Value = Sheets("sonuc").Cells(i, 59).Value
Sheets("yazdirma").Cells((i - a) * 7 + 31, 2).Value = Sheets("sonuc").Cells(i, 61).Value
Sheets("yazdirma").Cells((i - a) * 7 + 32, 2).Value = Sheets("sonuc").Cells(i, 63).Value
Sheets("yazdirma").Cells((i - a) * 7 + 33, 2).Value = Sheets("sonuc").Cells(i, 65).Value
Sheets("yazdirma").Cells((i - a) * 7 + 34, 2).Value = Sheets("sonuc").Cells(i, 67).Value
Sheets("yazdirma").Cells((i - a) * 7 + 35, 2).Value = Sheets("sonuc").Cells(i, 69).Value
Sheets("yazdirma").Cells((i - a) * 7 + 36, 2).Value = Sheets("sonuc").Cells(i, 71).Value
Sheets("yazdirma").Cells((i - a) * 7 + 37, 2).Value = Sheets("sonuc").Cells(i, 73).Value
Sheets("yazdirma").Cells((i - a) * 7 + 38, 2).Value = Sheets("sonuc").Cells(i, 75).Value
Sheets("yazdirma").Cells((i - a) * 7 + 39, 2).Value = Sheets("sonuc").Cells(i, 77).Value
Sheets("yazdirma").Cells((i - a) * 7 + 40, 2).Value = Sheets("sonuc").Cells(i, 79).Value
Sheets("yazdirma").Cells((i - a) * 7 + 41, 2).Value = Sheets("sonuc").Cells(i, 81).Value
Sheets("yazdirma").Cells((i - a) * 7 + 42, 2).Value = Sheets("sonuc").Cells(i, 83).Value
Sheets("yazdirma").Cells((i - a) * 7 + 43, 2).Value = Sheets("sonuc").Cells(i, 85).Value
Sheets("yazdirma").Cells((i - a) * 7 + 44, 2).Value = Sheets("sonuc").Cells(i, 87).Value
Sheets("yazdirma").Cells((i - a) * 7 + 45, 2).Value = Sheets("sonuc").Cells(i, 89).Value
Sheets("yazdirma").Cells((i - a) * 7 + 46, 2).Value = Sheets("sonuc").Cells(i, 91).Value
Sheets("yazdirma").Cells((i - a) * 7 + 47, 2).Value = Sheets("sonuc").Cells(i, 93).Value
Sheets("yazdirma").Cells((i - a) * 7 + 48, 2).Value = Sheets("sonuc").Cells(i, 95).Value
Sheets("yazdirma").Cells((i - a) * 7 + 49, 2).Value = Sheets("sonuc").Cells(i, 97).Value
Sheets("yazdirma").Cells((i - a) * 7 + 50, 2).Value = Sheets("sonuc").Cells(i, 99).Value
Sheets("yazdirma").Cells((i - a) * 7 + 51, 2).Value = Sheets("sonuc").Cells(i, 101).Value
Sheets("yazdirma").Cells((i - a) * 7 + 52, 2).Value = Sheets("sonuc").Cells(i, 103).Value
Sheets("yazdirma").Cells((i - a) * 7 + 53, 2).Value = Sheets("sonuc").Cells(i, 105).Value
Sheets("yazdirma").Cells((i - a) * 7 + 54, 2).Value = Sheets("sonuc").Cells(i, 107).Value
Sheets("yazdirma").Cells((i - a) * 7 + 55, 2).Value = Sheets("sonuc").Cells(i, 109).Value
Sheets("yazdirma").Cells((i - a) * 7 + 56, 2).Value = Sheets("sonuc").Cells(i, 111).Value
Sheets("yazdirma").Cells((i - a) * 7 + 57, 2).Value = Sheets("sonuc").Cells(i, 113).Value
Sheets("yazdirma").Cells((i - a) * 7 + 58, 2).Value = Sheets("sonuc").Cells(i, 115).Value
Sheets("yazdirma").Cells((i - a) * 7 + 59, 2).Value = Sheets("sonuc").Cells(i, 117).Value
Sheets("yazdirma").Cells((i - a) * 7 + 60, 2).Value = Sheets("sonuc").Cells(i, 119).Value
Sheets("yazdirma").Cells((i - a) * 7 + 61, 2).Value = Sheets("sonuc").Cells(i, 121).Value
Sheets("yazdirma").Cells((i - a) * 7 + 62, 2).Value = Sheets("sonuc").Cells(i, 123).Value
Sheets("yazdirma").Cells((i - a) * 7 + 63, 2).Value = Sheets("sonuc").Cells(i, 125).Value
Sheets("yazdirma").Cells((i - a) * 7 + 64, 2).Value = Sheets("sonuc").Cells(i, 127).Value
Sheets("yazdirma").Cells((i - a) * 7 + 65, 2).Value = Sheets("sonuc").Cells(i, 129).Value
Sheets("yazdirma").Cells((i - a) * 7 + 66, 2).Value = Sheets("sonuc").Cells(i, 131).Value
Sheets("yazdirma").Cells((i - a) * 7 + 67, 2).Value = Sheets("sonuc").Cells(i, 133).Value
Sheets("yazdirma").Cells((i - a) * 7 + 68, 2).Value = Sheets("sonuc").Cells(i, 135).Value
Sheets("yazdirma").Cells((i - a) * 7 + 69, 2).Value = Sheets("sonuc").Cells(i, 137).Value
Sheets("yazdirma").Cells((i - a) * 7 + 70, 2).Value = Sheets("sonuc").Cells(i, 139).Value
Sheets("yazdirma").Cells((i - a) * 7 + 71, 2).Value = Sheets("sonuc").Cells(i, 141).Value
Sheets("yazdirma").Cells((i - a) * 7 + 72, 2).Value = Sheets("sonuc").Cells(i, 143).Value
Sheets("yazdirma").Cells((i - a) * 7 + 73, 2).Value = Sheets("sonuc").Cells(i, 145).Value
Sheets("yazdirma").Cells((i - a) * 7 + 74, 2).Value = Sheets("sonuc").Cells(i, 147).Value
Sheets("yazdirma").Cells((i - a) * 7 + 75, 2).Value = Sheets("sonuc").Cells(i, 149).Value
Sheets("yazdirma").Cells((i - a) * 7 + 76, 2).Value = Sheets("sonuc").Cells(i, 151).Value
Sheets("yazdirma").Cells((i - a) * 7 + 77, 2).Value = Sheets("sonuc").Cells(i, 153).Value
Sheets("yazdirma").Cells((i - a) * 7 + 78, 2).Value = Sheets("sonuc").Cells(i, 155).Value
Sheets("yazdirma").Cells((i - a) * 7 + 79, 2).Value = Sheets("sonuc").Cells(i, 157).Value
Sheets("yazdirma").Cells((i - a) * 7 + 80, 2).Value = Sheets("sonuc").Cells(i, 159).Value
Sheets("yazdirma").Cells((i - a) * 7 + 81, 2).Value = Sheets("sonuc").Cells(i, 161).Value
Sheets("yazdirma").Cells((i - a) * 7 + 82, 2).Value = Sheets("sonuc").Cells(i, 163).Value
Sheets("yazdirma").Cells((i - a) * 7 + 83, 2).Value = Sheets("sonuc").Cells(i, 165).Value
Sheets("yazdirma").Cells((i - a) * 7 + 84, 2).Value = Sheets("sonuc").Cells(i, 167).Value
Sheets("yazdirma").Cells((i - a) * 7 + 85, 2).Value = Sheets("sonuc").Cells(i, 169).Value
Sheets("yazdirma").Cells((i - a) * 7 + 86, 2).Value = Sheets("sonuc").Cells(i, 171).Value
Sheets("yazdirma").Cells((i - a) * 7 + 87, 2).Value = Sheets("sonuc").Cells(i, 173).Value
Sheets("yazdirma").Cells((i - a) * 7 + 88, 2).Value = Sheets("sonuc").Cells(i, 175).Value
Sheets("yazdirma").Cells((i - a) * 7 + 89, 2).Value = Sheets("sonuc").Cells(i, 177).Value
Sheets("yazdirma").Cells((i - a) * 7 + 90, 2).Value = Sheets("sonuc").Cells(i, 179).Value
Sheets("yazdirma").Cells((i - a) * 7 + 91, 2).Value = Sheets("sonuc").Cells(i, 181).Value
Sheets("yazdirma").Cells((i - a) * 7 + 92, 2).Value = Sheets("sonuc").Cells(i, 183).Value
Sheets("yazdirma").Cells((i - a) * 7 + 93, 2).Value = Sheets("sonuc").Cells(i, 185).Value
Sheets("yazdirma").Cells((i - a) * 7 + 94, 2).Value = Sheets("sonuc").Cells(i, 187).Value
Sheets("yazdirma").Cells((i - a) * 7 + 95, 2).Value = Sheets("sonuc").Cells(i, 189).Value
Sheets("yazdirma").Cells((i - a) * 7 + 96, 2).Value = Sheets("sonuc").Cells(i, 191).Value
Sheets("yazdirma").Cells((i - a) * 7 + 97, 2).Value = Sheets("sonuc").Cells(i, 193).Value
Sheets("yazdirma").Cells((i - a) * 7 + 98, 2).Value = Sheets("sonuc").Cells(i, 195).Value
Sheets("yazdirma").Cells((i - a) * 7 + 99, 2).Value = Sheets("sonuc").Cells(i, 197).Value
Sheets("yazdirma").Cells((i - a) * 7 + 100, 2).Value = Sheets("sonuc").Cells(i, 199).Value
Sheets("yazdirma").Cells((i - a) * 7 + 101, 2).Value = Sheets("sonuc").Cells(i, 201).Value
Sheets("yazdirma").Cells((i - a) * 7 + 102, 2).Value = Sheets("sonuc").Cells(i, 203).Value
Sheets("yazdirma").Cells((i - a) * 7 + 103, 2).Value = Sheets("sonuc").Cells(i, 205).Value

Sheets("yazdirma").Cells((i - a) * 7 + 2, 3).Value = Sheets("sonuc").Cells(i, 4).Value
Sheets("yazdirma").Cells((i - a) * 7 + 3, 3).Value = Sheets("sonuc").Cells(i, 6).Value
Sheets("yazdirma").Cells((i - a) * 7 + 4, 3).Value = Sheets("sonuc").Cells(i, 8).Value
Sheets("yazdirma").Cells((i - a) * 7 + 5, 3).Value = Sheets("sonuc").Cells(i, 10).Value
Sheets("yazdirma").Cells((i - a) * 7 + 6, 3).Value = Sheets("sonuc").Cells(i, 12).Value
Sheets("yazdirma").Cells((i - a) * 7 + 7, 3).Value = Sheets("sonuc").Cells(i, 14).Value
Sheets("yazdirma").Cells((i - a) * 7 + 8, 3).Value = Sheets("sonuc").Cells(i, 16).Value
Sheets("yazdirma").Cells((i - a) * 7 + 9, 3).Value = Sheets("sonuc").Cells(i, 18).Value
Sheets("yazdirma").Cells((i - a) * 7 + 10, 3).Value = Sheets("sonuc").Cells(i, 20).Value
Sheets("yazdirma").Cells((i - a) * 7 + 11, 3).Value = Sheets("sonuc").Cells(i, 22).Value
Sheets("yazdirma").Cells((i - a) * 7 + 12, 3).Value = Sheets("sonuc").Cells(i, 24).Value
Sheets("yazdirma").Cells((i - a) * 7 + 13, 3).Value = Sheets("sonuc").Cells(i, 26).Value
Sheets("yazdirma").Cells((i - a) * 7 + 14, 3).Value = Sheets("sonuc").Cells(i, 28).Value
Sheets("yazdirma").Cells((i - a) * 7 + 15, 3).Value = Sheets("sonuc").Cells(i, 30).Value
Sheets("yazdirma").Cells((i - a) * 7 + 16, 3).Value = Sheets("sonuc").Cells(i, 32).Value
Sheets("yazdirma").Cells((i - a) * 7 + 17, 3).Value = Sheets("sonuc").Cells(i, 34).Value
Sheets("yazdirma").Cells((i - a) * 7 + 18, 3).Value = Sheets("sonuc").Cells(i, 36).Value
Sheets("yazdirma").Cells((i - a) * 7 + 19, 3).Value = Sheets("sonuc").Cells(i, 38).Value
Sheets("yazdirma").Cells((i - a) * 7 + 20, 3).Value = Sheets("sonuc").Cells(i, 40).Value
Sheets("yazdirma").Cells((i - a) * 7 + 21, 3).Value = Sheets("sonuc").Cells(i, 42).Value
Sheets("yazdirma").Cells((i - a) * 7 + 22, 3).Value = Sheets("sonuc").Cells(i, 44).Value
Sheets("yazdirma").Cells((i - a) * 7 + 23, 3).Value = Sheets("sonuc").Cells(i, 46).Value
Sheets("yazdirma").Cells((i - a) * 7 + 24, 3).Value = Sheets("sonuc").Cells(i, 48).Value
Sheets("yazdirma").Cells((i - a) * 7 + 25, 3).Value = Sheets("sonuc").Cells(i, 50).Value
Sheets("yazdirma").Cells((i - a) * 7 + 26, 3).Value = Sheets("sonuc").Cells(i, 52).Value
Sheets("yazdirma").Cells((i - a) * 7 + 27, 3).Value = Sheets("sonuc").Cells(i, 54).Value
Sheets("yazdirma").Cells((i - a) * 7 + 28, 3).Value = Sheets("sonuc").Cells(i, 56).Value
Sheets("yazdirma").Cells((i - a) * 7 + 29, 3).Value = Sheets("sonuc").Cells(i, 58).Value
Sheets("yazdirma").Cells((i - a) * 7 + 30, 3).Value = Sheets("sonuc").Cells(i, 60).Value
Sheets("yazdirma").Cells((i - a) * 7 + 31, 3).Value = Sheets("sonuc").Cells(i, 62).Value
Sheets("yazdirma").Cells((i - a) * 7 + 32, 3).Value = Sheets("sonuc").Cells(i, 64).Value
Sheets("yazdirma").Cells((i - a) * 7 + 33, 3).Value = Sheets("sonuc").Cells(i, 66).Value
Sheets("yazdirma").Cells((i - a) * 7 + 34, 3).Value = Sheets("sonuc").Cells(i, 68).Value
Sheets("yazdirma").Cells((i - a) * 7 + 35, 3).Value = Sheets("sonuc").Cells(i, 70).Value
Sheets("yazdirma").Cells((i - a) * 7 + 36, 3).Value = Sheets("sonuc").Cells(i, 72).Value
Sheets("yazdirma").Cells((i - a) * 7 + 37, 3).Value = Sheets("sonuc").Cells(i, 74).Value
Sheets("yazdirma").Cells((i - a) * 7 + 38, 3).Value = Sheets("sonuc").Cells(i, 76).Value
Sheets("yazdirma").Cells((i - a) * 7 + 39, 3).Value = Sheets("sonuc").Cells(i, 78).Value
Sheets("yazdirma").Cells((i - a) * 7 + 40, 3).Value = Sheets("sonuc").Cells(i, 80).Value
Sheets("yazdirma").Cells((i - a) * 7 + 41, 3).Value = Sheets("sonuc").Cells(i, 82).Value
Sheets("yazdirma").Cells((i - a) * 7 + 42, 3).Value = Sheets("sonuc").Cells(i, 84).Value
Sheets("yazdirma").Cells((i - a) * 7 + 43, 3).Value = Sheets("sonuc").Cells(i, 86).Value
Sheets("yazdirma").Cells((i - a) * 7 + 44, 3).Value = Sheets("sonuc").Cells(i, 88).Value
Sheets("yazdirma").Cells((i - a) * 7 + 45, 3).Value = Sheets("sonuc").Cells(i, 90).Value
Sheets("yazdirma").Cells((i - a) * 7 + 46, 3).Value = Sheets("sonuc").Cells(i, 92).Value
Sheets("yazdirma").Cells((i - a) * 7 + 47, 3).Value = Sheets("sonuc").Cells(i, 94).Value
Sheets("yazdirma").Cells((i - a) * 7 + 48, 3).Value = Sheets("sonuc").Cells(i, 96).Value
Sheets("yazdirma").Cells((i - a) * 7 + 49, 3).Value = Sheets("sonuc").Cells(i, 98).Value
Sheets("yazdirma").Cells((i - a) * 7 + 50, 3).Value = Sheets("sonuc").Cells(i, 100).Value
Sheets("yazdirma").Cells((i - a) * 7 + 51, 3).Value = Sheets("sonuc").Cells(i, 102).Value
Sheets("yazdirma").Cells((i - a) * 7 + 52, 3).Value = Sheets("sonuc").Cells(i, 104).Value
Sheets("yazdirma").Cells((i - a) * 7 + 53, 3).Value = Sheets("sonuc").Cells(i, 106).Value
Sheets("yazdirma").Cells((i - a) * 7 + 54, 3).Value = Sheets("sonuc").Cells(i, 108).Value
Sheets("yazdirma").Cells((i - a) * 7 + 55, 3).Value = Sheets("sonuc").Cells(i, 110).Value
Sheets("yazdirma").Cells((i - a) * 7 + 56, 3).Value = Sheets("sonuc").Cells(i, 112).Value
Sheets("yazdirma").Cells((i - a) * 7 + 57, 3).Value = Sheets("sonuc").Cells(i, 114).Value
Sheets("yazdirma").Cells((i - a) * 7 + 58, 3).Value = Sheets("sonuc").Cells(i, 116).Value
Sheets("yazdirma").Cells((i - a) * 7 + 59, 3).Value = Sheets("sonuc").Cells(i, 118).Value
Sheets("yazdirma").Cells((i - a) * 7 + 60, 3).Value = Sheets("sonuc").Cells(i, 120).Value
Sheets("yazdirma").Cells((i - a) * 7 + 61, 3).Value = Sheets("sonuc").Cells(i, 122).Value
Sheets("yazdirma").Cells((i - a) * 7 + 62, 3).Value = Sheets("sonuc").Cells(i, 124).Value
Sheets("yazdirma").Cells((i - a) * 7 + 63, 3).Value = Sheets("sonuc").Cells(i, 126).Value
Sheets("yazdirma").Cells((i - a) * 7 + 64, 3).Value = Sheets("sonuc").Cells(i, 128).Value
Sheets("yazdirma").Cells((i - a) * 7 + 55, 3).Value = Sheets("sonuc").Cells(i, 130).Value
Sheets("yazdirma").Cells((i - a) * 7 + 66, 3).Value = Sheets("sonuc").Cells(i, 132).Value
Sheets("yazdirma").Cells((i - a) * 7 + 67, 3).Value = Sheets("sonuc").Cells(i, 134).Value
Sheets("yazdirma").Cells((i - a) * 7 + 68, 3).Value = Sheets("sonuc").Cells(i, 136).Value
Sheets("yazdirma").Cells((i - a) * 7 + 69, 3).Value = Sheets("sonuc").Cells(i, 138).Value
Sheets("yazdirma").Cells((i - a) * 7 + 70, 3).Value = Sheets("sonuc").Cells(i, 140).Value
Sheets("yazdirma").Cells((i - a) * 7 + 71, 3).Value = Sheets("sonuc").Cells(i, 142).Value
Sheets("yazdirma").Cells((i - a) * 7 + 72, 3).Value = Sheets("sonuc").Cells(i, 144).Value
Sheets("yazdirma").Cells((i - a) * 7 + 73, 3).Value = Sheets("sonuc").Cells(i, 146).Value
Sheets("yazdirma").Cells((i - a) * 7 + 74, 3).Value = Sheets("sonuc").Cells(i, 148).Value
Sheets("yazdirma").Cells((i - a) * 7 + 75, 3).Value = Sheets("sonuc").Cells(i, 150).Value
Sheets("yazdirma").Cells((i - a) * 7 + 76, 3).Value = Sheets("sonuc").Cells(i, 152).Value
Sheets("yazdirma").Cells((i - a) * 7 + 77, 3).Value = Sheets("sonuc").Cells(i, 154).Value
Sheets("yazdirma").Cells((i - a) * 7 + 78, 3).Value = Sheets("sonuc").Cells(i, 156).Value
Sheets("yazdirma").Cells((i - a) * 7 + 79, 3).Value = Sheets("sonuc").Cells(i, 158).Value
Sheets("yazdirma").Cells((i - a) * 7 + 80, 3).Value = Sheets("sonuc").Cells(i, 160).Value
Sheets("yazdirma").Cells((i - a) * 7 + 81, 3).Value = Sheets("sonuc").Cells(i, 162).Value
Sheets("yazdirma").Cells((i - a) * 7 + 82, 3).Value = Sheets("sonuc").Cells(i, 164).Value
Sheets("yazdirma").Cells((i - a) * 7 + 83, 3).Value = Sheets("sonuc").Cells(i, 166).Value
Sheets("yazdirma").Cells((i - a) * 7 + 84, 3).Value = Sheets("sonuc").Cells(i, 168).Value
Sheets("yazdirma").Cells((i - a) * 7 + 85, 3).Value = Sheets("sonuc").Cells(i, 170).Value
Sheets("yazdirma").Cells((i - a) * 7 + 86, 3).Value = Sheets("sonuc").Cells(i, 172).Value
Sheets("yazdirma").Cells((i - a) * 7 + 87, 3).Value = Sheets("sonuc").Cells(i, 174).Value
Sheets("yazdirma").Cells((i - a) * 7 + 88, 3).Value = Sheets("sonuc").Cells(i, 176).Value
Sheets("yazdirma").Cells((i - a) * 7 + 89, 3).Value = Sheets("sonuc").Cells(i, 178).Value
Sheets("yazdirma").Cells((i - a) * 7 + 90, 3).Value = Sheets("sonuc").Cells(i, 180).Value
Sheets("yazdirma").Cells((i - a) * 7 + 91, 3).Value = Sheets("sonuc").Cells(i, 182).Value
Sheets("yazdirma").Cells((i - a) * 7 + 92, 3).Value = Sheets("sonuc").Cells(i, 184).Value
Sheets("yazdirma").Cells((i - a) * 7 + 93, 3).Value = Sheets("sonuc").Cells(i, 186).Value
Sheets("yazdirma").Cells((i - a) * 7 + 94, 3).Value = Sheets("sonuc").Cells(i, 188).Value
Sheets("yazdirma").Cells((i - a) * 7 + 95, 3).Value = Sheets("sonuc").Cells(i, 190).Value
Sheets("yazdirma").Cells((i - a) * 7 + 96, 3).Value = Sheets("sonuc").Cells(i, 192).Value
Sheets("yazdirma").Cells((i - a) * 7 + 97, 3).Value = Sheets("sonuc").Cells(i, 194).Value
Sheets("yazdirma").Cells((i - a) * 7 + 98, 3).Value = Sheets("sonuc").Cells(i, 196).Value
Sheets("yazdirma").Cells((i - a) * 7 + 99, 3).Value = Sheets("sonuc").Cells(i, 198).Value
Sheets("yazdirma").Cells((i - a) * 7 + 100, 3).Value = Sheets("sonuc").Cells(i, 200).Value
Sheets("yazdirma").Cells((i - a) * 7 + 101, 3).Value = Sheets("sonuc").Cells(i, 202).Value
Sheets("yazdirma").Cells((i - a) * 7 + 102, 3).Value = Sheets("sonuc").Cells(i, 204).Value

Next
Unload UserForm1
End Sub
 

Ekli dosyalar

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst