Aynı olanları toplatmak

[muratnazli]

Selamlar,

Ã?zür dilerim soruyu eksik sordum. İlişikteki dosyada olduğu gibi A,B,C'nin Ocak Þubat toplam değerlerini Sumif kullanmadan döngü ile yapmak istiyorum. Dosya ekledim.

Teşekkürler

 

[zafer]

Merhaba

 

[veyselemre]

[vb:1:34dfa66cfc]
Sub donguyletopla()
Dim toplamlar(1 To 3)

For X = 2 To 13
Select Case Cells(X, 1).Text
Case Is = "A": deg = 1
Case Is = "B": deg = 2
Case Is = "C": deg = 3
Case Else: GoTo git
End Select
toplamlar(deg) = toplamlar(deg) + Cells(X, 4)
git:
Next

Cells(15, 5) = toplamlar(1)
Cells(16, 5) = toplamlar(2)
Cells(17, 5) = toplamlar(3)

End Sub[/vb:1:34dfa66cfc]

 

[muratnazli]

Sayın Zafer,

İlginize teşekkür ederim fakat H sütununa yazdırmadan kod içerisinde hafızada tutarak son toplamı almam gerekiyor. Çünki son toplamı başka dosyaya aktaracağım.

Teşekkürler.

 

[zafer]

Merhaba

Hafıza da tutmasından kastınız nedir Her hangi bir hücreye yazmadan sonuçları tutmasını ve başka bir dosyanın istediğiniz sayfasına mı yazdırmasını istiyorsunuz.

 

[muratnazli]

Merhaba,

Evet sayın zafer.

Teşekkürler.

 

[ataniyazi]

Değişiklik

Arkadaşlar burada Mükerrer kayıtları ayıklayıp biryere yazdırıp yanınada toplam değerlerini yandaki hücreyi refrans alarak yazdırsak çalışma daha güzel olmaz mı.

 

[muratnazli]

Sayın veyselemre,

İlginize teşekkür ederim. Toplama işlemini direk toplam (D) sütunundan değil; Ã?nce A nın Ocak değerlerini daha sonra Þubat değerlerini toplatarak getirmekiyor.
Fakat toplama işlmini yaparken A yada B lerin son toplarını hesaplayana kadar dosya içerisinde herhangi bir yere yazdırmamam gerekiyor.

Selamlar.

 

[veyselemre]

Sayın veyselemre,

İlginize teşekkür ederim. Toplama işlemini direk toplam (D) sütunundan değil; Ã?nce A nın Ocak değerlerini daha sonra Þubat değerlerini toplatarak getirmekiyor.
Fakat toplama işlmini yaparken A yada B lerin son toplarını hesaplayana kadar dosya içerisinde herhangi bir yere yazdırmamam gerekiyor.

Selamlar.

[vb:1:c4d35a4acc]
toplamlar(deg) = toplamlar(deg) + Cells(X, 2)+Cells(X, 3)[/vb:1:c4d35a4acc]