Excel de koşullu bir tablo hazırlamak istiyorum.Yardımcı olabilecek arkadaş varmıdır?

[Orchuns]

Yukarıda görüldüğü üzere belirli günlerde mal giriş ve çıkışları var..Kırmızı gözüken yerler mal çıkış miktarını simgeliyor,siyahlar ise mal girişlerini..Benim istediğim şudurki,tabloya mal çıkışı yaptığım zaman ki bunu kırmızıyla yapıcam,giriş yaptığım zaman ise siyahla..Kırmızıyı gördüğü yerde otomotik olarak aşağıdaki toplam çıkışı,siyah gördüğü yerde ise girişi otomotik olarak kendisi hesaplasın..Çunku her seferinde ben elle giriş ve çıkışları ekleme yaparak düzeltiyorum...Böyle bir imkanımız varmıdır ve nasıl??

 

[Merhum İdris SERDAR]

Resim yerine örnek dosya eklerseniz daha hızlı yanıt alırsınız.

Çünkü çözmeye çalışanları dosya hazırlamak külfetinden kurtarırsınız.

.

 

[Orchuns]

Tamam örnek bir dosya ekledim...

http://rapidshare.com/files/87504787/MAL_G__304_R__304___350___IKI__350_.rar.html

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DEG As Range
If Intersect(Target, [B1:B23]) Is Nothing Then Exit Sub
[B22] = ""
[B21] = ""
[B23] = ""
For Each DEG In Range("B1:B20")
If DEG.Font.ColorIndex = 3 Then
[B22] = DEG + [B22]
End If
If DEG.Font.ColorIndex = 5 Then
[B21] = DEG + [B21]
[B23] = [B21] - [B22]
End If
Next
End Sub

 

[RFspur]

Bir uygulama örneği de benden.