farklı sayfaalrdaki verileri tek sayfaya getirme

[safak021]

arkadaşlar dört farklı sayfada yer alan miktalararın ürün numarasına göre en sondaki icmal sayfasına getirmek istiyorum.
destekleriniz için teşekkür ederim..

 

[muygun]

Merhaba;
Sorununuz aşağıdaki adreste çözülmedi mi?
http://www.excel.web.tr/showthread.php?t=88779
Aynı soruyu tekrar açmak yerine ilk sorduğunuz yerde eksik kalan kısmını belirtirseniz farklı çözümlere ulaşırsınız. Böylece sitede aynı soru ve aynı tablo biçimli gereksiz bilgi yoğunluğuna sebep olmamış olursunuz.
İyi çalışmalar.

 

[unreal_avci]

islemin tersini yapmayi deneyin. ana sayfada butun bilgileri yazin.
daha sonra sayfalarin ayri olmasi gerekiyorsa sayfalara dagitabilirsiniz.
bu sekilde butun verileri tek sayfada gorunur ve islemler tek sayfadan yapilir.

dosyayi atacaktim fakat gelismis modda cevap yazamadim. teksayfa yapilirsa satirdaki bilgiler sirayla su sekilde olur.
Ürün No-Ürün-Birim-ALIS Miktar-SATIS Miktar-İade Miktar-ARAC STOK Sağlam Stok-ARAC STOK Iskarta Stok-DEPO Sğl.Stok-DEPO ısk.Stok

 

[Orion1]

Alternatif vba kod ile yapıldı.

Sub aktar_59()
Dim sat1 As Long, sat2 As Long, sat3 As Long, sat4 As Long, sat5 As Long, i As Long
Sheets("İCMAL").Select
Range("B2:E65536").ClearContents
Application.ScreenUpdating = False
If Sheets("ALIŞ").AutoFilterMode = True Then Sheets("ALIŞ").AutoFilterMode = False
If Sheets("SATIŞ").AutoFilterMode = True Then Sheets("SATIŞ").AutoFilterMode = False
If Sheets("ARAÇ STOK").AutoFilterMode = True Then Sheets("ARAÇ STOK").AutoFilterMode = False
If Sheets("DEPO STOK").AutoFilterMode = True Then Sheets("DEPO STOK").AutoFilterMode = False
sat1 = Sheets("ALIŞ").Cells(65536, "A").End(xlUp).Row
sat2 = Sheets("SATIŞ").Cells(65536, "A").End(xlUp).Row
sat3 = Sheets("ARAÇ STOK").Cells(65536, "A").End(xlUp).Row
sat4 = Sheets("DEPO STOK").Cells(65536, "A").End(xlUp).Row
sat5 = Cells(65536, "A").End(xlUp).Row
For i = 2 To sat5
    Cells(i, "B").Value = WorksheetFunction.SumIf(Sheets("ALIŞ") _
    .Range("A2:A" & sat1), Cells(i, "A").Value, Sheets("ALIŞ").Range("C2:C" & sat1))
    
    Cells(i, "C").Value = WorksheetFunction.SumIf(Sheets("SATIŞ") _
    .Range("A2:A" & sat1), Cells(i, "A").Value, Sheets("SATIŞ").Range("C2:C" & sat1))
    
    Cells(i, "D").Value = WorksheetFunction.SumIf(Sheets("ARAÇ STOK") _
    .Range("A2:A" & sat1), Cells(i, "A").Value, Sheets("ARAÇ STOK").Range("D2:D" & sat1))
    
    Cells(i, "E").Value = WorksheetFunction.SumIf(Sheets("DEPO STOK") _
    .Range("A2:A" & sat1), Cells(i, "A").Value, Sheets("DEPO STOK").Range("D2:D" & sat1))
Next
Sheets("ALIŞ").Range("A1").AutoFilter
Sheets("SATIŞ").Range("A1").AutoFilter
Sheets("ARAÇ STOK").Range("A1").AutoFilter
Sheets("DEPO STOK").Range("A1").AutoFilter
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
    
End Sub