• DİKKAT

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

Kapalı dosyalardan maximum veri alma sayısı

E

Esteban34

Katılım
27 Haziran 2009
Mesajlar
56
Excel Vers. ve Dili
2003
Merhaba

Uzun süredir bir klasör içersinde bulunan kapalı excel dosyaları içersinden veri almaya çalışıyorum Belirli bir kademeye kadar getirdim olayı ancak aşağıdaki makroya yeni bir satır dahi eklesem hata veriyor. Sanırım son noktaya getirdim olayı.Ancak daha alınması gereken 15 adet hücre daha eklemem gerekecek.Siteye eklerken de birkısım satırları silmek zorunda kaldım.

Bu işlem için makroyu nası düzenlemeliyim. Bu konuda yardımlarınızı rica ederim.
Saygılar




Sub verilerial()
Application.ScreenUpdating = False
yol = "C:\HP\LİSTE\GENEL ARŞİV\2012\"
Set s1 = Sheets("DATA")
Set nesne = CreateObject("Scripting.FileSystemObject")
s1.Hyperlinks.Delete

For Each Dosya In nesne.getfolder(yol).Files
c = c + 1


s1.Cells(c + 3, "b") = c ' SAYDIRMA YAP


On Error Resume Next

s1.Hyperlinks.Add Anchor:=Cells(c + 3, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 3, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 3, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 3, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 3, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 3, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 3, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 3, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 3, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 3, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ


If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R8C3") <= 0 Then GoTo 11

s1.Cells(c + 3, "o") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R8C3")
s1.Cells(c + 3, "P") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R8C4")
s1.Cells(c + 3, "q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R8C5")
s1.Cells(c + 3, "r") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R8C6")
s1.Cells(c + 3, "s") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R8C7")
s1.Cells(c + 3, "t") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R8C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R8C12")



If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C7") <= 0 Then GoTo 10
s1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C7")
s1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R5C7")
s1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R6C7")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C8") <= 0 Then GoTo 10
s1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C8")
s1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R5C8")
s1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R6C8")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C9") <= 0 Then GoTo 10
s1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C9")
s1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R5C9")
s1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R6C9")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C10") <= 0 Then GoTo 10
s1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C10")
s1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R5C10")
s1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R6C10")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C11") <= 0 Then GoTo 10
s1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C11")
s1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R5C11")
s1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R6C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C12") <= 0 Then GoTo 10
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R5C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R6C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C13") <= 0 Then GoTo 10
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R5C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R6C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C14") <= 0 Then GoTo 10
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R5C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R6C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C15") <= 0 Then GoTo 10
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R5C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R6C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C16") <= 0 Then GoTo 10
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R4C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R5C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R6C16")

10 c = c + 1
s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 3, "b") = c
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

11



'2 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R9C3") <= 0 Then GoTo 21

s1.Cells(c + 3, "O") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R9C3")
s1.Cells(c + 3, "P") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R9C4")
s1.Cells(c + 3, "Q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R9C5")
s1.Cells(c + 3, "R") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R9C6")
s1.Cells(c + 3, "S") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R9C7")
s1.Cells(c + 3, "T") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R9C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R9C12")


If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C7") <= 0 Then GoTo 20
s1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C7")
s1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R8C7")
s1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R9C7")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C8") <= 0 Then GoTo 20
s1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C8")
s1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R8C8")
s1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R9C8")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C9") <= 0 Then GoTo 20
s1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C9")
s1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R8C9")
s1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R9C9")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C10") <= 0 Then GoTo 20
s1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C10")
s1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R8C10")
s1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R9C10")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C11") <= 0 Then GoTo 20
s1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C11")
s1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R8C11")
s1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R9C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C12") <= 0 Then GoTo 20
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R8C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R9C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C13") <= 0 Then GoTo 20
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R8C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R9C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C14") <= 0 Then GoTo 20
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R8C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R9C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C15") <= 0 Then GoTo 20
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R8C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R9C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C16") <= 0 Then GoTo 20
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R7C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R8C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R9C16")

20 c = c + 1

s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 3, "b") = c
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

21




'3 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R10C3") <= 0 Then GoTo 31

s1.Cells(c + 3, "O") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R10C3")
s1.Cells(c + 3, "P") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R10C4")
s1.Cells(c + 3, "Q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R10C5")
s1.Cells(c + 3, "R") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R10C6")
s1.Cells(c + 3, "S") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R10C7")
s1.Cells(c + 3, "T") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R10C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R10C12")


