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

Katılım
27 Mayıs 2006
Mesajlar
89
Excel Vers. ve Dili
Excel 2000 - Tr
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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)

Kod:
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)

Kod:
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.
 
Katılım
27 Mayıs 2006
Mesajlar
89
Excel Vers. ve Dili
Excel 2000 - Tr
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
2.sorunuz için özet sayfasının kod sayfasındaki kodu aşağıdaki ile değiştirin.

Kod:
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?
 
Katılım
27 Mayıs 2006
Mesajlar
89
Excel Vers. ve Dili
Excel 2000 - Tr
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
 
Üst