farklı sayfalardan özet oluşturma

[sulos]

merhaba,

muhasebe gider kayıtlarını tutmak için basit bi çalışma yaptım lakin takıldığım bir yer var. dosyayı ekliyorum. sorunum, 14 adet başlık var ve sonunda özet kısmı var.takıldığım sorun, bu sayfalardan hangisine veri girersem eşanlı olarak özette görecek formülü yapamamam. 1. sayfaya veri girdim daha sonra 2. safyaya 5. sayfaya gibi, bunların özette altalta otamatik gelmesini sağlayacak bi formül. yani özete hiçbir müdahalede bulunulmayacak her şeyi otomatik yapacak şekilde.

yardımcı olursanız sevinirim, teşekkürler.

 

[Necdet]

Merhaba,

Dosya yapınızı aşağıdaki şekilde değiştirseniz olmaz mı?

 

[sulos]

teşekkürler hocam, benim ilk düşündüğümde bu şekildeydi yalnız gider kalemlerinin altbaşlıkları çok olduğu için 14 sayfa açtım altbaşlıklarını daha detaylı görebilmek için. daha doğrusu müdürüm bu şekilde istedi bende verileri aktarma kısmında takıldım. herbir kalemin bir sayfası olacak ve altbaşlıkları net olarak anlaşılabilecek ve bütün bu kalemleri altbaşlıksız özetleyen kısım olacak. yani 770.01.1 iski, 770.01.2 elektrik gibi özet kısmında ise 770.01 olarak görünecek hepsi. yardımcı olabilirseniz sevinirim hocam, ilginiz için sağolun.

 

[Necdet]

Merhaba,

Her sayfaya bilgi giriş yapıldığında Özet sayfasına aktarılmasından ziyade, siz istediğinizde Özet tablosuna aktarılsa olur mu?, Çünkü sonradan yapılacak olan değişikliklerde sorun çıkartabilir, eğer makrolu bir çözüm isterseniz.

 

[sulos]

hocam siz daha iyi bilirsiniz, makroları bilmediğim bişey diyemiyorum. dediğiniz şekilde özet nasıl alınıyor hocam?

 

[Necdet]

Merhaba,

Sizin için basit bir tablo oluşturdum. Sizde bu şablona uyarsanız sanırım istediğiniz olacaktır.

Gider sayfalarında gereksiz hücre birleştirmelerini kaldırdım.

Bilgisayarınızda Makro Güvenlik Düzeyini Orta Düzeye Getiriniz ve dosyayı açtığınızda Makroları Etkinleştiriniz.

Sub OzetOlustur()
Dim i As Long, SonSat As Long
Dim so As Worksheet
Dim Syf As Integer
Set so = Sheets("Özet")
so.Select
Application.ScreenUpdating = False
Range("A2:F65000").ClearContents
For Syf = 2 To Sheets.Count
    i = [A65536].End(3).Row + 1
    SonSat = Sheets(Syf).[A65536].End(3).Row
    If SonSat <> 2 Then Sheets(Syf).Range("A3:F" & SonSat).Copy Range("A" & i)
Next Syf
Application.ScreenUpdating = True
MsgBox "Özet Oluşturulmuştur...", vbOKOnly, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[sulos]

hocam çok sağolun, çalıştıramadım yalnız. 2007 kullanıyorum ondan olabilir mi?

 

[Necdet]

Merhaba,

Microsoft Güvenlik bölümünde özellikle Makrolar kısmını inceleyiniz.