Makro ile dikey yüzde

[osmanli2]

Sayın üstadlarım, ekli tablodaki excel dormülü ile hesaplanmış sütunun makro ile yapılmasını sağlayabilirmiyiz. gerekli açıklamalar örnek tabloda mevcutur. teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub YÜZDE_HESAPLA()
    Dim X As Long, SON_SATIR As Long
    
    SON_SATIR = Range("B65536").End(3).Row
    
    For X = 6 To SON_SATIR
        If InStr(1, Cells(X, "J").FormulaLocal, "ALTTOPLAM") = 0 Then
            If Cells(SON_SATIR, "G") <> 0 Then
                Cells(X, "J") = Cells(X, "G") / Cells(SON_SATIR, "G")
            End If
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub