Sayfalardaki Verileri Birleştirmek

Conqueror20 · 28 Ağustos 2013

İyi Akşamlar,
Ekteki dosyayla günlerdir uğraşıyorum. Sayfalardaki verileri birleştirmeyle ilgili forumlardaki Vba kodlarını falan hep denedim ama bir türlü başaramadım. Ekteki dosyada SYF1-SYF2-SYF3-SYF4-SYF5 isimli 5 dosya var. bu dosyalar maksimum 31 tane olacak. Çünkü günlük kasa olacağı için ay sonuna kadar olacak. Bu sayfalardaki verileri rapor sayfasına aktarmak istiyorum. Yalnız her sayfada TL,USD ve EURO ayrı ayrı ama Rapor sayfasında tek olacak. Sayfalardaki satır sayıları değişmeyecek sabit kalacak. Lütfen arkadaşlar Allah rızası için yardımcı olun. Günlerdir uğraşıyorum ama bir türlü başaramadım.

SEMAY77 · 28 Ağustos 2013

Merhaba Conqueror20,
Rapor sayfasında TL,USD ve EURO tek olacak diyorsun.Diğerleri gibi sayfa bölünmeyecek,fakat TL,USD ve EURO'dan 3'er 5'er adetmi olacak.Yani SYF1'den başlayarak bütün değerler Rapor sayfasına atacakmı?31 sayfada toplam 62 veri varsa, Rapor sayfasındada bu verilerin aynılarımı olacak?
Bilgi verirsen yarına yardımcı olabilirim.

İyi geceler!

muygun · 28 Ağustos 2013

Merhaba;
Eki deneyin.
İyi çalışmalar.

Conqueror20 · 28 Ağustos 2013

Sayın Semay77,
Rapor sayfasında TL,Usd,Euro olarak ayırmasına gerek yok. Karışık olarak alabilir. Verileri alırken SYF1 den başlayarak tüm sayfalardaki verileri alacak. Mesela SYF1 de 10 adet TL sütununda veri var. 5 adet USD sütununda veri var, SYF2 de ise 5 adet Euro sütununda veri var diyelim. Rapor sayfasına alt alta 20 satır veri alacak

Conqueror20 · 5 Eylül 2013

Sayın üstadlarım,
Yardımlarınızla excel dosyası içerisindeki sayfaları "rapor" sayfasında birleştirme sorunum çözüldü. Ekte aynı özelliklerde 4 adet excel dosyası var. Bu excel dosyalarındaki sadece "rapor" sayfalarındaki verileri nasıl yeni bir excel dosyasında toplayabilirim yardımcı olur musunuz

Orion1 · 5 Eylül 2013

Dosyanız ektedir.

Kod:

Sub rapor59()
Dim sat As Long, i As Long, dosya As String
Dim conn As Object, rs As Object, klasor As String
Sheets("RAPOR").Select
Range("A3:K" & Rows.Count).ClearContents
Set conn = CreateObject("ADODB.CONNECTION")
Set rs = CreateObject("ADODB.RECORDSET")
klasor = "RAPORLAR"
yol = ThisWorkbook.Path & "\" & klasor & "\"
dosya = Dir(yol & "*.xls")
Application.ScreenUpdating = False
Do While dosya <> ""
    conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & yol & dosya & ";extended properties=""excel 8.0;hdr=no;imex=1"""
    rs.Open "select * from [Rapor$A3:K" & Rows.Count & "];", conn, 1, 1
    sata = Cells(Rows.Count, "A").End(xlUp).Row + 1
    satg = Cells(Rows.Count, "G").End(xlUp).Row + 1
    If sata > satg Then
        sat = sata
        Else: sat = satg
    End If
    If rs.RecordCount > 0 Then Range("A" & sat).CopyFromRecordset rs
    rs.Close: conn.Close
    dosya = Dir
Loop
Set rs = Nothing
Set conn = Nothing
Application.ScreenUpdating = True
MsgBox "aktarım bitmiştir." & vbLf & "evrengizlen@hotmail.com", vbInformation
End Sub

Conqueror20 · 6 Eylül 2013

yardımınız için teşekkürler. Gelen ödemedeki veri miktarı ile giden ödemedeki veri miktarı eşit olmadığı için arada boşluklar kalmış. Bunları nasıl önleyebiliriz.

Orion1 · 6 Eylül 2013

