Makro ile çalışma kitapları arası toplam

alihan43 · 20 Eylül 2012

Merhaba arkadaşlar;

ekte sunmuş olduğum örnek klasörün içerisinde 3 adet çalışma kitabı var. Kitap1, Kitap2, Kitap3 isimlerinde. ben kitap1 ve kitap2 de bulunan hücrelerdeki rakamların toplamını kitap3 de toplasın istiyorum ekteki örnektede görüleceği üzere kitap1'in d10 hücresine 7 yazdım, kitap2'nin d10 hücresine 5 yazdım. d10 hücrelerinin toplamını makro ile otomatik olarak kitap3'ün d10 hücresine 12 yazmasını istiyorum. şimdiden teşekkür ederim.

asi_kral · 20 Eylül 2012

Merhaba
Boş bir module kopyalayın ve deneyin.

Kod:

Option Explicit
Sub topla()
Dim YOL As String, K1 As String, K2 As String
YOL = ThisWorkbook.Path & "\"
K1 = "Kitap1.xls"
K2 = "Kitap2.xls"
Range("D9") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]Sayfa1'!R[COLOR="Red"]10[/COLOR]C[COLOR="Blue"]4[/COLOR]") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]Sayfa1'!R[COLOR="red"]10[/COLOR]C[COLOR="blue"]4[/COLOR]")
MsgBox "İşlem Tamamlandı", vbInformation
End Sub

alihan43 · 20 Eylül 2012

Sayın Asi Kral öncelikle ilgin için teşekkür ederim.
makro çalıştırdım olmuş ancak kitap3'de d10 hücresi yerine d9 hücresinde topluyor. yazdığınız kodda bir tane ("D9") yazılı yeri d10 yaptım oldu. bu kodda makro çalıştır demeden güncel bilgiyi vermiyor illa makro çalıştır demek zorundamıyız. birde d10 sadece bir örnekti d10 hücresi gibi 25-30 tane hücrelerin toplamları alınacak aynı sizin yazdığınız kodları yazssam olurmu?

asi_kral · 20 Eylül 2012

alihan43' Alıntı:
Sayın Asi Kral öncelikle ilgin için teşekkür ederim.
makro çalıştırdım olmuş ancak kitap3'de d10 hücresi yerine d9 hücresinde topluyor. yazdığınız kodda bir tane ("D9") yazılı yeri d10 yaptım oldu. bu kodda makro çalıştır demeden güncel bilgiyi vermiyor illa makro çalıştır demek zorundamıyız. birde d10 sadece bir örnekti d10 hücresi gibi 25-30 tane hücrelerin toplamları alınacak aynı sizin yazdığınız kodları yazssam olurmu?

Makroyu nasıl tetikleyeceğinizi söylemediğiniz için bende bu şekilde yazdım.
Sıralı ise döngüye alarak yapabilirsiniz.

alihan43 · 20 Eylül 2012

döngü yapacağımız yer ve satırları kırmızı renkle yazabilirmisiniz.

asi_kral · 20 Eylül 2012

alihan43' Alıntı:
döngü yapacağımız yer ve satırları kırmızı renkle yazabilirmisiniz.

Kırmızılar satır maviler sütun

alihan43 · 25 Eylül 2012

projede çok fazla makro hatası

yukarıda verilen koddan yola çıkarak çalışma kitaplarıma uyguladım ancak (compile error, procedure too large) hatası verdi sanırım çok makro yazdın diyo aşağıda sizin yardımınız ile yazdığım makroyu nasıl sadeleştirebiliriz. Ayrıca bunun kadar daha çok makro ilave edeceğim.

