Hücre atlama

[celeborn_metu]

Benim sorunum biraz karmaşık, hatta çözümünün mümkün olup olmadığından bile emin değilim. Yada excel bilgim ileri seviyede olmadığı için bana öyle geliyor olabilir.

Bir hücreye rakam gireceğim (örneğin A4). Bu sırada C3 hücresinde a sütununun tüm hücrelerindeki rakamları toplayan bir formül olacak ve A1, A2, A3 hücrelerindeki rakamların toplamını veriyor olacak. Ben A4 hücresine bir rakam girdiğimde C3 hücresi C4 hücresine taşınacak yani C3 otomatikman kesilip C4 hücresine yapıştırılmış olacak. C3 hücresi C4 hücresine taşınacak ve formül gereği artık A1, A2, A3 VE A4 hücrelerinin toplamını veriyor olacak.

Acaba bu mümkün mü?

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

Ekteki örnek dosyayı incelermisiniz.


Uygulanan kod; (Sayfanın kod bölümüne uygulayınız.)

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If Target <> "" Then
        Columns(3).ClearContents
        Cells(Target.Row, "C") = "=SUM(A1:A" & Target.Row & ")"
    End If
Son:
End Sub

 

[celeborn_metu]

Çok çok teşekkür ederim, ellerinize sağlık