Renge göre bakiye oluşturma

[ThEeNCi]

Selamlar kırmızı renkli - bakiye olarak görmesi ve bakiye oluşturmasını istiyorum.formül ile
Yardımlarınız için şimdiden çok teşekkür ederim.

 

[Ömer]

Merhaba,

Module kopyalayın

Function bakiye(alan As Range)
    Application.Volatile
    bakiye = alan
    If alan.Font.ColorIndex = 3 Then
        bakiye = alan * -1
    End If
End Function

Daha sonra aşağıdaki formülü E2 hücresine yazıp alt satırlara kopyalayın.

=bakiye(D2)+S(E1)

.

 

[ThEeNCi]

#AD? hatası veriyor Ömer bey

 

[ThEeNCi]

Tamam oldu teşekkür ederim.

 

[Ömer]

Kodları Insert menüsünden Module ekleyip bu bölüme yapıştırdınız mı?

 

[ThEeNCi]

Ömer bey örnek de oldu PivotTable içinde geçerli olur mu bu komut? kendi uygulamama yapamadım da renk den değilde BA dan gidebilirmiyiz C Sütünunda A Alacak - bakiye görmesini sağlayabilirmiyiz zahmet verdim çok teşekkür ederim.

 

[Ömer]

Bu şekilde olacaksa makroya gerek kalmaz.

=EĞER(C2="a";-1*D2;D2)+S(E1)

Yeterli olur.

 

[ThEeNCi]

Böyle çok iyi oldu çok teşekkür ederim.Elinize sağlık