Conqueror20' Alıntı:
yardımınız için teşekkürler. Gelen ödemedeki veri miktarı ile giden ödemedeki veri miktarı eşit olmadığı için arada boşluklar kalmış. Bunları nasıl önleyebiliriz.

Dosyanız ektedir.

Kod:

Sub rapor59()
Dim sat As Long, i As Long, dosya As String
Dim conn As Object, rs As Object, klasor As String
Sheets("RAPOR").Select
Range("A3:K" & Rows.Count).ClearContents
Set conn = CreateObject("ADODB.CONNECTION")
Set rs = CreateObject("ADODB.RECORDSET")
klasor = "RAPORLAR"
yol = ThisWorkbook.Path & "\" & klasor & "\"
dosya = Dir(yol & "*.xls")
Application.ScreenUpdating = False
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & yol & dosya & ";extended properties=""excel 8.0;hdr=no;imex=1"""
Do While dosya <> ""
    rs.Open "select * from [Rapor$A3:E" & Rows.Count & "];", conn, 1, 1
    sat = Cells(Rows.Count, "A").End(xlUp).Row + 1
    If rs.RecordCount > 0 Then Range("A" & sat).CopyFromRecordset rs
    rs.Close
    rs.Open "select * from [Rapor$G3:K" & Rows.Count & "];", conn, 1, 1
    sat = Cells(Rows.Count, "G").End(xlUp).Row + 1
    If rs.RecordCount > 0 Then Range("G" & sat).CopyFromRecordset rs
    rs.Close
    dosya = Dir
Loop
conn.Close
Set rs = Nothing
Set conn = Nothing
Application.ScreenUpdating = True
MsgBox "aktarım bitmiştir." & vbLf & "evrengizlen@hotmail.com", vbInformation
End Sub

Conqueror20 · 6 Eylül 2013

yardımlarınız için çok teşekkürler sayın orion1

Orion1 · 6 Eylül 2013

Conqueror20' Alıntı:
yardımlarınız için çok teşekkürler sayın orion1

Rica ederim.
Kolay gelsin.

Conqueror20 · 6 Eylül 2013

Sayın Orion1,
Sanırım bu hazırladığınız formül sadece excel 2003 te çalışıyor. Ben birleştirilen raporları pivot tabloda düzenlemek istiyorum ama dilimleyici eklememe izin vermiyor. Formatı excel 2007 e çeviriyorum bu sefer kodlar hata veriyor. Bu konu hakkında nasıl bir yol izlicem.

Orion1 · 6 Eylül 2013

Conqueror20' Alıntı:
Sayın Orion1,
Sanırım bu hazırladığınız formül sadece excel 2003 te çalışıyor. Ben birleştirilen raporları pivot tabloda düzenlemek istiyorum ama dilimleyici eklememe izin vermiyor. Formatı excel 2007 e çeviriyorum bu sefer kodlar hata veriyor. Bu konu hakkında nasıl bir yol izlicem.

Verileri aldığımız dosyalarda 2007 mi?
ben rapor59 dosyasını 2007 formatı yaptım.raporlar içindeki dosyalarıda excel 2003 yaptım.Dosyanız ektedir.

Kod:

Sub rapor59()
Dim sat As Long, i As Long, dosya As String
Dim conn As Object, rs As Object, klasor As String
Sheets("RAPOR").Select
Range("A3:K" & Rows.Count).ClearContents
Set conn = CreateObject("ADODB.CONNECTION")
Set rs = CreateObject("ADODB.RECORDSET")
klasor = "RAPORLAR"
yol = ThisWorkbook.Path & "\" & klasor & "\"
dosya = Dir(yol & "*.xls")
Application.ScreenUpdating = False
conn.Open "provider=microsoft.ACE.oledb.12.0;data source=" & yol & dosya & ";extended properties=""excel 12.0;hdr=no;imex=1"""
Do While dosya <> ""
    rs.Open "select * from [Rapor$A3:E65536];", conn, 1, 1
    sat = Cells(Rows.Count, "A").End(xlUp).Row + 1
    If rs.RecordCount > 0 Then Range("A" & sat).CopyFromRecordset rs
    rs.Close
    rs.Open "select * from [Rapor$G3:K65536];", conn, 1, 1
    sat = Cells(Rows.Count, "G").End(xlUp).Row + 1
    If rs.RecordCount > 0 Then Range("G" & sat).CopyFromRecordset rs
    rs.Close
    dosya = Dir
