Çözüldü Formülü Makroya Çevirme

[sirkülasyon]

=EĞER(B6="";"";EĞER(B6="Evet";EĞER(YADA(AY(A2)=2;AY(A2)=4;AY(A2)=7;AY(A2)=10);YUVARLA($B$2*750;2))))

Yukarıda formül olarak verilmiş hesaplamayı yardımlarınız ile B6:B200 arasında işleyecek şekilde makro yapmak istiyorum. Yardımcı olabilir misiniz?
Teşekkür eder, saygılarımı sunarım

 

[Orion1]

Konu başlığınız forum kurallarına aykırı.Konu başlığınız yapılacak işlemi kısaca anlatacak şekilde olmalıdır.Bu başlık çok genel olmuş.

 

[askm]

Yanlış anlamadı isem aşağıdaki şekilde olacak.

Private Sub Worksheet_Change(ByVal Target As Range)
'EĞER(B6="";"";EĞER(B6="Evet";EĞER(YADA(AY(A2)=2;AY(A2)=4;AY(A2)=7;AY(A2)=10);YUVARLA($B$2*750;2))))
If Intersect(Target, [B2:B200]) Is Nothing Then Exit Sub
    If Target.Value <> "" Then
        If Target.Value = "Evet" Then
            If Month(Range("A2")) = 2 Or Month(Range("A2")) = 4 Or Month(Range("A2")) = 7 Or Month(Range("A2")) = 10 Then
                Target.Value = WorksheetFunction.Round(Range("B2") * 750, 2)
            End If
        End If
    End If
End Sub

 

[sirkülasyon]

Çok teşekkür ederim. Hakkını helal et