Soru sayfa içerisinde belirli satırları kopyalama

[Ahmet TUNALI]

Dosya içerisinde 50 sayfam da sütunları sabit satırları farklı tablolarım var.
Birinci sorum her sayfadaki tabloyu alt alta bir sayfaya kopyalayabilrmiyim. (makro ile)
ikinci sorum her sayfada filtreleme yaparak TOPLAM SULANAN ALAN (Da) satırını ve değeri alt alta toplayabilirmiyim(makro ile )
Umarım örnekte biraz daha açıklayıcı olmuştur.

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırarak örnek dosyanız üzerinde dener misiniz?

Sub Test()
Set s1 = Sheets("toplam alan")
Set s2 = Sheets("tablolar")
Sat1 = 2
s1.Cells.ClearContents
s2.Cells.ClearContents
For i = 2 To Sheets.Count - 1
    ss = s2.Cells(Rows.Count, "A").End(3).Row + 1
    If ss = 2 Then ss = 1
    Sheets("Sayfa" & i).UsedRange.Copy s2.Cells(ss, 1)
Next i

Bul = "TOPLAM SULANAN ALAN (Da)"
    Set Aranan = s2.Cells.Find(Bul, , xlValues, xlWhole)
    If Not Aranan Is Nothing Then
        adres = Aranan.Address
        Do
            s1.Range("A" & Sat1 & ":G" & Sat1) = s2.Range("A" & Aranan.Row & ":G" & Aranan.Row).Value
            Sat1 = Sat1 + 1
            Set Aranan = s2.Cells.FindNext(Aranan)
        Loop While Not Aranan Is Nothing And Aranan.Address <> adres
    End If
s1.Range("E" & Sat1) = WorksheetFunction.Sum(s1.Range("E2:E" & Sat1 - 1))
End Sub

 

[Ahmet TUNALI]

Sayın dEdE,
İlginize çok teşekkür ediyorum.
örnek dosyada uyguladım istediğim sonuçları veriyor.
Emeğinize sağlık,
Herşey gönlünüzce olsun.

 

[Ahmet TUNALI]

Sayın dEdE,
İlginize çok teşekkür ediyorum.
örnek dosyada uyguladım istediğim sonuçları veriyor.
Emeğinize sağlık,
Herşey gönlünüzce olsun.

ana dosyamda sayfa isimleri Table 1 Table 2
Sheets("Table" & i).UsedRange.Copy s2.Cells(ss, 1) hatası verdi

 

[yanginci34]

Alternatif olarak denermisiniz.

 

[Ahmet TUNALI]

Sayın yangıinci34,
Teşekkürler şidilik sorunsuz çalıştı.
Teşekkürler
Emeğinize sağlık

 

[yanginci34]

Sayın yangıinci34,
Teşekkürler şidilik sorunsuz çalıştı.
Teşekkürler
Emeğinize sağlık

Rica ederim kolay gelsin

 

[dEdE]

ana dosyamda sayfa isimleri Table 1 Table 2
Sheets("Table" & i).UsedRange.Copy s2.Cells(ss, 1) hatası verdi

Eeee..... Boşuna dememişler; Örnek dosya ana dosya yapısını bire bir yansıtmalı diye...

 

[Ahmet TUNALI]

Eeee..... Boşuna dememişler; Örnek dosya ana dosya yapısını bire bir yansıtmalı diye...

Nerde hata yaptığımı anlayamadım. Örnek dosya ana dosya yapısının aynısı olursa örnek dosyaya ihtiyaç olmaz. örnek dosyada sadece sayfa ismi farklı idi. Sizin kod da "Sayfa" yı "Table" olarak değiştirerek uyguladım. Bunu polememik olsun diye değil gerçekten hatayı nerde yaptığımı anlamak için soruyorum.
Herşey gönlünüzce olsun.

 

[dEdE]

Merhaba,
Polemik yapmak aklımın ucundan geçmez. Sizi anlıyorum, ama "...Örnek dosya ana dosya yapısının aynısı olursa örnek dosyaya ihtiyaç olmaz. .." sözünüze de katılmıyorum. Örnek dosya, ana dosya yapısının aynısı olur. Veriler aynısı olmayabilir. Örneğin Adı Soyadı yerine xxx... T.C. Kimlik no yerine ya da tel no yerine 123456789 yazılabilir. Gerçek veriler paylaşılmaz.
Gelelim sorununuza, dosya yapısını bilmediğim için tahminde bulunacağım. Kodun 2. ve 3. satırında yer alan "Set ....." ile başlayan satırlardaki tırnak içinde yazılan sayfa adlarının gerçek dosyanızdaki ile aynı olması gerekir. Hatanın buradan kaynaklanabileceğini düşünüyorum.
Hoşça kalın.

 

[Ahmet TUNALI]

Merhaba,
Polemik yapmak aklımın ucundan geçmez. Sizi anlıyorum, ama "...Örnek dosya ana dosya yapısının aynısı olursa örnek dosyaya ihtiyaç olmaz. .." sözünüze de katılmıyorum. Örnek dosya, ana dosya yapısının aynısı olur. Veriler aynısı olmayabilir. Örneğin Adı Soyadı yerine xxx... T.C. Kimlik no yerine ya da tel no yerine 123456789 yazılabilir. Gerçek veriler paylaşılmaz.
Gelelim sorununuza, dosya yapısını bilmediğim için tahminde bulunacağım. Kodun 2. ve 3. satırında yer alan "Set ....." ile başlayan satırlardaki tırnak içinde yazılan sayfa adlarının gerçek dosyanızdaki ile aynı olması gerekir. Hatanın buradan kaynaklanabileceğini düşünüyorum.
Hoşça kalın.

İlginize teşekkür ederim.
İyi çalışmalar.