Tüm çalışma kitabındaki eğersay ile toplama

[sevecen80]

Arkadaşlar,Tüm çalışma kitabındaki eğersay ile toplama işlemi nasıl yapıbilir,elimdeki çalışma kitabında yaklaşık 150 sayfa var,bu 150 sayfalık çalışma kitabındaki aynı değerlerin toplam kaç adet olduğunu nasıl bir formülle bulabilirim,Şimdiden Teşekkürler Arkadaşlar

 

[N.Ziya Hiçdurmaz]

Yanıt

Tüm sayfaların A1 hücresindeki değerini sayfa1in B1 hücresinde toplar.

Sub TOPLA()
For SAY = 1 To Sheets.Count
Sheets("Sayfa1").[b1] = Sheets("Sayfa1").[b1] + Sheets(SAY).[A1]
Next
End Sub

 

[sevecen80]

Teşekkürler arkadaşım yardımların için sağolasın fakat makro bilgim yok.

 

[emraha]

Arkadaşlar,Tüm çalışma kitabındaki eğersay ile toplama işlemi nasıl yapıbilir,elimdeki çalışma kitabında yaklaşık 150 sayfa var,bu 150 sayfalık çalışma kitabındaki aynı değerlerin toplam kaç adet olduğunu nasıl bir formülle bulabilirim,Şimdiden Teşekkürler Arkadaşlar

sevecen hanım örnek olarak elinizdeki excel belgesini ve hangi değerden kaç tane olduğunu saymak istediğiniz değeri gönderirseniz daha iyi yardımcı olurum.