Formulu makroya çevirmek yardım

[uygaroz]

Bir kaç gündür Makrolar ile kaynakları okuyup makro yazmaya giriş yapmaya çalısıyorum fakat ekteki dosyada takıldım yardım edecek arkadaşlara şimdiden teşekkür ederim.
Uygar

 

[asi_kral]

Merhaba
Sayfanın kod bölümüne ekleyin ve deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("Z:Z")) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
If Target <> Empty Then
With Range("AB5:AB" & Target.Row)
.Value = "=IF(Q5=0,"""",(IF(V5=""ödendi"",Q5-S5,Q5)-IF(Z5=""bekliyor"",0,W5)))"
.Value = .Value
End With
End If
Application.EnableEvents = True
End Sub

Z sütunundaki bilgi girişine göre tetiklenir.

 

[uygaroz]

çok tesekkur ederim
Uygar

 

[asi_kral]

çok tesekkur ederim
Uygar

Kolay Gelsin.