Değişken toplam alanı için makro

[sadece_erhan]

Merhaba, modüle koyacağım bir kod ile d kolonunda seçili olan hücreye d3 ile seçili hücrenin bir üstüne kadar toplam alacak (mümkünse formül olarak hücereye) makro gerekiyor. Örneğin;

D8 seçili iken makroyu çalıştırınca d8 e d3:d7 toplamını yazacak
D265 seçili iken makroyu çalıştırınca d265 e d3:d264 toplamını yazacak.

Değer olarak değilde toplamı formül olacak şekilde oluşturursa çok makbule geçer. =topla(d3:d7) ya da =topla(d3:d264) gibi.

 

[sadece_erhan]

toplamalani = ActiveSheet.Range("D3", Range("d3").End(xlDown))
Activecell = WorksheetFunction.Sum(toplamalani)

Sanırım değer olarak yazacak, formül olarak nasıl ayarlarız acaba

 

[Orion1]

Sayfanın kod bölümüne.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
Dim sat As Long
sat = Target.Row - 1
Target.Formula = "=SUM(D3:D" & sat & ")"
End Sub

 

[sadece_erhan]

Sayfanın kod bölümüne.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
Dim sat As Long
sat = Target.Row - 1
Target.Formula = "=SUM(D3:D" & sat & ")"
End Sub

Teşekkür ederim, elinize sağlık

 

[Orion1]

Teşekkür ederim, elinize sağlık

Rica ederim.
İyi çalışmalar.

 

[sadece_erhan]

Sub yukariyitopla()
    Dim a As Range, ayukari As Range
    Dim wf As WorksheetFunction
    Set wf = Application.WorksheetFunction
    Set a = ActiveCell
    Set ayukari = Range(a.Offset(-1, 0), Cells(3, a.Column))
   a.Formula = "=SUM(" & ayukari.Address & ")"
End Sub

böyle birşeyde başka biryerden buldum, teşekkür ederim tekrar