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

Esteban34

Altın Üye
Katılım
27 Haziran 2009
Mesajlar
56
Excel Vers. ve Dili
2003
Altın Üyelik Bitiş Tarihi
01-06-2025
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Ü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

Altın Üye
Katılım
27 Haziran 2009
Mesajlar
56
Excel Vers. ve Dili
2003
Altın Üyelik Bitiş Tarihi
01-06-2025
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

Altın Üye
Katılım
27 Haziran 2009
Mesajlar
56
Excel Vers. ve Dili
2003
Altın Üyelik Bitiş Tarihi
01-06-2025
Bu konuda yardım edebilecek var mıdır?
 

Esteban34

Altın Üye
Katılım
27 Haziran 2009
Mesajlar
56
Excel Vers. ve Dili
2003
Altın Üyelik Bitiş Tarihi
01-06-2025
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.
 

m.ensar

Altın Üye
Katılım
5 Nisan 2016
Mesajlar
348
Excel Vers. ve Dili
office 10 türkçe
Altın Üyelik Bitiş Tarihi
25-10-2025
Dosyanız ektedir.:cool:
Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
Ü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

Altın Üye
Katılım
5 Nisan 2016
Mesajlar
348
Excel Vers. ve Dili
office 10 türkçe
Altın Üyelik Bitiş Tarihi
25-10-2025
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
 

Ekli dosyalar

m.ensar

Altın Üye
Katılım
5 Nisan 2016
Mesajlar
348
Excel Vers. ve Dili
office 10 türkçe
Altın Üyelik Bitiş Tarihi
25-10-2025
Bu çalışma da Numan ŞAMİL hocamın eseri aynı zamanda
 
Üst