Aynı olan verilerin toplamı

[kelkitli]

Değerli dostlar,
Sayfa1 de yazılı olan verileri sayfa2 de kaç tane varsa toplam değerlerini hesaplatabileceğimiz bir makro nasıl olmalıdır. Saygılar.

 

[captan]

Kolay Gelsin

Sayın kelkitli eğer mutlaka macro olsun demiyorsanız bu örnek işinizi görür diye düşünüyorum,

Mutlaka macro ile istiyorsan onunda çözümünü araştırırız

Şimdilik kolay gelsin !!

 

[Orion1]

Merhaba.
B2 hücresine aşağıdaki formülü yazıp alta hücrelere çekiniz.

=EĞERSAY(Sayfa2!$A:$A;A2)

 

[kelkitli]

Sn.Captan teşekkür ederim. Emeğine sağlık. Makro olmasını istiyorum.

 

[kelkitli]

Değerli dostlar, sanıyorum konuyu noksan açıklamışım.Sayfa2 de aylara göre değerler yazılı. C sütununda . Misal A Sayfa2 A sütununda aranıp C sütununda karşılık gelen değerlerin toplamı olacak. Ayrıca Sn. Sezara da teşekkürlerimi iletirim.

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

 

[kelkitli]

Sayın Sezar gerçekten güzel olmuş, aklına, bilgine, emeğine sağlık. Çok teşekkür ederim.

 

[captan]

Altarnetif Olarak Başka Bir Kod

Sayın Sezar beyin kodları gerçekten çok iyi, Dün akşam aklıma şöyle bişey geldi. Hem daha kısa, Hemde veriler çoğaldıkça hızını kaybetmiyor.

Private Sub CommandButton2_Click()
raporsonu = [a65536].End(3).Row
verisonu = Sheets("Sayfa2").[a65536].End(3).Row

For x = 2 To raporsonu
veri = Cells(x, 1).Address
Cells(x, 2) = Evaluate("Sumproduct((sayfa2!A2:A" & verisonu & "=" & veri & ")*(Sayfa2!C2:C" & verisonu & "))")
Next
   
End Sub

 

[kelkitli]

Teşekkürler Captan