ETOPLA Formülü hakkında

[bravia]

Arkadaşlar,

Ekte göndermiş olduğum örneği birebir olarak makrolu yapmak mümkün mü? Ayrıca verileri almış olduğu sayfa2'nin 2.000 satır gibi olması durumunda yazılacak makroyu nasıl etkiler?

Yardımcı olursanız çok sevinirim.

Teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Sayfa2 deki tablonuza ek bir sütun ekleyip ÖZET TABLO kullanmayı düşünmez misiniz? Hem çok hızlı ve pratiktir.

 

[bravia]

Korhan Bey merhaba,

Göndermiş olduğum dosya kapsamlı bir çalışmanın basite indirgenmiş bir örneğidir. Özet tablo maalesef işimi görmeyecek. Makro konusunda yardımcı olursanız sevinirim.

Teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Tablonuza göre x ve y kriterleri neye göre belirlenecek?

 

[bravia]

Korhan Bey,

X,Y satırlarının başlığını ben belirleyeceğim. Örneğin Tamir, Bakım Giderleri diye... Sayfa2 den hangi kalemlerin toplamlarının gelmesini istiyorsam X satırının O,P,Q kolonundaki hücrelerine o kalemlerin kodlarını manuel yazacağım. Örnekte olduğu gibi x satırına aaaa,bbbb,cccc lerin toplamını getirmek istiyorum. sayfa1 ve sayfa2 deki verilerindeki satır sayıları gerçekte bayağı fazla olacak bunun için yazılacak kodunda uzunluğu çok mu olur bilemiyorum? Umarım açıklamam yeterli olmuştur.

Şimdiden çok teşekkür ederim...

 

[bravia]

Tekrar merhaba,

Konu yeteri kadar açık değilse anlaşılmayan noktaları tekrar açıklayabilirim. Yarına bir sunumum var acelemin nedeni ondan lütfen mazur görün.

Teşekkürler, iyi çalışmalar...

 

[bravia]

Arkadaşlar,

Yukarıdaki örneği formüller ile yapamıyorum dosya çok ağır olduğu için inanılmayacak derecede uzun sürüyor. Makro yazımında yardımcı olursanız çok sevinirim.

Teşekkürler, iyi çalışmalar...

 

[usubaykan]

Merhaba

Ekli dosyayı incelermisiniz.

Kullanılan kod ;

Option Explicit
 
Sub GRUPLA_AKTAR()
    Dim U As Long, Sütun As Byte, Ay As Byte
    Dim S1 As Worksheet, S2 As Worksheet, Wf As WorksheetFunction
 
    Set Wf = WorksheetFunction
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
 
    S1.Range("B2:N65536").ClearContents
 
    For U = 2 To [A65536].End(3).Row
        If Cells(U, 256).End(1).Columns >= 15 Then
            For Sütun = 15 To Cells(U, 256).End(1).Column
                For Ay = 1 To 12
 
                S1.Cells(U, Ay + 1) = S1.Cells(U, Ay + 1) + Wf.SumIf(S2.Range("A:A"), S1.Cells(U, Sütun), S2.Columns(Ay + 1))
 
                Next
                S1.Cells(U, 14) = Wf.Sum(Range("B" & U & ":M" & U))
 
            Next
        End If
    Next
 
    Set Wf = Nothing
    Set S1 = Nothing
    Set S2 = Nothing
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[bravia]

Sayın usubaykan çok teşekkür ederim,

Akşam evde kendi formatımda deneyeceğim...Emeklerinize sağlık...

İyi çalışmalar...

 

[bravia]

Sayın usubaykan size bir sorum daha var,

Yapmış olduğum formatta bir ihtiyaç daha doğdu...Acaba vermiş olduğunuz makroda kriter1-5 toplamını kriter6-10'dan çıkartabilme imkanı var mı? Farzedelim Kriter 1-5 arası gelir hesapları Kriter6-10 arası indirimler...
Ayrıca sayfa2'deki kolonların yerleri sayfa1'dekilerle aynı olmak zorunda mı? Örneğin sayfa2'de Ocak ayı B kolonunda değil de F Kolonundan başalayarak devam etmesi mümkün mü?
Son sorum makro yardımı ile tablonun 17.satırından başlayan bölümde yukarıda TL olarak aktarılan verileri 15.satırdaki EURO kuruna bölerek yerleştirmem gerekiyor.
Sorularım biraz çok oldu fakat yardımcı olursanız çok sevinirim...

Teşekkürler, İyi çalışmalar...

 

[usubaykan]

Merhaba

Sayfa2 de Ocak ayını "F" sütununda başlatırsak kodu yeniden düzenlemek gerekecektir. Sayfa2 de ki "A" sütunundaki veriler "A" sütununda mı kalacak yoksa o da aylar gibi "E" sütununda mı olacak?

Ayrıca Sayfa1 deki Grup sayısı sabit midir yoksa değişkenlik gösteriyor mu? Yazacağımız kodu vereceğiniz bu bilgelere göre yeniden düzenlememiz gerekecek.

 

[bravia]

Merhaba,

Sayfa 2'de ki "A" sütunundaki veriler yerinde kalacak Ocak ayı "F" kolonundan başlayacak ve Sayfa1 deki grup sayısı sabit kalacak.

Ayrıca Sayfa2'deki verileri aynı şekilde sayfa3'e aktarılması gerekiyor. Fakat sayfa1'deki gibi gelir gider farkı almaksızın sadece kriter1-5 toplamını alarak. Bütun bu işlemleri aynı buton ile yapmamız mümkün mü?

Örneği güncelledim...

Yardımlarınız için çok teşekkür ederim...

 

[usubaykan]

Merhaba

Ekli dosyayı incelermisiniz. Dosyanızda "Kriter" sayısını arttırmak istediğinizde Makroda güncelleme yapmak gerekecektir.

 

[bravia]

Çok teşekkürler...Akşam evdeki büyük dosyama aktararak deneyeceğim...

Emeğinize sağlık...

 

[usubaykan]

Rica ederim. Desteklerini esirgemeyen Korhan beye (Şefime) bende teşekkür ederim.