Hücre Rengine Göre Çarpımlar

[cimcoz]

Merhaba Arkadaşlar,

Ekteki dosyamda K sütunundaki faiz oranlarını içeren ve diğer sütunlara göre kesişen (otomatik renklenen) değerlerin her bir sütun altındaki çarpımlarına ihtiyacım vardır.

Yardımılarınızı rica eder, şimdiden çok teşekkür ederim.

Saygılarımla,

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Hesapla()
    
    Dim i As Byte, j As Byte, deg As Double
    
    For i = 2 To 11
        deg = 1
        For j = 2 To 11
            If Cells(j, i).Interior.ColorIndex > 0 Then
                deg = deg * Cells(j, "L")
            End If
        Next j
        Cells(12, i) = deg
    Next i
    
End Sub

 

[cimcoz]

Merhaba,

Bu şekilde deneyin.

Sub Hesapla()
   
    Dim i As Byte, j As Byte, deg As Double
   
    For i = 2 To 11
        deg = 1
        For j = 2 To 11
            If Cells(j, i).Interior.ColorIndex > 0 Then
                deg = deg * Cells(j, "L")
            End If
        Next j
        Cells(12, i) = deg
    Next i
   
End Sub

Çok teşekkür ederim, ellerinize sağlık.

Saygılar,