• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru sayfa içerisinde belirli satırları kopyalama

A

Ahmet TUNALI

Katılım
27 Ocak 2005
Mesajlar
88
Excel Vers. ve Dili
Excel 2010 TR
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.
 

Ekli dosyalar

Merhaba,
Aşağıdaki kodu bir modüle yapıştırarak örnek dosyanız üzerinde dener misiniz?
Kod: 
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
 
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.
 
Sayın yangıinci34,
Teşekkürler şidilik sorunsuz çalıştı.
Teşekkürler
Emeğinize sağlık
 
dEdE' Alıntı:
Eeee..... Boşuna dememişler; Örnek dosya ana dosya yapısını bire bir yansıtmalı diye... :)
Genişletmek için tıkla ...
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.
 
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.
 
dEdE' Alıntı:
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.
Genişletmek için tıkla ...
İlginize teşekkür ederim.
İyi çalışmalar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst