Aktif Hücreye Çift Tıklandığında Üst Satırların Alt Toplam Formülünü Yaz - Microsoft Excel

Aktif hücreye çift tıklandığında bu hücrenin üstündeki satırlar için alt toplam formülü yazan VBA kodu alternatifidir.

Kod


Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal _
    Target As Range, Cancel As Boolean)
    
    Cancel = True
    
    Range(Target.Offset(-1, 0).End(xlUp), Target).Select
    
    Target.Formula = "=SUBTOTAL(9," _
        & Selection(1).Address(0, 0) & ":" _
        & Selection(Selection.Count - 1).Address(0, 0) & ")"
    
    Target.Activate
End Sub

Etiketler

microsoft excel microsoft excel vba microsoft excel vba çalışma sayfası işlemleri microsoft excel vba formül işlemleri