Formülü makro etme

[sirkülasyon]

=EĞER(L3>P1;L3*0,05%;0)

formülünü

Cells(Target.Row, "O") =

sonra gelecek şekilde makro yazmak istiyorum.
Yardımcı olabilir misiniz?

 

[Ömer BARAN]

Merhaba.

Belirttiğiniz işlemi sadece O1 hücresi için düşünüyorsanız aşağıdaki şekilde olur.

İşlemi belli bir sütundaki tüm hücreler için istiyorsanız yada kod'un tetiklenmesi işlemini neyle
sağlayacaksanız ona göre örnek belge ekleyerek belge içerisinde açıklama yapmanızı öneririm.
.

[O1] = 0
If [L3] > [P1] Then [O1] = [L3] * 0.0005

 

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C3,D3,F3,I3,J3")) Is Nothing Then Exit Sub
    'If UCase(Cells(Target.Row, "C")) = "B" Then
        Cells(Target.Row, "E") = Round(Cells(Target.Row, "C"), 2) * Round(Cells(Target.Row, "D"), 2)
        'Cells(Target.Row, "J").ClearContents
    'ElseIf UCase(Cells(Target.Row, "C")) = "A" Then
        Cells(Target.Row, "G") = Round(Cells(Target.Row, "E"), 2) - Round(Cells(Target.Row, "E"), 2) / 1.08
        Cells(Target.Row, "H") = Cells(Target.Row, "E") - Cells(Target.Row, "G")
        Cells(Target.Row, "K") = Cells(Target.Row, "I") * Cells(Target.Row, "J")
        Cells(Target.Row, "L") = Round(Cells(Target.Row, "H"), 2) * Round(Cells(Target.Row, "K"), 2)
        Cells(Target.Row, "M") = Cells(Target.Row, "L") / 1.3
        Cells(Target.Row, "N") = Cells(Target.Row, "L") * 8 / 100 + Cells(Target.Row, "L")
        Cells(Target.Row, "O") = Cells(Target.Row, "N") - Cells(Target.Row, "L")
        Cells(Target.Row, "U") = If [L3] > [P1] Then
        [O1] = [L3] * 0.0005

ömert abim uyarlayamadım