ilk sayfadaki rapor, olan ve eklenecek sayfa isimlerini ve..

[even]

Arkadaşlar forumda tarama yaptım benzerini göremedim.

Sorunumun excel halini ekte yolluyorum orda da açık.

Yapmak istediğim, excel sayfamdakilerin özet listesi.

Çalışma kitabında 10-15 sayfada bilgiler var. Bu sayfalara yeni sayfalar ekliyorum..İlk sayfada, diğer 10-15 ve eklenecek olan sayfaların öncelikle
sayfa isimleri, sonra içerik bilgilerini raporlamak.


"veriye göre sayfa oluşturmak ve satırları kopyalamak" başlığındakinin tam olarak olmasa da yapılanın tersi bi anlamda
http://www.excel.web.tr/viewtopic.php?t=10147

Bu işlem işimi diğer arkadaşlar gibi kolaylaşıtıracak yapılırsa

 

[Levent Menteşoğlu]

Sayfa eklediğinizde "özet" isimli sayfada sayfa adının yazılması ve link oluşturulması için aşağıdaki kod kullanılmıştır. (Thisworkbook kod sayfasına)

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Set s1 = Sheets("özet")
sonsat = s1.[c65536].End(3).Row + 1
s1.Cells(sonsat, "c") = ActiveSheet.Name
s1.Cells(sonsat, "c").Hyperlinks.Add Anchor:=s1.Cells(sonsat, "c"), Address:="", SubAddress:=ActiveSheet.Name & "!A1", TextToDisplay:=ActiveSheet.Name
sayfa = ActiveSheet.Name
End Sub

Yeni sayfaya yazılan verilerin "özet" sayfasına aktarılması içinde aşağıdaki kod kullanılmıştır. (Özet sayfasının kod sayfasına)

Private Sub Worksheet_Activate()
sonsat = [c65536].End(3).Row
sayfa = Cells(sonsat, "c")
Set s1 = Sheets(sayfa)
Cells(sonsat, "d") = s1.[a2]
Cells(sonsat, "e") = s1.[b2]
Cells(sonsat, "f") = WorksheetFunction.Sum(s1.Range("c2:c" & s1.[a65536].End(3).Row))
End Sub

Ayrıca birde örnek dosya ekliyorum.

 

[even]

Levent Bey,

Çok sağolun bu istediğim gibi olmuş, pek kimse cevap yazmamış heralde zor bir soruydu.

Yanlız klasik olarak ek sorularım var : Diğer sayfadan bilgi alırken kolon ismine göre alması için hangi değişikliği yapmak gerekir, (Müşteri, Kod kolonu aşağıda veya daha solda olması durumunda)

II. olarak ise, Özet sayfama gene " Tutar" bilgisini aktarırken, Tutar hücresi her sayfada aynı konumda olmuyor. Buna rağmen "define" veya herhangi bir komut yardımıyla Tutar kelimesinin hemen sağ hücresindeki Rakamı öndeki özet sayfaya otomatik taşıtmak mümkün müdür.Farklı hücrede olunca bu haliyle algılamıyor da

Teşekkür ederim

 

[Levent Menteşoğlu]

2.sorunuz için özet sayfasının kod sayfasındaki kodu aşağıdaki ile değiştirin.

Private Sub Worksheet_Activate()
On Error Resume Next
sonsat = [c65536].End(3).Row
sayfa = Cells(sonsat, "c")
Set s1 = Sheets(sayfa)
Cells(sonsat, "d") = s1.[a2]
Cells(sonsat, "e") = s1.[b2]
Cells(sonsat, "f") = s1.Cells.Find("tutar").Next
End Sub

1.sorunuzu anlayamadım. Yani verilerin alınacağı kolonların yerleridemi farklı oluyor?

 

[even]

Levent Bey öncelikle tekrar teşekkürler , evet 1. sorumu anladınız, kolonların yerleri de farklı yerde olabiliyor.

Ayrıca, bu örne xls dosyasında macronuz sorunsuz çalışıyor fakat, başka excel dosyamda kod bölümünde sırasıyla this workbook'a ve özet kısmına da kodları kopyala-yyapıştır yapıyorum, sonra da Kaydet diyorum. orda çalışmadı neden olabilir