Kitaplar arası veri paylaşımı veri çekimi

[Esteban34]

Kullandığım makro şu şekilde;

Sub verilerial()
Application.ScreenUpdating = False
yol = "C:\MEd\BİLGİLER\GENEL\2012\"
Set s1 = Sheets("DATA")
Set nesne = CreateObject("Scripting.FileSystemObject")
s1.Hyperlinks.Delete

For Each Dosya In nesne.getfolder(yol).Files
kk = 1
xx = 7
zz = 0
c = c + 1
61 zz = zz + 1

xx = xx + 1
kk = kk + 3


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


On Error Resume Next


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

s1.Cells(c + 3, "o") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R" & xx & "C3")
s1.Cells(c + 3, "P") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R" & xx & "C4")
s1.Cells(c + 3, "q") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R" & xx & "C5")
s1.Cells(c + 3, "r") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R" & xx & "C6")
s1.Cells(c + 3, "s") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R" & xx & "C7")
s1.Cells(c + 3, "ck") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R" & xx & "C10")
s1.Cells(c + 3, "u") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R" & xx & "C12")



If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C7") <= 0 Then GoTo 10 '------4
s1.Cells(c + 3, "Y") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C7") '------4
s1.Cells(c + 3, "Z") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C7") '------5
s1.Cells(c + 3, "AA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C7") '------6

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C8") <= 0 Then GoTo 10
s1.Cells(c + 3, "AB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C8")
s1.Cells(c + 3, "AC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C8")
s1.Cells(c + 3, "AD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C8")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C9") <= 0 Then GoTo 10
s1.Cells(c + 3, "AE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C9")
s1.Cells(c + 3, "AF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C9")
s1.Cells(c + 3, "AG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C9")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C10") <= 0 Then GoTo 10
s1.Cells(c + 3, "AH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C10")
s1.Cells(c + 3, "AI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C10")
s1.Cells(c + 3, "AJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C10")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C11") <= 0 Then GoTo 10
s1.Cells(c + 3, "AK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C11")
s1.Cells(c + 3, "AL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C11")
s1.Cells(c + 3, "AM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C11")







If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C12") <= 0 Then GoTo 10
s1.Cells(c + 3, "AN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C12")
s1.Cells(c + 3, "AO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C12")
s1.Cells(c + 3, "AP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C12")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C13") <= 0 Then GoTo 10
s1.Cells(c + 3, "AQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C13")
s1.Cells(c + 3, "AR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C13")
s1.Cells(c + 3, "AS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C13")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C14") <= 0 Then GoTo 10
s1.Cells(c + 3, "AT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C14")
s1.Cells(c + 3, "AU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C14")
s1.Cells(c + 3, "AV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C14")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C15") <= 0 Then GoTo 10
s1.Cells(c + 3, "AW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C15")
s1.Cells(c + 3, "AX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C15")
s1.Cells(c + 3, "AY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C15")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C16") <= 0 Then GoTo 10
s1.Cells(c + 3, "AZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C16")
s1.Cells(c + 3, "BA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C16")
s1.Cells(c + 3, "BB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C16")





If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C17") <= 0 Then GoTo 10
s1.Cells(c + 3, "BC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C17")
s1.Cells(c + 3, "BD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C17")
s1.Cells(c + 3, "BE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C17")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C18") <= 0 Then GoTo 10
s1.Cells(c + 3, "BF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C18")
s1.Cells(c + 3, "BG") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C18")
s1.Cells(c + 3, "BH") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C18")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C19") <= 0 Then GoTo 10
s1.Cells(c + 3, "BI") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C19")
s1.Cells(c + 3, "BJ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C19")
s1.Cells(c + 3, "BK") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C19")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C20") <= 0 Then GoTo 10
s1.Cells(c + 3, "BL") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C20")
s1.Cells(c + 3, "BM") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C20")
s1.Cells(c + 3, "BN") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C20")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C21") <= 0 Then GoTo 10
s1.Cells(c + 3, "BO") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C21")
s1.Cells(c + 3, "BP") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C21")
s1.Cells(c + 3, "BQ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C21")





If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C22") <= 0 Then GoTo 10
s1.Cells(c + 3, "BR") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C22")
s1.Cells(c + 3, "BS") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C22")
s1.Cells(c + 3, "BT") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C22")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C23") <= 0 Then GoTo 10
s1.Cells(c + 3, "BU") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C23")
s1.Cells(c + 3, "BV") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C23")
s1.Cells(c + 3, "BW") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C23")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C24") <= 0 Then GoTo 10
s1.Cells(c + 3, "BX") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C24")
s1.Cells(c + 3, "BY") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C24")
s1.Cells(c + 3, "BZ") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C24")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C25") <= 0 Then GoTo 10
s1.Cells(c + 3, "CA") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C25")
s1.Cells(c + 3, "CB") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C25")
s1.Cells(c + 3, "CC") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C25")

If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C26") <= 0 Then GoTo 10
s1.Cells(c + 3, "CD") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk & "C26")
s1.Cells(c + 3, "CE") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 1 & "C26")
s1.Cells(c + 3, "CF") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]KIYAS'!R" & kk + 2 & "C26")
















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.Hyperlinks.Add Anchor:=Cells(c + 2, "e"), 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İ
s1.Cells(c + 2, "cg") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R996C7") ' TARİHİ


If zz <= 17 Then GoTo 61
11

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İ'!R" & kk + 22 & "C4")
If ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R" & kk + 22 & "C4") <= 0 Then GoTo 500
s1.Cells(c + 2, "v") = ExecuteExcel4Macro("'" & yol & "[" & Dosya.Name & "]İLAN BİLGİSİ'!R" & kk + 22 & "C4")
c = c - 1

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


Next