If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C7") <= 0 Then GoTo 30
s1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C7")
s1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R11C7")
s1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R12C7")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C8") <= 0 Then GoTo 30
s1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C8")
s1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R11C8")
s1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R12C8")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C9") <= 0 Then GoTo 30
s1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C9")
s1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R11C9")
s1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R12C9")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C10") <= 0 Then GoTo 30
s1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C10")
s1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R11C10")
s1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R12C10")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C11") <= 0 Then GoTo 30
s1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C11")
s1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R11C11")
s1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R12C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C12") <= 0 Then GoTo 30
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R11C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R12C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C13") <= 0 Then GoTo 30
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R11C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R12C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C14") <= 0 Then GoTo 30
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R11C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R12C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C15") <= 0 Then GoTo 30
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R11C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R12C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C16") <= 0 Then GoTo 30
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R10C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R11C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R12C16")

30 c = c + 1

s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 3, "b") = c
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

31



'4 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R11C3") <= 0 Then GoTo 41

s1.Cells(c + 3, "O") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R11C3")
s1.Cells(c + 3, "P") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R11C4")
s1.Cells(c + 3, "Q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R11C5")
s1.Cells(c + 3, "R") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R11C6")
s1.Cells(c + 3, "S") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R11C7")
s1.Cells(c + 3, "T") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R11C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R11C12")


If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C7") <= 0 Then GoTo 40
s1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C7")
s1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R14C7")
s1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R15C7")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C8") <= 0 Then GoTo 40
s1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C8")
s1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R14C8")
s1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R15C8")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C9") <= 0 Then GoTo 40
s1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C9")
s1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R14C9")
s1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R15C9")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C10") <= 0 Then GoTo 40
s1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C10")
s1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R14C10")
s1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R15C10")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C11") <= 0 Then GoTo 40
s1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C11")
s1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R14C11")
s1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R15C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C12") <= 0 Then GoTo 40
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R14C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R15C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C13") <= 0 Then GoTo 40
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R14C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R15C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C14") <= 0 Then GoTo 40
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R14C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R15C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C15") <= 0 Then GoTo 40
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R14C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R15C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C16") <= 0 Then GoTo 40
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R13C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R14C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R15C16")
40 c = c + 1


s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 3, "b") = c
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

41




'5 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R12C3") <= 0 Then GoTo 51

s1.Cells(c + 3, "O") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R12C3")
s1.Cells(c + 3, "P") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R12C4")
s1.Cells(c + 3, "Q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R12C5")
s1.Cells(c + 3, "R") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R12C6")
s1.Cells(c + 3, "S") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R12C7")
s1.Cells(c + 3, "T") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R12C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R12C12")


If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C7") <= 0 Then GoTo 50
s1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C7")
s1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R17C7")
s1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R18C7")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C8") <= 0 Then GoTo 50
s1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C8")
s1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R17C8")
s1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R18C8")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C9") <= 0 Then GoTo 50
s1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C9")
s1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R17C9")
s1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R18C9")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C10") <= 0 Then GoTo 50
s1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C10")
s1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R17C10")
s1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R18C10")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C11") <= 0 Then GoTo 50
s1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C11")
s1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R17C11")
s1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R18C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C12") <= 0 Then GoTo 50
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R17C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R18C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C13") <= 0 Then GoTo 50
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R17C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R18C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C14") <= 0 Then GoTo 50
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R17C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R18C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C15") <= 0 Then GoTo 50
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R17C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R18C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C16") <= 0 Then GoTo 50
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R16C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R17C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R18C16")

50 c = c + 1

s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 3, "b") = c
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

51



'6 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R13C3") <= 0 Then GoTo 61

s1.Cells(c + 3, "O") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R13C3")
s1.Cells(c + 3, "P") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R13C4")
s1.Cells(c + 3, "Q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R13C5")
s1.Cells(c + 3, "R") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R13C6")
s1.Cells(c + 3, "S") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R13C7")
s1.Cells(c + 3, "T") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R13C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R13C12")


If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C7") <= 0 Then GoTo 60
s1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C7")
s1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R20C7")
s1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R21C7")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C8") <= 0 Then GoTo 60
s1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C8")
s1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R20C8")
s1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R21C8")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C9") <= 0 Then GoTo 60
s1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C9")
s1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R20C9")
s1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R21C9")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C10") <= 0 Then GoTo 60
s1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C10")
s1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R20C10")
s1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R21C10")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C11") <= 0 Then GoTo 60
s1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C11")
s1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R20C11")
s1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R21C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C12") <= 0 Then GoTo 60
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R20C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R21C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C13") <= 0 Then GoTo 60
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R20C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R21C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C14") <= 0 Then GoTo 60
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R20C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R21C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C15") <= 0 Then GoTo 60
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R20C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R21C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C16") <= 0 Then GoTo 60
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R19C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R20C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R21C16")

