7 ayrı sayfayı tek sayfada toplama yardım

[canerrrrrr]

arkadaslar
7 subenın verılerını tek sayfada bırllestırmem ıcın yardımlarınız beklıorum

ıyı calısmalar

 

[Merhum İdris SERDAR]

http://www.excel.web.tr/attachment.php?attachmentid=7442&d=1165934896

Buradaki uygulamayı inceleyin.

.

 

[muygun]

Slm.
Syn yurttaş konuyla ilgili link'e sizi yönlendirmiş ama örnek olması açısından işlevlerle birleştirme örneği.
Açıklama :
Şube verileriniz aynı formatta ise bir excel tablosunda bunları birleştirin (yada ilgili sayfalara yapıştırın)
Not: Tablo boyutunu artırdığı için örnek sayfalarınızdan boş satırları sildim.
İyi çalışmalar.

 

[canerrrrrr]

sayın muygun

tesekkur ederim ilgin için
fakat bütün subelerin sayfaları farklı bir klasörde ve farklı excel sayfaları altınad.... her subenin excel saydası farklı ... sizinki cok güzel ama aynı pencere altında...

farklı sayfaları nasıl genel siparişe entegre edebilirim ?

 

[basaran20]

bu linkleri indiremiyorum..

 

[Necdet]

Merhaba,

Bu konuda çok örnek var, makrolu bir örnek de ben ekleyim.

Sub SayfalariBirlestir()
Dim SayfaNo As Integer, Kolon As Integer
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Hepsi")
Application.ScreenUpdating = False
s1.Select
Kolon = [IV1].End(1).Column
Range(Cells(2, "A"), Cells(65536, Kolon)).ClearContents
For SayfaNo = 1 To Sheets.Count
    If Sheets(SayfaNo).Name <> "Hepsi" Then
        Set s2 = Sheets(SayfaNo)
        s2.Select
        Range(Cells(2, "A"), Cells([A65536].End(3).Row, Kolon)).Copy s1.Range("A" & s1.[A65536].End(3).Row + 1)
    End If
Next SayfaNo
s1.Select
Application.ScreenUpdating = True
MsgBox "Sayfalar Birleştirilmiştir", vbInformation, "[URL="http://www.ewcel.web.tr/"]www.ewcel.web.tr[/URL]"
End Sub