Option Explicit
Sub auto_open()
Dim YOL As String, K1 As String, K2 As String, K3 As String, K4 As String, K5 As String, K6 As String, K7 As String, K8 As String, K9 As String, K10 As String, K11 As String, K12 As String
YOL = ThisWorkbook.Path & "\"
K1 = "1-OCAK SATILAN.xls"
K2 = "2-ŞUBAT SATILAN.xls"
K3 = "3-MART SATILAN.xls"
K4 = "4-NİSAN SATILAN.xls"
K5 = "5-MAYIS SATILAN.xls"
K6 = "6-HAZİRAN SATILAN.xls"
K7 = "7-TEMMUZ SATILAN.xls"
K8 = "8-AĞUSTOS SATILAN.xls"
K9 = "9-EYLÜL SATILAN.xls"
K10 = "10-EKİM SATILAN.xls"
K11 = "11-KASIM SATILAN.xls"
K12 = "12-ARALIK SATILAN.xls"
Range("C4") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R4C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R4C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R4C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R4C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R4C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R4C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R4C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R4C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R4C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R4C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R4C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R4C3")
Range("C5") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R5C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R5C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R5C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R5C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R5C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R5C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R5C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R5C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R5C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R5C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R5C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R5C3")
Range("C6") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R6C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R6C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R6C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R6C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R6C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R6C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R6C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R6C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R6C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R6C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R6C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R6C3")
Range("C7") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R7C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R7C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R7C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R7C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R7C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R7C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R7C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R7C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R7C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R7C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R7C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R7C3")
Range("C8") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R8C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R8C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R8C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R8C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R8C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R8C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R8C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R8C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R8C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R8C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R8C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R8C3")
Range("C9") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R9C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R9C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R9C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R9C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R9C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R9C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R9C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R9C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R9C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R9C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R9C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R9C3")
Range("D4") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R4C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R4C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R4C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R4C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R4C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R4C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R4C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R4C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R4C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R4C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R4C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R4C4")
Range("D5") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R5C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R5C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R5C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R5C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R5C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R5C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R5C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R5C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R5C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R5C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R5C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R5C4")
Range("D6") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R6C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R6C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R6C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R6C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R6C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R6C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R6C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R6C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R6C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R6C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R6C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R6C4")
Range("D7") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R7C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R7C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R7C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R7C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R7C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R7C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R7C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R7C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R7C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R7C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R7C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R7C4")
Range("D8") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R8C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R8C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R8C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R8C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R8C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R8C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R8C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R8C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R8C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R8C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R8C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R8C4")
Range("D9") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R9C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R9C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R9C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R9C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R9C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R9C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R9C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R9C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R9C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R9C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R9C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R9C4")
Range("E4") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R4C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R4C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R4C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R4C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R4C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R4C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R4C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R4C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R4C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R4C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R4C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R4C5")
Range("E5") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R5C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R5C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R5C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R5C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R5C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R5C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R5C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R5C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R5C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R5C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R5C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R5C5")
Range("E6") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R6C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R6C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R6C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R6C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R6C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R6C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R6C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R6C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R6C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R6C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R6C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R6C5")
Range("E7") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R7C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R7C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R7C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R7C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R7C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R7C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R7C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R7C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R7C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R7C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R7C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R7C5")
Range("E8") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R8C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R8C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R8C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R8C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R8C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R8C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R8C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R8C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R8C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R8C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R8C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R8C5")
Range("E9") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R9C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R9C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R9C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R9C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R9C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R9C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R9C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R9C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R9C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R9C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R9C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R9C5")
Range("F4") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R4C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R4C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R4C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R4C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R4C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R4C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R4C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R4C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R4C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R4C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R4C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R4C6")
Range("F5") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R5C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R5C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R5C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R5C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R5C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R5C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R5C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R5C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R5C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R5C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R5C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R5C6")
Range("F6") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R6C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R6C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R6C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R6C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R6C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R6C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R6C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R6C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R6C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R6C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R6C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R6C6")
Range("F7") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R7C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R7C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R7C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R7C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R7C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R7C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R7C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R7C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R7C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R7C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R7C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R7C6")
Range("F8") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R8C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R8C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R8C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R8C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R8C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R8C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R8C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R8C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R8C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R8C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R8C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R8C6")
Range("F9") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R9C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R9C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R9C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R9C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R9C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R9C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R9C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R9C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R9C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R9C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R9C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R9C6")
Range("G4") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R4C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R4C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R4C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R4C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R4C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R4C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R4C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R4C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R4C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R4C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R4C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R4C7")
Range("G5") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R5C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R5C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R5C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R5C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R5C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R5C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R5C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R5C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R5C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R5C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R5C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R5C7")
Range("G6") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R6C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R6C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R6C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R6C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R6C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R6C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R6C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R6C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R6C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R6C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R6C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R6C7")
Range("G7") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R7C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R7C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R7C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R7C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R7C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R7C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R7C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R7C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R7C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R7C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R7C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R7C7")
Range("G8") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R8C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R8C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R8C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R8C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R8C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R8C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R8C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R8C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R8C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R8C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R8C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R8C7")
Range("G9") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R9C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R9C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R9C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R9C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R9C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R9C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R9C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R9C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R9C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R9C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R9C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R9C7")
Range("H4") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R4C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R4C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R4C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R4C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R4C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R4C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R4C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R4C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R4C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R4C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R4C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R4C8")
Range("H5") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R5C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R5C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R5C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R5C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R5C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R5C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R5C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R5C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R5C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R5C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R5C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R5C8")
Range("H6") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R6C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R6C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R6C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R6C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R6C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R6C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R6C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R6C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R6C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R6C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R6C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R6C8")
Range("H7") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R7C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R7C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R7C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R7C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R7C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R7C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R7C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R7C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R7C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R7C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R7C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R7C8")
Range("H8") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R8C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R8C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R8C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R8C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R8C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R8C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R8C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R8C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R8C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R8C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R8C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R8C8")
Range("H9") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R9C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R9C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R9C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R9C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R9C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R9C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R9C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R9C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R9C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R9C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R9C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R9C8")
Range("C11") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R11C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R11C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R11C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R11C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R11C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R11C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R11C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R11C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R11C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R11C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R11C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R11C3")
Range("C12") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R12C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R12C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R12C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R12C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R12C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R12C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R12C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R12C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R12C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R12C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R12C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R12C3")
Range("C13") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R13C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R13C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R13C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R13C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R13C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R13C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R13C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R13C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R13C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R13C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R13C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R13C3")
Range("C14") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R14C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R14C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R14C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R14C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R14C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R14C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R14C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R14C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R14C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R14C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R14C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R14C3")
Range("C15") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R15C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R15C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R15C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R15C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R15C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R15C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R15C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R15C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R15C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R15C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R15C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R15C3")
Range("C16") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R16C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R16C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R16C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R16C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R16C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R16C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R16C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R16C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R16C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R16C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R16C3") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R16C3")
Range("D11") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R11C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R11C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R11C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R11C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R11C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R11C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R11C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R11C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R11C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R11C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R11C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R11C4")
Range("D12") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R12C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R12C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R12C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R12C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R12C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R12C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R12C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R12C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R12C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R12C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R12C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R12C4")
Range("D13") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R13C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R13C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R13C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R13C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R13C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R13C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R13C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R13C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R13C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R13C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R13C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R13C4")
Range("D14") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R14C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R14C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R14C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R14C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R14C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R14C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R14C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R14C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R14C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R14C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R14C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R14C4")
Range("D15") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R15C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R15C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R15C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R15C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R15C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R15C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R15C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R15C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R15C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R15C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R15C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R15C4")
Range("D16") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R16C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R16C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R16C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R16C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R16C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R16C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R16C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R16C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R16C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R16C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R16C4") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R16C4")
Range("E11") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R11C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R11C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R11C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R11C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R11C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R11C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R11C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R11C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R11C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R11C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R11C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R11C5")
Range("E12") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R12C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R12C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R12C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R12C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R12C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R12C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R12C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R12C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R12C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R12C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R12C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R12C5")
Range("E13") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R13C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R13C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R13C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R13C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R13C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R13C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R13C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R13C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R13C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R13C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R13C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R13C5")
Range("E14") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R14C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R14C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R14C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R14C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R14C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R14C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R14C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R14C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R14C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R14C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R14C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R14C5")
Range("E15") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R15C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R15C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R15C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R15C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R15C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R15C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R15C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R15C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R15C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R15C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R15C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R15C5")
Range("E16") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R16C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R16C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R16C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R16C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R16C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R16C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R16C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R16C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R16C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R16C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R16C5") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R16C5")
Range("F11") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R11C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R11C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R11C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R11C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R11C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R11C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R11C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R11C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R11C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R11C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R11C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R11C6")
Range("F12") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R12C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R12C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R12C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R12C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R12C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R12C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R12C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R12C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R12C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R12C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R12C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R12C6")
Range("F13") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R13C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R13C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R13C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R13C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R13C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R13C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R13C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R13C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R13C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R13C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R13C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R13C6")
Range("F14") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R14C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R14C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R14C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R14C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R14C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R14C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R14C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R14C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R14C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R14C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R14C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R14C6")
Range("F15") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R15C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R15C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R15C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R15C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R15C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R15C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R15C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R15C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R15C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R15C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R15C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R15C6")
Range("F16") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R16C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R16C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R16C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R16C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R16C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R16C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R16C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R16C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R16C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R16C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R16C6") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R16C6")
Range("G11") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R11C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R11C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R11C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R11C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R11C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R11C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R11C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R11C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R11C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R11C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R11C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R11C7")
Range("G12") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R12C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R12C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R12C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R12C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R12C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R12C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R12C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R12C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R12C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R12C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R12C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R12C7")
Range("G13") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R13C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R13C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R13C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R13C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R13C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R13C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R13C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R13C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R13C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R13C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R13C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R13C7")
Range("G14") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R14C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R14C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R14C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R14C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R14C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R14C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R14C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R14C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R14C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R14C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R14C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R14C7")
Range("G15") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R15C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R15C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R15C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R15C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R15C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R15C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R15C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R15C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R15C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R15C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R15C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R15C7")
Range("G16") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R16C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R16C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R16C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R16C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R16C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R16C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R16C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R16C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R16C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R16C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R16C7") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R16C7")
Range("H11") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R11C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R11C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R11C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R11C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R11C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R11C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R11C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R11C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R11C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R11C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R11C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R11C8")
Range("H12") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R12C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R12C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R12C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R12C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R12C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R12C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R12C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R12C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R12C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R12C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R12C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R12C8")
Range("H13") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R13C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R13C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R13C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R13C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R13C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R13C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R13C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R13C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R13C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R13C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R13C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R13C8")
Range("H14") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R14C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R14C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R14C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R14C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R14C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R14C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R14C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R14C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R14C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R14C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R14C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R14C8")
Range("H15") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R15C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R15C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R15C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R15C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R15C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R15C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R15C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R15C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R15C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R15C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R15C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R15C8")
Range("H16") = Application.ExecuteExcel4Macro("'" & YOL & "[" & K1 & "]AYLIK'!R16C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K2 & "]AYLIK'!R16C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K3 & "]AYLIK'!R16C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K4 & "]AYLIK'!R16C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K5 & "]AYLIK'!R16C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K6 & "]AYLIK'!R16C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K7 & "]AYLIK'!R16C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K8 & "]AYLIK'!R16C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K9 & "]AYLIK'!R16C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K10 & "]AYLIK'!R16C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K11 & "]AYLIK'!R16C8") _
+ Application.ExecuteExcel4Macro("'" & YOL & "[" & K12 & "]AYLIK'!R16C8")
End Sub