60 c = c + 1

s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name

s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

61


'7 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R14C3") <= 0 Then GoTo 71
s1.Cells(c + 3, "O") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R14C3")
s1.Cells(c + 3, "P") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R14C4")
s1.Cells(c + 3, "Q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R14C5")
s1.Cells(c + 3, "R") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R14C6")
s1.Cells(c + 3, "S") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R14C7")
s1.Cells(c + 3, "T") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R14C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R14C12")


If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C7") <= 0 Then GoTo 70
s1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C7")
s1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R23C7")
s1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R24C7")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C8") <= 0 Then GoTo 70
s1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C8")
s1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R23C8")
s1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R24C8")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C9") <= 0 Then GoTo 70
s1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C9")
s1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R23C9")
s1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R24C9")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C10") <= 0 Then GoTo 70
s1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C10")
s1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R23C10")
s1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R24C10")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C11") <= 0 Then GoTo 70
s1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C11")
s1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R23C11")
s1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R24C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C12") <= 0 Then GoTo 70
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R23C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R24C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C13") <= 0 Then GoTo 70
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R23C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R24C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C14") <= 0 Then GoTo 70
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R23C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R24C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C15") <= 0 Then GoTo 70
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R23C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R24C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C16") <= 0 Then GoTo 70
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R22C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R23C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R24C16")
70 c = c + 1

s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name

s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

71


'8 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R15C3") <= 0 Then GoTo 81
s1.Cells(c + 3, "O") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R15C3")
s1.Cells(c + 3, "P") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R15C4")
s1.Cells(c + 3, "Q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R15C5")
s1.Cells(c + 3, "R") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R15C6")
s1.Cells(c + 3, "S") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R15C7")
s1.Cells(c + 3, "T") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R15C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R15C12")


If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C7") <= 0 Then GoTo 80
s1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C7")
s1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R26C7")
s1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R27C7")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C8") <= 0 Then GoTo 80
s1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C8")
s1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R26C8")
s1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R27C8")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C9") <= 0 Then GoTo 80
s1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C9")
s1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R26C9")
s1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R27C9")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C10") <= 0 Then GoTo 80
s1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C10")
s1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R26C10")
s1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R27C10")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C11") <= 0 Then GoTo 80
s1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C11")
s1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R26C11")
s1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R27C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C12") <= 0 Then GoTo 80
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R26C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R27C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C13") <= 0 Then GoTo 80
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R26C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R27C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C14") <= 0 Then GoTo 80
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R26C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R27C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C15") <= 0 Then GoTo 80
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R26C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R27C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C16") <= 0 Then GoTo 80
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R25C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R26C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R27C16")
80 c = c + 1

s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

81



'9 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R16C3") <= 0 Then GoTo 91
s1.Cells(c + 3, "O") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R16C3")
s1.Cells(c + 3, "P") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R16C4")
s1.Cells(c + 3, "Q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R16C5")
s1.Cells(c + 3, "R") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R16C6")
s1.Cells(c + 3, "S") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R16C7")
s1.Cells(c + 3, "T") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R16C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R16C12")


If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C7") <= 0 Then GoTo 90
s1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C7")
s1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R29C7")
s1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R30C7")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C8") <= 0 Then GoTo 90
s1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C8")
s1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R29C8")
s1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R30C8")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C9") <= 0 Then GoTo 90
s1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C9")
s1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R29C9")
s1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R30C9")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C10") <= 0 Then GoTo 90
s1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C10")
s1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R29C10")
s1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R30C10")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C11") <= 0 Then GoTo 90
s1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C11")
s1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R29C11")
s1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R30C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C12") <= 0 Then GoTo 90
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R29C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R30C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C13") <= 0 Then GoTo 90
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R29C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R30C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C14") <= 0 Then GoTo 90
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R29C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R30C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C15") <= 0 Then GoTo 90
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R29C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R30C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C16") <= 0 Then GoTo 90
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R28C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R29C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R30C16")
90 c = c + 1

s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

91



