Veri girildikçe sonuçları göstersin..!

[sensizsoldum]

Merhaba,
B3:B aralığına girilen verinin sonuçlarını her sayfaya girişte C3:C sütunda gösteriyor.
Bunu B3:Baralığına veri girildikçe gösterme imkânımız olabilir mi. Yani sayfa değiştirmeden, veri girildikçe göstermekten söz ediyorum.

Private Sub Worksheet_Activate()
Application.EnableEvents = False
Son = Range("C" & Rows.Count).End(xlUp).Row
With Range("C3:C" & Son)
.Formula = "=IF(B3="""","""",SUMIF(STOK!B:B,B3,STOK!D:D))"
.Value = .Value
End With
Application.EnableEvents = True
End Sub

 

[apocalyt]

bu kodu denermisiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Son = Range("C" & Rows.Count).End(xlUp).Row
With Range("C3:C" & Son)
.Formula = "=IF(B3="""","""",SUMIF(STOK!B:B,B3,STOK!D))"
.Value = .Value
End With
Application.EnableEvents = True
End Sub

 

[sensizsoldum]

Merhaba,
İlginiz için teşekkür ederim,

Ancak sayfanın change olayı ile zaten deneme yaptım sonuç olumsuz. verileri getirmiyor. arada farklı kodlarınmı olması gerekiyor acep.