Belli hücrelerdeki değerleri alıp toplamak

[polat33]

Arkadaşlar merhaba, sizden bir konuda destek rica ediyorum, yapmak istediğim şey altta örneğini verdiğim gibi, alttaki hücrelere girilen değerleri üstteki hücrelerde rakama denk gelen yerlerden alması ve toplaması.

A B C D E F
1 2 3 4 5 6
50 75 40 100 12 36


altta verilen numaraya göre üstten değerleri alıp sağda toplayacak

1 4 3 4 6 5 338

örneğin alttaki ilk sütuna 1 yazarsam 50 yi toplayacak, 2 yazarsam 75 olarak toplayacak, üstteki numaralar sabit olmuyor, sürekli değişeceğinden, hücre blgisini aldırmak mı gerekir acaba ?

 

[Emir Hüseyin Çoban]

. . .

Liste her zaman tek satır mı ?

. . .

 

[polat33]

Evet hocam liste göründüğü gibi düzenlenecek
pardon belge tamamlandığında daha ek satırlar eklenecek fakat onları ben aynı mantıkta ekleyeceğim için önemli olan bu şekilde değerleri almam.

 

[Emir Hüseyin Çoban]

. . .

Bence örneği biraz daha açıklayın.

Her zaman 10.satıra girilen veriler
4.satırdaki numaralarına göre 5.satırdaki değerleri ile mi toplanacak...

Tablonun devamında 11.-12. satır diye devam ediyor mu veya 6. 7.satır olarak...

. . .

 

[polat33]

ilk söylediğiniz gibi hocam
"Her zaman 10.satıra girilen veriler
4.satırdaki numaralarına göre 5.satırdaki değerleri ile mi toplanacak..."
bu işlemde sonrası olmayacak, yanlız hocam illaki 6 değer girmeyeceğim bazen bu 3-4 değer de olur yani illaki 6 değerin hepsini toplayacağım diye bir şey yok, 4 tane girsem 4 tanesini alacak toplayacak

 

[Emir Hüseyin Çoban]

. . .

En fazla 6 değer olma kısmı sabit mi?

. . .

 

[Korhan Ayhan]

Deneyiniz.

=TOPLA.ÇARPIM(ARA(B10:G10;$B$4:$G$4;$B$5:$G$5))

Boş olan verilerdeki hatayı önlemek için aşağıdaki gibi DİZİ formül olarak kullanabilirsiniz.

=TOPLA(EĞER(EHATALIYSA(ARA(B10:G10;$B$4:$G$4;$B$5:$G$5));0;ARA(B10:G10;$B$4:$G$4;$B$5:$G$5)))

 

[Emir Hüseyin Çoban]

. . .

Makro ile;

Sub kod()
    
    topla = Empty: Range("I10") = ""
    
    Dim dizi(1 To 6)
    For i = 1 To 6
        dizi(i) = Cells(5, i + 1)
    Next i
    For Each alan In Range("B10:G10")
        If alan <> "" and alan<>0 Then
            topla = topla + dizi(alan)
        End If
    Next
    Range("I10") = topla
    
End Sub

. . .

 

[polat33]

Hocam değer girmem durumunda birinci verdiğiniz kod güzel çalıştı fakat değer vermediğim veya 0 girdiğim alanlar olunca hata verdi, 2 ci verdiğiniz kod ise direkt ne olursa olsun bende 0 veriyor.

 

[Emir Hüseyin Çoban]

.

Makro kodlarını butona atayarak çalıştırmalısınız.
8 nolu mesajıma bir koşul daha ekledim.

.

 

[Korhan Ayhan]

2. formülü dizi formül olarak uygulayıp deneyiniz.

 

[polat33]

Hocam makro ile bir güzel çalıştı elinize sağlık, yanlız makroyu tuşa atayınca şu şekilde değiştirmem gerekti.

Private Sub CommandButton1_Click()


topla = Empty: Range("I10") = ""

Dim dizi(1 To 6)
For i = 1 To 6
dizi(i) = Cells(4, i + 1)
Next i
For Each alan In Range("B11:G11")
If alan <> "" And alan <> 0 Then
topla = topla + dizi(alan)
End If
Next
Range("I10") = topla

End Sub

Teşekkür ederim