'10 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R17C3") <= 0 Then GoTo 101
s1.Cells(c + 3, "O") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R17C3")
s1.Cells(c + 3, "P") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R17C4")
s1.Cells(c + 3, "Q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R17C5")
s1.Cells(c + 3, "R") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R17C6")
s1.Cells(c + 3, "S") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R17C7")
s1.Cells(c + 3, "T") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R17C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R17C12")


If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C7") <= 0 Then GoTo 100
s1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C7")
s1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R32C7")
s1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R33C7")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C8") <= 0 Then GoTo 100
s1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C8")
s1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R32C8")
s1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R33C8")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C9") <= 0 Then GoTo 100
s1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C9")
s1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R32C9")
s1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R33C9")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C10") <= 0 Then GoTo 100
s1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C10")
s1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R32C10")
s1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R33C10")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C11") <= 0 Then GoTo 100
s1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C11")
s1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R32C11")
s1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R33C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C12") <= 0 Then GoTo 100
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R32C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R33C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C13") <= 0 Then GoTo 100
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R32C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R33C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C14") <= 0 Then GoTo 100
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R32C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R33C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C15") <= 0 Then GoTo 100
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R32C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R33C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C16") <= 0 Then GoTo 100
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R31C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R32C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R33C16")
100 c = c + 1

s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

101




'11 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R18C3") <= 0 Then GoTo 111
s1.Cells(c + 3, "O") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R18C3")
s1.Cells(c + 3, "P") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R18C4")
s1.Cells(c + 3, "Q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R18C5")
s1.Cells(c + 3, "R") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R18C6")
s1.Cells(c + 3, "S") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R18C7")
s1.Cells(c + 3, "T") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R18C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R18C12")


If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C7") <= 0 Then GoTo 110
s1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C7")
s1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R35C7")
s1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R36C7")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C8") <= 0 Then GoTo 110
s1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C8")
s1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R35C8")
s1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R36C8")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C9") <= 0 Then GoTo 110
's1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C9")
's1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R35C9")
's1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R36C9")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C10") <= 0 Then GoTo 110
's1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C10")
's1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R35C10")
's1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R36C10")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C11") <= 0 Then GoTo 110
's1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C11")
's1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R35C11")
's1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R36C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C12") <= 0 Then GoTo 110
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R35C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R36C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C13") <= 0 Then GoTo 110
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R35C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R36C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C14") <= 0 Then GoTo 110
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R35C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R36C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C15") <= 0 Then GoTo 110
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R35C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R36C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C16") <= 0 Then GoTo 110
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R34C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R35C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R36C16")
110 c = c + 1

s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

111


'12 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R19C3") <= 0 Then GoTo 121
s1.Cells(c + 3, "O") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R19C3")
s1.Cells(c + 3, "P") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R19C4")
s1.Cells(c + 3, "Q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R19C5")
s1.Cells(c + 3, "R") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R19C6")
s1.Cells(c + 3, "S") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R19C7")
s1.Cells(c + 3, "T") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R19C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R19C12")


'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C7") <= 0 Then GoTo 120
's1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C7")
's1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R38C7")
's1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R39C7")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C8") <= 0 Then GoTo 120
's1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C8")
's1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R38C8")
's1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R39C8")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C9") <= 0 Then GoTo 120
's1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C9")
's1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R38C9")
's1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R39C9")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C10") <= 0 Then GoTo 120
's1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C10")
's1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R38C10")
's1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R39C10")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C11") <= 0 Then GoTo 120
's1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C11")
's1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R38C11")
's1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R39C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C12") <= 0 Then GoTo 120
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R38C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R39C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C13") <= 0 Then GoTo 120
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R38C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R39C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C14") <= 0 Then GoTo 120
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R38C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R39C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C15") <= 0 Then GoTo 120
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R38C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R39C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C16") <= 0 Then GoTo 120
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R37C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R38C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R39C16")
120 c = c + 1

s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

121




'13 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R20C3") <= 0 Then GoTo 131
s1.Cells(c + 3, "o") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R20C3")
s1.Cells(c + 3, "p") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R20C4")
s1.Cells(c + 3, "q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R20C5")
s1.Cells(c + 3, "r") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R20C6")
s1.Cells(c + 3, "s") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R20C7")
s1.Cells(c + 3, "t") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R20C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R20C12")


