Formülün İşlemi Otomatik Yapması

Katılım
25 Mayıs 2010
Mesajlar
480
Excel Vers. ve Dili
Office 2019
64bit
Tr
Win 10
Altın Üyelik Bitiş Tarihi
12-07-2024
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.
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Kasa defteri sayfasındaki kodları aşağıdakilerle değiştirerek deneyin.
Kod:
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
 
Katılım
25 Mayıs 2010
Mesajlar
480
Excel Vers. ve Dili
Office 2019
64bit
Tr
Win 10
Altın Üyelik Bitiş Tarihi
12-07-2024
Merhaba,

Kasa defteri sayfasındaki kodları aşağıdakilerle değiştirerek deneyin.
Kod:
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
 
Son düzenleme:

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Allah hepimizden razı olsun. İşinize yaradığına sevindim.
 
Üst