Formülün İşlemi Otomatik Yapması

[mc_exrem]

Merhabalar üstadlar

KASA DEFTERİ sayfasında D ve E sütunlarına yazdığım verileri D1 ve E1 hücrelerinde topluyordu ama hücreye yazdığım veriye çift tıklamazsam Formülleri hesaplama seçeneği otomatik olduğu halde toplamları şimdi vermiyor.

Ancak bir alt satıra veri girince toplamayı yapıyor yani işlemi geriden yapıyor. 2926. satıra yazdığım veriyi 2927. satırın B sütununa veri girince topluyor.
Tahminimce D1 ve E1 birer tanımlı ad imiş. Ad yöneticisinde birbirine bağlı ad tanımlamaları var. Bundan kaynaklı olma ihtimali olabilir. Sizden ricam nasıl düzeltebiliriz?
Yardımlarınız için teşekkür eder saygılar sunarım.

 

[Ömer]

Merhaba,

Kasa defteri sayfasındaki kodları aşağıdakilerle değiştirerek deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim son As Long
If Selection.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B5:E65536")) Is Nothing Then
        Cells(Target.Row, "F") = Date
        son = [B:F].Find("*", , , , xlByRows, xlPrevious).Row
        ActiveWorkbook.Names.Add Name:="Kson", RefersTo:=son
    End If
End Sub

 

[mc_exrem]

Merhaba,

Kasa defteri sayfasındaki kodları aşağıdakilerle değiştirerek deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim son As Long
If Selection.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B5:E65536")) Is Nothing Then
        Cells(Target.Row, "F") = Date
        son = [B:F].Find("*", , , , xlByRows, xlPrevious).Row
        ActiveWorkbook.Names.Add Name:="Kson", RefersTo:=son
    End If
End Sub

Hocam Allah razı olsun. Şu mübarek günde beni bu sıkıntıdan kurtardınız rabbim size sıkıntı vermesin. Şirketin kasası olduğu için dün çok skıntı yapmıştım ama Ellerinize sağlık. e365 kullanmaktan vazgeçecektim artık.
Hayırlı günleriniz olsun

 

[Ömer]

Allah hepimizden razı olsun. İşinize yaradığına sevindim.