alihan43 · 26 Eylül 2012

yardım edecek yok mu ?

halit3 · 26 Eylül 2012

alihan43' Alıntı:
Merhaba arkadaşlar;

ekte sunmuş olduğum örnek klasörün içerisinde 3 adet çalışma kitabı var. Kitap1, Kitap2, Kitap3 isimlerinde. ben kitap1 ve kitap2 de bulunan hücrelerdeki rakamların toplamını kitap3 de toplasın istiyorum ekteki örnektede görüleceği üzere kitap1'in d10 hücresine 7 yazdım, kitap2'nin d10 hücresine 5 yazdım. d10 hücrelerinin toplamını makro ile otomatik olarak kitap3'ün d10 hücresine 12 yazmasını istiyorum. şimdiden teşekkür ederim.

Merhaba bu konular baya uğraş ve emek veren meşakkatli işler ben sorunuza cevap vermek için yazmıyorum sadece alternatif link veriyorum.

Aşağıdaki linkdeki dosyayı irdeleyiniz. Komut düğmelerine sırasıyla basıp ne işlemler yaptığını gözleyin birisi mutlaka işinize yarıyacaktır.

http://www.excel.web.tr/f117/kapaly-dosyalardan-veri-alma-t68879.html

Makro ile çalışma kitapları arası toplam

alihan43

Ekli dosyalar

asi_kral

Özel Üye

alihan43

asi_kral

Özel Üye

alihan43

asi_kral

Özel Üye

alihan43

alihan43

halit3

Uzman