'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C7") <= 0 Then GoTo 130
's1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C7")
's1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R41C7")
's1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R42C7")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C8") <= 0 Then GoTo 130
's1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C8")
's1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R41C8")
's1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R42C8")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C9") <= 0 Then GoTo 130
's1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C9")
's1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R41C9")
's1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R42C9")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C10") <= 0 Then GoTo 130
's1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C10")
's1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R41C10")
's1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R42C10")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C11") <= 0 Then GoTo 130
's1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C11")
's1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R41C11")
's1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R42C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C12") <= 0 Then GoTo 130
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R41C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R42C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C13") <= 0 Then GoTo 130
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R41C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R42C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C14") <= 0 Then GoTo 130
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R41C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R42C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C15") <= 0 Then GoTo 130
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R41C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R42C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C16") <= 0 Then GoTo 130
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R40C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R41C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R42C16")
130 c = c + 1

s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

131




'14 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R21C3") <= 0 Then GoTo 141
s1.Cells(c + 3, "o") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R21C3")
s1.Cells(c + 3, "p") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R21C4")
s1.Cells(c + 3, "q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R21C5")
s1.Cells(c + 3, "r") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R21C6")
s1.Cells(c + 3, "s") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R21C7")
s1.Cells(c + 3, "t") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R21C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R21C12")


'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C7") <= 0 Then GoTo 140
's1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C7")
's1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R44C7")
's1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R45C7")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C8") <= 0 Then GoTo 140
's1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C8")
's1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R44C8")
's1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R45C8")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C9") <= 0 Then GoTo 140
's1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C9")
's1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R44C9")
's1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R45C9")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C10") <= 0 Then GoTo 140
's1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C10")
's1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R44C10")
's1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R45C10")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C11") <= 0 Then GoTo 140
's1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C11")
's1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R44C11")
's1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R45C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C12") <= 0 Then GoTo 140
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R44C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R45C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C13") <= 0 Then GoTo 140
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R44C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R45C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C14") <= 0 Then GoTo 140
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R44C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R45C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C15") <= 0 Then GoTo 140
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R44C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R45C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C16") <= 0 Then GoTo 140
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R43C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R44C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R45C16")
140 c = c + 1

s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

141




'15 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R22C3") <= 0 Then GoTo 151
s1.Cells(c + 3, "o") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R22C3")
s1.Cells(c + 3, "p") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R22C4")
s1.Cells(c + 3, "q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R22C5")
s1.Cells(c + 3, "r") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R22C6")
s1.Cells(c + 3, "s") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R22C7")
s1.Cells(c + 3, "t") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R22C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R22C12")


'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C7") <= 0 Then GoTo 150
's1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C7")
's1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R47C7")
's1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R48C7")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C8") <= 0 Then GoTo 150
's1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C8")
's1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R47C8")
's1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R48C8")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C9") <= 0 Then GoTo 150
's1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C9")
's1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R47C9")
's1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R48C9")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C10") <= 0 Then GoTo 150
's1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C10")
's1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R47C10")
's1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R48C10")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C11") <= 0 Then GoTo 150
's1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C11")
's1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R47C11")
's1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R48C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C12") <= 0 Then GoTo 150
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R47C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R48C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C13") <= 0 Then GoTo 150
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R47C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R48C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C14") <= 0 Then GoTo 150
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R47C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R48C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C15") <= 0 Then GoTo 150
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R47C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R48C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C16") <= 0 Then GoTo 150
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R46C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R47C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R48C16")
150 c = c + 1

s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

151



'16 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R23C3") <= 0 Then GoTo 161
s1.Cells(c + 3, "o") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R23C3")
s1.Cells(c + 3, "p") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R23C4")
s1.Cells(c + 3, "q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R23C5")
s1.Cells(c + 3, "r") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R23C6")
s1.Cells(c + 3, "s") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R23C7")
s1.Cells(c + 3, "t") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R23C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R23C12")


'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C7") <= 0 Then GoTo 160
's1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C7")
's1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R50C7")
's1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R51C7")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C8") <= 0 Then GoTo 160
's1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C8")
's1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R50C8")
's1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R51C8")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C9") <= 0 Then GoTo 160
's1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C9")
's1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R50C9")
's1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R51C9")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C10") <= 0 Then GoTo 160
's1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C10")
's1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R50C10")
's1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R51C10")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C11") <= 0 Then GoTo 160
's1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C11")
's1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R50C11")
's1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R51C11")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C12") <= 0 Then GoTo 160
's1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C12")
's1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R50C12")
's1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R51C12")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C13") <= 0 Then GoTo 160
's1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C13")
's1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R50C13")
's1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R51C13")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C14") <= 0 Then GoTo 160
's1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C14")
's1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R50C14")
's1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R51C14")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C15") <= 0 Then GoTo 160
's1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C15")
's1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R50C15")
's1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R51C15")