Loop
conn.Close
Set rs = Nothing
Set conn = Nothing
Application.ScreenUpdating = True
MsgBox "aktarım bitmiştir." & vbLf & "evrengizlen@hotmail.com", vbInformation
End Sub

Conqueror20 · 6 Eylül 2013

raporların hepsi 2007

Conqueror20 · 6 Eylül 2013

raporların içindeki dosyayıda 2007 yapmak için ne yapmam lazım

Orion1 · 6 Eylül 2013

Conqueror20' Alıntı:
raporların içindeki dosyayıda 2007 yapmak için ne yapmam lazım

dosyanız ektedir.

Kod:

Sub rapor59()
Dim sat As Long, i As Long, dosya As String
Dim conn As Object, rs As Object, klasor As String
Sheets("RAPOR").Select
Range("A3:K" & Rows.Count).ClearContents
Set conn = CreateObject("ADODB.CONNECTION")
Set rs = CreateObject("ADODB.RECORDSET")
klasor = "RAPORLAR"
yol = ThisWorkbook.Path & "\" & klasor & "\"
dosya = Dir(yol & "*.xlsm")
Application.ScreenUpdating = False
Do While dosya <> ""
    conn.Open "provider=microsoft.ACE.oledb.12.0;data source=" & yol & dosya & ";extended properties=""excel 12.0;hdr=no;imex=1"""
    rs.Open "select * from [Rapor$A3:E" & Rows.Count & "];", conn, 1, 1
    sat = Cells(Rows.Count, "A").End(xlUp).Row + 1
    If rs.RecordCount > 0 Then Range("A" & sat).CopyFromRecordset rs
    rs.Close
    rs.Open "select * from [Rapor$G3:K" & Rows.Count & "];", conn, 1, 1
    sat = Cells(Rows.Count, "G").End(xlUp).Row + 1
    If rs.RecordCount > 0 Then Range("G" & sat).CopyFromRecordset rs
    rs.Close
    conn.Close
    dosya = Dir
Loop
Set rs = Nothing
Set conn = Nothing
Application.ScreenUpdating = True
MsgBox "aktarım bitmiştir." & vbLf & "evrengizlen@hotmail.com", vbInformation
End Sub

Conqueror20 · 7 Eylül 2013

Sayın Orion1,
raporlar klasöründe Kitap_1, kitap_2, kitap_3,kitap_4 e sırasıyla veri girdim ve ne yazıkki sadece kitap_1 e girdiğim veriyi 4 defa aktardı ama diğer dosyalardaki verileri almadı.

Orion1 · 7 Eylül 2013

Conqueror20' Alıntı:
Sayın Orion1,
raporlar klasöründe Kitap_1, kitap_2, kitap_3,kitap_4 e sırasıyla veri girdim ve ne yazıkki sadece kitap_1 e girdiğim veriyi 4 defa aktardı ama diğer dosyalardaki verileri almadı.

sadece xlsm uzantılı dosyalardan veri alıyor.(makrolu 2007 dosyalarını alıyor)
Benim yolladığım dosyalarda çalışıyordu.

Orion1 · 7 Eylül 2013

Conqueror20' Alıntı:
Sayın Orion1,
raporlar klasöründe Kitap_1, kitap_2, kitap_3,kitap_4 e sırasıyla veri girdim ve ne yazıkki sadece kitap_1 e girdiğim veriyi 4 defa aktardı ama diğer dosyalardaki verileri almadı.

15 nolu mesajda dosyayı güncelledim.Şimdi alıyor.

Conqueror20 · 7 Eylül 2013

Teşekkürler Sayın Orion1,
Sizede çok zahmet verdim. Hakkınızı helal edin

Orion1 · 7 Eylül 2013

Conqueror20' Alıntı:
Teşekkürler Sayın Orion1,
Sizede çok zahmet verdim. Hakkınızı helal edin

Rica ederim.
Kolay gelsin.

Sayfalardaki Verileri Birleştirmek

Conqueror20

Ekli dosyalar

SEMAY77

muygun

Özel Üye

Ekli dosyalar

Conqueror20

Conqueror20

Ekli dosyalar

Orion1

Uzman

Ekli dosyalar

Conqueror20

Orion1

Uzman

Ekli dosyalar

Conqueror20

Orion1

Uzman

Conqueror20

Orion1

Uzman

Ekli dosyalar

Conqueror20

Conqueror20

Orion1

Uzman

Ekli dosyalar

Conqueror20

Orion1

Uzman

Orion1

Uzman

Conqueror20

Orion1

Uzman