Farklı sayfalardaki verileri, tek bir sayfada görebilme

[unozdemir]

Arkadaşlar merhaba,
Ekte bulunan dosyada, 3 sayfada verilerim var, 4. sayfaya bunların tamamını taşımak istiyorum.
Yani 3 ayrı harcama kalemleri olan sayfadaki verileri, kümülatif sayfasına taşıyarak tümünü görebilmek istiyorum.
Yardımcı olursanız sevinirim.

 

[asi_kral]

Kümülatif sayfasında görmek istediğiniz verileri nasıl görmek istiyorsanız örneklendirir misiniz_?
Ayrıca verilerin nereden geldiğini de izah ederseniz yardımcı olabilirim.

 

[Murat OSMA]

Aynı konu tekrar açılmış... Diğer konuda yardımcı olunmaya çalışılıyor.
http://www.excel.web.tr/f50/kumulatif-sayfaya-verileri-toplamak-t115144.html#post627571

 

[unozdemir]

Farklı sayfalardaki verileri, tek bir sayfada görebilme Konuyu Yanıtla

Kümülatif sayfasında görmek istediğiniz verileri nasıl görmek istiyorsanız örneklendirir misiniz_?
Ayrıca verilerin nereden geldiğini de izah ederseniz yardımcı olabilirim.

Merhaba,
A-B-C HARCAMALARINDA BULUNAN, TARİH, HARCAMA AÇIKLAMASI, VE TUTAR BİLGİLERİNİN TAMAMINI KÜMÜLATİF SAYFASINDA GÖRMEK İSTİYORUM.

Ekli dosya da örnek olarak gösterdim.

Yardımcı olabilirseniz sevinirim.

 

[asi_kral]

Merhaba,
A-B-C HARCAMALARINDA BULUNAN, TARİH, HARCAMA AÇIKLAMASI, VE TUTAR BİLGİLERİNİN TAMAMINI KÜMÜLATİF SAYFASINDA GÖRMEK İSTİYORUM.

Ekli dosya da örnek olarak gösterdim.

Yardımcı olabilirseniz sevinirim.

Merhaba
Kodu boş bir module kkopyalayın ve deneyin.

Option Explicit
Sub tek_sayfa_1967()
'Konu       :   Tüm Sayfaları Tek Sayfada Topla
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim asi As Worksheet, kral As Worksheet, _
a As Long, b As Long, c As Long, d As Variant
Application.ScreenUpdating = False
Set kral = Sheets("KÜMÜLATİF")
d = ActiveCell.Address
kral.Range("B4:G" & Rows.Count).ClearContents
For a = 1 To Sheets.Count
If Sheets(a).Name <> "KÜMÜLATİF" Then
Set asi = Sheets(a)
b = asi.Range("B" & Rows.Count).End(xlUp).Row
If b >= 4 Then
asi.Range("B4:G" & b).Copy
c = kral.Range("B" & Rows.Count).End(xlUp).Row
If c < 4 Then c = 3
kral.Range("B" & c + 1).PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End If: End If: Next
Range(d).Select
kral.Range("B4:G" & Rows.Count).Sort key1:=kral.Range("B4"), order1:=xlAscending
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[unozdemir]

Teşekkür ederim asi kral, Allah razı olsun.

 

[asi_kral]

Teşekkür ederim asi kral, Allah razı olsun.

Kolay Gelsin.

 

[Murat OSMA]

Aynı kişi tarafından açılan iki farklı konuda da cevap veriliyor. Böyle olmaması gerek..