'If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C16") <= 0 Then GoTo 160
's1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R49C16")
's1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R50C16")
's1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R51C16")
160 c = c + 1


s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

161



'17 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R24C3") <= 0 Then GoTo 171
s1.Cells(c + 3, "o") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R24C3")
s1.Cells(c + 3, "p") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R24C4")
s1.Cells(c + 3, "q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R24C5")
s1.Cells(c + 3, "r") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R24C6")
s1.Cells(c + 3, "s") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R24C7")
s1.Cells(c + 3, "t") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R24C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R24C12")



170 c = c + 1

s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

171



'18 - DÖNGÜ ----------------------------------------------------------------------------------------------OK
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R25C3") <= 0 Then GoTo 181
s1.Cells(c + 3, "o") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R25C3")
s1.Cells(c + 3, "p") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R25C4")
s1.Cells(c + 3, "q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R25C5")
s1.Cells(c + 3, "r") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R25C6")
s1.Cells(c + 3, "s") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R25C7")
s1.Cells(c + 3, "t") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R25C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R25C12")



180 c = c + 1

s1.Hyperlinks.Add Anchor:=Cells(c + 2, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name
s1.Cells(c + 2, "e") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C3") ' KURUM
s1.Cells(c + 2, "g") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R2C11") ' ŞEHİR
s1.Cells(c + 2, "h") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C3") ' İHALE ŞEKLİ
s1.Cells(c + 2, "ı") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R3C10") ' İHALE TÜRÜ
s1.Cells(c + 2, "j") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R4C4") ' FİRMA
s1.Cells(c + 2, "k") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C10") ' TUTAR
s1.Cells(c + 2, "l") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C9") ' ŞARTNAME
s1.Cells(c + 2, "m") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R5C11") ' KIYAS
s1.Cells(c + 2, "n") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R43C8") ' MUKAYESE TARİHİ

181

s1.Hyperlinks.Add Anchor:=Cells(c + 3, "f"), Address:=yol & Dosya.Name, TextToDisplay:=Dosya.Name

s1.Cells(c + 2, "v") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C4")
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C4") <= 0 Then GoTo 500
s1.Cells(c + 2, "v") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R26C4")
c = c + 0



500

Next



End Sub
 
Merhaba,

Biran mesajınızın sonu gelmeyecek zannettim.

Size tavsiyem ardışık giden satırlarınız için döngü kullanmanız. Bu şekilde daha anlaşılır ve sade kodlar elde edebilirsiniz. Forumda Excel4Macro ile döngülü örnekler bulunmaktadır. İncelemenizi öneririm.
 
Sayın Estaban ne yaptınız böyle.:D
Böylesine kodlamayı daha ilk kez gördüm.:D:D
 
Sayın Korhan Ayhan ve Orion1,

Excel konusunda ne öğrendiysem bu site vasıtası ile öğrendim. Öncelikle siteye emek veren büyük küçük herkese teşekkür ederim.

Site içersinde bakmadığım örnek kalmadı sayılır. ADO uygulamasını tam çözemedim o yüzden bu şekilde adım adım yapayım dedim. Ancak bu sefer de satır yetmedi sanırım.

ExecuteExcel4Macro ile nasıl bir dönğü kurabilirim. veya daha hızlı bir yapı var mı?

Teşekkür ederim.
 
Merhaba,

Veri aktarımı yapılacak dosyalarınızın küçük bir örneğini eklerseniz yardım almanız kolaylaşacaktır. Anladığım kadarıyla çok sütunlu bir datanız var. Sütun bilgilerinide detaylı açıklarsanız yardımcı olmak isteyen arkadaşlarımızı yönlendirmiş olursunuz.
 
Dosya boyutu fazla olduğu için yükleyemiyorum. Ancak aşağıdaki R1C1 kısmı sayaca nasıl bağlanabilir? Yani R1C1 - R2C1 - R3C1 - R4C1 veya R1C1 - R1C2 - R1C3 - R1C4 Row veya column kısmı sayaça bağlanabilir mi?



s1.Cells(c + 3, "o") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R25C3")
s1.Cells(c + 3, "p") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R25C4")
s1.Cells(c + 3, "q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R25C5")
s1.Cells(c + 3, "r") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R25C6")
s1.Cells(c + 3, "s") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R25C7")
s1.Cells(c + 3, "t") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R25C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R25C12")
 
Sorulan soru için kod bulunmuştur.

İLAN BİLGİSİ'!R" & x & "C3")
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst