Soru Makro ile toplama işlemi nasıl yapılır.

[cimeyil]

merhaba,

C4 hücresinden başlayacak şekilde U4 hücresine kadar makro ile mavi hücrelerdeki toplama işlemi yaptırılacak.
konu hakkında yardımcı olur musunuz ?

şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Sorunuzu örnek dosya ile destekleyip detaylı açıklarmısınız.

https://dosya.co


.

 

[YUSUF44]

Sub topla()
    toplam = 0
    For i = 3 To 21
        If Cells(4,i).Interior.Color = vbBlue Then
            toplam = toplam + Cells(4,i)
        End If
    Next
    [A1] = toplam
End Sub

Şeklinde deneyin. A1 hücresine toplamı yazar.

 

[cimeyil]

Merhaba,

Sorunuzu örnek dosya ile destekleyip detaylı açıklarmısınız.

https://dosya.co


.

dosya nasıl ekleyeceğim ?

 

[cimeyil]

Sub topla()
    toplam = 0
    For i = 3 To 21
        If Cells(4,i).Interior.Color = vbBlue Then
            toplam = toplam + Cells(4,i)
        End If
    Next
    [A1] = toplam
End Sub

Şeklinde deneyin. A1 hücresine toplamı yazar.

cevabınız için teşekkürler . dosya ekleyeceğim .
C4 de c6 ile c30 arası
D4 de d6 ile d30 arası
E4 de E6 ile E30 arası
.....
....
....
U4 de U6 ile U30 arasını toplasın istiyorum . 4. satırdaki hücreler bulunduğu kolonun 6 ile 30 uncu satırındaki verileri toplasın istiyorum
ya da formülle en altta toplattım dosyamda bu toplattığım veriyi her kolonun 4 . satıra yazılsın istiyorum

 

[cimeyil]

Merhaba,

Sorunuzu örnek dosya ile destekleyip detaylı açıklarmısınız.

https://dosya.co


.

İndir toplama

Dosyayı indir toplama

dosya.co

 

[YUSUF44]

Neden 30. satırdaki toplama formülünü doğrudan 4. satırda kullanmıyorsunuz da ayrı işlemler ve makrolu çözüm istiyorsunuz?

 

[cimeyil]

Neden 30. satırdaki toplama formülünü doğrudan 4. satırda kullanmıyorsunuz da ayrı işlemler ve makrolu çözüm istiyorsunuz?

örnek olarak ;
Kolon C deki 1 lerin olduğu yerde formül olacak oriğinal dosyada . formül 3.satır eşittir 2.satır ise 1 yaz değilse boş bırak olacak . fakat 3.satır ise 1 leri topluyor.
bunun içinde orada veri olması gerekiyor. formül olursa formüller çakışıyor. bunu makro ile çözebilirzz diye düşündüm .
ya da 1.buton ve 2.buton eklersek 1.buton sadece mavi kısmı yapsın önce 2. buton ise daha sonra 1 lerin olduğu kısmı yapsın . renge göre vb kod olmazsa sevinirim.

çözüm yollarınız için şimdiden teşekkür ederim.

 

[YUSUF44]

Sizin için önemli olan yer o zaman üst kısım değil 1'lerin olduğu kısım. Burdaki 1 yazma şartını tam olarak belirlerseniz farklı bir uygulama yapılabilir.

 

[cimeyil]

İndir toplama

Dosyayı indir toplama

dosya.co

dosyanın orijinalini ekledim. 1 lerin olduğu kısıma ilave olarak 1. ve 2. satır birbirine eşitse mantıksal sınama "AND" İLE EKLENCEKTİR. fakat bunu eklemem için de 2. satırdaki değer makro ile veri olarak eklenirse formül çalışır diye düşündüm .

 

[YUSUF44]

Yapmaya çalıştığınız, 7. satırdaki tarih K ve L sütunundaki tarihler arasındaysa Q sütunundaki sayıyı hücreye yazmak sanıyorum. Birinci satırdaki durum ne zaman devreye giriyor? Eğer "o sütunun toplamı birinci satırdaki sayıya eşitse işlem yapma" demek istiyorsanız bunu bu formüllerle yapamazsınız. Diyelim ki birinci satırda 5 yazıyor. Aşağıdaki hangi satırlarda sayı olacak, hangilerinde olmayacak, buna nasıl karar veriliyor? Eğer "üstten başlayarak şarta uyan ilk satırlara işlem yap, alttakilere işlem yapma" diye bir kuralınız varsa, formül ona göre düzenlenebilir.

Örneğin Örnek dsoyanızda HL sütununda birinci satırda 3 varken ikinci satırda yani sütun toplamı 17 idi. Aşağıdaki formülü HL9 hücresine yazıp aşağı doğru kopyaladığımda 265, 271 ve 272'ye 1 yazdı, sütun toplamı da 3 oldu:

=EĞER(VE(HL$7>=$K9;HL$7<=$L9;TOPLA($HL$8:HL8)-HL$8<HL$1);$Q9;"")