procedure too large hatası... yardım...

vimpir · 28 Haziran 2012

Arkadaşlar
şu hatayı almaktayım...
procedure too large diye bir hata almaktayım...
bu hatanın anlamı nedir nasıl çözülür...
kodlarım aşadaki gibidir daha bir çok kod girmem lazım lütfen yardım...

Kod:

Sub Resim3_Tıklat()
    Dim Dosya As String, Yol As String
 
YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[1.xls]OCAK-2012'!"
    
    Range("A5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")
    
YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[1.xls]ŞUBAT-2012'!"
    
    Range("A6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")
    
YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[1.xls]MART-2012'!"
    
    Range("A7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH7") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")
    
 YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[1.xls]NİSAN-2012'!"
    
    Range("A8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH8") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")
    
YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[1.xls]MAYIS-2012'!"
    
    Range("A9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH9") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")
    
YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[1.xls]HAZİRAN-2012'!"
    
    Range("A10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH10") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")
    
YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[1.xls]TEMMUZ-2012'!"
    
    Range("A11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH11") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")

YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[1.xls]AĞUSTOS-2012'!"
    
    Range("A12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH12") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")

YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[1.xls]EYLÜL-2012'!"
    
    Range("A13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH13") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")

YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[1.xls]EKİM-2012'!"
    
    Range("A14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH14") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")

YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[1.xls]KASIM-2012'!"
    
    Range("A15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH15") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")

YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[1.xls]ARALIK-2012'!"
    
    Range("A16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH16") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")
    
    YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[2.xls]OCAK-2012'!"
    
    Range("A18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH18") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")

YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[2.xls]ŞUBAT-2012'!"
    
    Range("A19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH19") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")

YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[2.xls]MART-2012'!"
    
    Range("A20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH20") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")

YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[2.xls]NİSAN-2012'!"
    
    Range("A21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH21") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")
    
YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[2.xls]MAYIS-2012'!"
    
    Range("A22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH22") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")

YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[2.xls]HAZİRAN-2012'!"
    
    Range("A23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH23") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")

YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[2.xls]TEMMUZ-2012'!"
    
    Range("A24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH24") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")

YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[2.xls]AĞUSTOS-2012'!"
    
    Range("A25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH25") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")

YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[2.xls]AĞUSTOS-2012'!"
    
    Range("A26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH26") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")

YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[2.xls]EYLÜL-2012'!"
    
    Range("A27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH27") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")


YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[2.xls]EKİM-2012'!"
    
    Range("A28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH28") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")

YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[2.xls]KASIM-2012'!"
    
    Range("A29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH29") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")

YYol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[2.xls]ARALIK-2012'!"
    
    Range("A30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH30") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")
    
    MsgBox "VERİLER GÜNCELLENMİŞTİR", vbOKOnly + vbInformation, "...:::Reysis...:::HAKAN CİNAL:::..."

End Sub

snx111 · 28 Haziran 2012

Bu makro Çok uzun Diyor.

makroyu Parçalamalısınız 3 parçada peşpeşe çalıştırabilirsiniz

vimpir · 28 Haziran 2012

makroyu nasıl parçalıcam yardımcı olurmusun?

snx111 · 28 Haziran 2012

1 tane modül daha ekleyin
ilk makroyu uygun bir satırdan sona kadar kesip
yeni modüle yapıştırın ,
ilk makronun sonuna call makroadı ile yeni modüle çagrı yapın ;
anladınızmı ?

Daha çok kod ekleyeceğim dediğinizden ...

Murat OSMA · 28 Haziran 2012

Dosya(ları)nızı ekleme şansınız var mı ?
ExecuteExcel4Macro metodu ile değil de, ADO ile daha kısa bir çözüm üretilebilir.

Kodlarınızı detaylı incelemedim ama ADO ile kapalı dosyadan veri alma mantığını göresiniz diye örnek bir dosya hazırladım. Bir bakın isterseniz.

Kod:

Sub Emre()
    Dim con As Object, rs As Object
    Dim sorgu As String
    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
        con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & _
        "\Veritabanı.xls;extended properties=""excel 8.0;hdr=no"""
        sorgu = "Select * From [Sayfa1$]"
        rs.Open sorgu, con, 1, 1
        Range("A1").CopyFromRecordset rs
    sorgu = vbNullString: Set rs = Nothing: Set con = Nothing
End Sub

vimpir · 28 Haziran 2012

Murat OSMA' Alıntı:
Dosya(ları)nızı ekleme şansınız var mı ?
ExecuteExcel4Macro metodu ile değil de, ADO ile daha kısa bir çözüm üretilebilir.

Kodlarınızı detalı incelemedim ama ADO ile kapalı dosyadan veri alma mantığını göresiniz diye örnek bir dosya hazırladım. Bir bakın isterseniz.

Kod:

Sub Emre() Dim con As Object, rs As Object Dim sorgu As String Set con = CreateObject("adodb.connection") Set rs = CreateObject("adodb.recordset") con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & _ "\Veritabanı.xls;extended properties=""excel 8.0;hdr=no""" sorgu = "Select * From [Sayfa1$]" rs.Open sorgu, con, 1, 1 Range("A1").CopyFromRecordset rs sorgu = vbNullString: Set rs = Nothing: Set con = Nothing End Sub

kullandığım kodu olduğu paylaştım onun üzerinde editleyebilirseniz sevinirim...

Murat OSMA · 28 Haziran 2012

Ne demek istediğiniz anlaşılmıyor... Mesajınızdaki boşlukları mı doldurmam gerekiyor ?

Korhan Ayhan · 28 Haziran 2012

Merhaba,

Çalışmanıza boş bir modül ekleyin.

Aşağıdaki kodu tüm aylarınızı kapsayacak şekilde MAKRO1,MAKRO2,MAKRO3 şeklinde çoğaltın.

Ben iki ay için örnek kodu veriyorum.

Kod:

Sub MAKRO1()
    Dim Dosya As String, Yol As String
 
    Yol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[1.xls]OCAK-2012'!"
 
    Range("A5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")
End Sub
 
Sub MAKRO2()
    Dim Dosya As String, Yol As String
 
    Yol = ThisWorkbook.Path & "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA\"
    Dosya = "[1.xls]ŞUBAT-2012'!"
 
    Range("A6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH6") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")
End Sub

Son olarak başka boş bir modüle aşağıdaki prosedürü uygulayın.

Kod:

Sub TÜMÜNÜ_GÜNCELLE()
    MAKRO1
    MAKRO2
    'Bu şekilde diğer makrolarıda çalıştırabilirsiniz.
 
    MsgBox "Veriler güncellenmiştir."
End Sub

Sanırım uyarlamakta zorlanmazsınız.

procedure too large hatası... yardım...

vimpir

snx111

Banned

vimpir

snx111

Banned

Murat OSMA

Altın Üye

Ekli dosyalar

vimpir

Murat OSMA

Altın Üye

Korhan Ayhan

Administrator