Range("E4:E10000").Select
Selection.Font.Underline = xlUnderlineStyleNone

Selection.Font.ColorIndex = xlAutomatic
Selection.TintAndShade = 0





Range("A4:CU10000").Select
ActiveWorkbook.Worksheets("DATA").ListObjects("Tablo26").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("DATA").ListObjects("Tablo26").Sort.SortFields.Add _
Key:=Range("C4:C10000"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortTextAsNumbers
'DataOption:=xlSortNormal


ActiveWorkbook.Worksheets("DATA").ListObjects("Tablo26").Sort.SortFields.Add _
Key:=Range("F4:F10000"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("DATA").ListObjects("Tablo26").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("D3").Select

End Sub

 

[Orion1]

Üstat uygulaman çok hızlı bu konuda makro ile yaklaşık 900 dosyadan herbirisinden yerleri aynı olacak şekilde 90 a yakın veri çekiyorum. ancak süre çok uzun oluyor. Bazen 15 dk yı bile buluyor.
Bu konuda yardımın olabilir mi.*


Excel vt yerleşimi ne demek?

Yeni bir konu açarak sorunuzu orada sorabilirsiniz.
bir klaç örnek dosya ile esas dosyayıda sıkıştırrarak ekleyiniz açacağınız konuya.
Siz excel4 makro ile almışsınız verileri.

 

[Esteban34]

Yeni bir konu açarak sorunuzu orada sorabilirsiniz.
bir klaç örnek dosya ile esas dosyayıda sıkıştırrarak ekleyiniz açacağınız konuya.
Siz excel4 makro ile almışsınız verileri.

Excel ile ilgili herşeyi bu forumdan öğrendim. Emeği geçen bütün saygıdeğer hocalarıma teşekkür ederim.

Makro4 ile alıyorum ancak çok uzun sürüyor dataları almak. Örnek dosyayı kısaltarak yüklüyorum. ADO ile alabilme imkanımız varmıdır

http://199.91.152.200/xp49l70wk1lg/zq1q6ise9wn1zz1/PROTATİP.zip

 

[Esteban34]

Bu konuda yardım edebilecek var mıdır?

 

[Esteban34]

Sayın Orion1,

Forum da incelediğim ADO çalışmalarınızı hayranlıkla inceledim. Hız bakımından makro4 e göre ciddi fark yaratıyor.
Alt yapı oluşturmak için ADO ile yukarıda örneğini sunduğum mantıkta bir klasör içersinde birden fazla dosyadan veri çekme konusunda paylaşımlarınızı umut ile bekliyoruz. Saygılarımı sunarım.

 

[Esteban34]

Günceldir.

 

[m.ensar]

Dosyanız ektedir.

Sub veri_al_ado_59()
'TOOLS referenceden microsoft data object activeX 2.x Library seçildi.
'Coder : evrengizlen@hotmail.com
'29.12.2011
Dim conn  As ADODB.Connection, rs As ADODB.Recordset
Application.ScreenUpdating = False
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
ThisWorkbook.Activate
Range("A2:I" & Rows.Count).ClearContents
conn.Open "Provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\PERSONEL VERI.xls;extended properties=""excel 8.0;hdr=no;imex=1"";"
rs.Open "select * from [Sayfa1$A2:I65536];", conn, adOpenKeyset, adLockReadOnly
Range("A2").CopyFromRecordset rs
rs.Close: conn.Close
Set rs = Nothing: Set conn = Nothing
Application.ScreenUpdating = True
MsgBox "Veriler Alındı." & vbLf & "evrengizlen@hotmail.com"
End Sub

Üstadlar Evren bey in emeğine sağlık böyle bir çalışma hazırlamış. bu çalışmayı aynı klasör içinde bulunan aynı formattaki bir kaç çalışma kitabını birleştirmek için uyarlamak mümkün mü?Bu çalışma kitaplarının da her sayfası ayrı ayrı birleştirilebilir mi? 1. kitapta 3 sayfa 2. kitapta 3 sayfa gibi sayfa ve kitap formatları birebir aynı

 

[ÖmerFaruk]

Üstadlar Evren bey in emeğine sağlık böyle bir çalışma hazırlamış. bu çalışmayı aynı klasör içinde bulunan aynı formattaki bir kaç çalışma kitabını birleştirmek için uyarlamak mümkün mü?Bu çalışma kitaplarının da her sayfası ayrı ayrı birleştirilebilir mi? 1. kitapta 3 sayfa 2. kitapta 3 sayfa gibi sayfa ve kitap formatları birebir aynı

Sorunuzun cevabı evet.
Çözümü soruyorsanız dosyanızı paylaşmalısınız.
Benzer bir çok konu aslında forumda var. Bire bir sorunuzun karşılığı olmasa bile forumda daha önce çözülmüş soruları derleyerek çözüm bulabilirsiniz.
Ama hiç ADO kullanmadım diyorsanız dediğim gibi dosyanızı paylaşıp Yeni bir başlık altında sorunuzu sorabilrisiniz.

 

[m.ensar]

hocam ilginize teşekkür ederim benzer bir çok konunun olduğunu araştırdım baktım ve hatta bir iki tanesini kullanıyorum. bunu özellikle sormam çok hızlı olması belki dosyaların verilerin azlığından da kaynaklanıyor olabilir. hali hazırda kullandığım yine buradan aldığım verilerle oluşturduğum bir dosyayı ekliyorum. bu eklediğim dosya da sorunum şu 7 çalışma kitabından sadece 1' ini alıyor 4 çalışma kitabı var iken bu sorunu yapmıyordu çalışma kitaplarının boyutu 5,5 mb civarında olduğundan (sadeleştirilmiş hali) buraya ekleyemedim

 

[m.ensar]

Bu çalışma da Numan ŞAMİL hocamın eseri aynı zamanda