mizanda bakiye oluşturma

[spacebar]

değerli üstadlarım desteğinize ihtiyacım var. yardımcı olursanız sevinirim. mizan verisinde :

A sutunundaki değer :
1- 300 den küçükse C - D
2- 300 den büyük 600 den küçükse D-C
3- 600 den büyük 700 den küçükse mutlakdeğerli D-C
4- 700 den büyükse C-D yapmak istiyorum.

1 ve 4 makro kodları var. ama diğerlerini yapamadım. yardımlarınız için şimdiden teşekkürler...

Sub bakiyeolustur()
Application.ScreenUpdating = False
Son = Cells(Rows.Count, "A").End(3).Row
For i = 2 To Son
    If CDbl(Left(Cells(i, "A"), 3)) < 300 Then
    Cells(i, "E") = Cells(i, "c") - Cells(i, "d")
    Else
    Cells(i, "E") = Abs(Cells(i, "d") - Cells(i, "c"))
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[muygun]

Merhaba;
Eşitlikleri belirtmemişsiniz ama yinede eki deneyin.
İyi çalışmalar.

 

[spacebar]

üstad ellerinize sağlık. mükemmel olmuş. sadece şu satırda küçük bir hata vardı düzelttim. belki başkaları da kullanır diye yazıyorum.

If Cells(i, 1) >= 600 And Cells(i, 1) < 700 Then
Cells(i, "E") = Abs(Cells(i, "d") - Cells(i, "c"))
End If

çok teşekkür ederim. sağlıklı günler dilerim...