alttoplam satırını veri girişine göre kaydırma

[peleryn]

Herkese Merhabalar;

Çözümünü merak ettiğim bir soru var.Alt toplam satırım alt toplamların bulunduğu satırın başındaki ilk hücreye veri girdiğimde bir alt satıra kayabilir ve veri girmeye başladığım satırın da toplamını alır şekilde hesaplama yapabilir mi?

İlgilenecek herkese şimdiden çok teşekkür ediyorum.

 

[Merhum İdris SERDAR]

.


Data/List-Veri/Listele


Buradaki dosyayı inceleyin.

.

 

[Orion1]

Yalnız D sütununa mutlaka veri girmeniz gerekiyor.
Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A65535")) Is Nothing Then Exit Sub
sat = Cells(65536, "D").End(xlUp).Row
If Target.Row < sat Then Exit Sub
Range("D" & sat & ":H" & sat).Copy Range("D" & Target.Row + 1)
Range("D" & sat & ":H" & sat).Clear
End Sub

 

[peleryn]

Evren hocam D sütununda zaten mecburen sürekli veri olacak yani kodlarınız yine tam 12 den vurdu.Bu haliyle dosyama hoş bir dinamizim gelecek ilginiz için çok teşekkür ediyorum.

 

[Orion1]

Evren hocam D sütununda zaten mecburen sürekli veri olacak yani kodlarınız yine tam 12 den vurdu.Bu haliyle dosyama hoş bir dinamizim gelecek ilginiz için çok teşekkür ediyorum.

Rica ederim.
İyi çalışmalr.

 

[peleryn]

Yurttaş Hocam;

Dosyanızı aldım biraz inceledim birazdan daha ayrıntılı da bakacağım.Paylaşımınız için çok teşekkür ediyorum.