D sütununda Hücre Exit olayı

[DeliBalta58]

D sütununda herhangi bir hücrede iken, ( örneğin D5 ) hücreye veri girip Enter ile hücreyi terk ettiğimizde, H sütununda ( H5 hücresi ) terk ettiğimiz hücrenin satırında hücrede E5,F5,G5 hücrelerinin toplamını alacak.Yardımcı olabilirmisiniz?

 

[harpoon_1903]

Merhaba,
Böyle bir şey mi istiyorsunuz?

Eğer aradığınız buysa H5 hücresindeki formülü aşağıya doğru sürükleyerek kopyalayın.

 

[DeliBalta58]

Emeğiniz için teşekkürler.
Benim istediğim VBA kodu olarak.
Çünkü formül Excelin şişmesine sebep oluyor.Tablomda şuan 1200 satır var ve artmakta. Bu formülü tüm hücrelere uyguladığında boyut çook büyüyor.

 

[harpoon_1903]

Bir de bunu dener misiniz? Biraz acemice ama işinize yararsa sevinirim.

 

[Korhan Ayhan]

Selamlar,

İlgili sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target <> "" Then
    Cells(Target.Row, "H") = Cells(Target.Row, "E") + Cells(Target.Row, "F") + Cells(Target.Row, "G")
    End If
End Sub

 

[DeliBalta58]

teşekkürler elinize sağlık