Satır otomatik aşağı kaydırma

[ijol]

Merhaba iyi bayramlar,

Örnek dosya içerisindeki A8 hücresine bir isim yazdığım zaman otomatik olarak 9 satırdaki veriler aşağıya inecek ve bir üst satırdaki formülleri(E ve F deki) aşağıya taşıyacak bir makro konusunda yardımcı olurmusunuz?
Not: Daha sonra A9'a bir veri girince busefer A10'daki bilgiler aşağıya sürekli kayması gerekiyor.

 

[ijol]

sutun yazmışım ama satır olacaktı

 

[dEdE]

Merhaba,
Aşağıdaki kodu sayfanın kod bölümüne yapıştırarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
son = [A65536].End(3).Row + 2
For K = 7 To son
    If Target.Address = "$A$" & K Then
        If ActiveCell.Value <> "" Then Exit Sub
        Rows(son - 1).Insert Shift:=xlDown
        Range("E6:F6").Copy Range("E" & son - 2)
    End If
Next K
End Sub

 

[ijol]

teşekkürler

 

[tukayf]

sayın dede bu çalışmanın farklı bir versiyonu bana lazım. zihninize sağlık güzel olmuş. ancak alttaki toplam satırı E6:E8 satırını topluyor her satır eklemede toplam otomatik yukarıdaki satırları kapsayabilir mi?

 

[dEdE]

Merhaba,
End Sub satırı ile Next K satırı arasına aşağıdaki kodu ekleyelim.

Cells(son, 5).Value = WorksheetFunction.Sum(Range("E6:E" & son - 1))

 

[tukayf]

üstadım bu kodu ekleyince hata veriyor bi kontrol edebilir misiniz mümkünse.

 

[dEdE]

Merhaba,
Ekli dosyayı inceler misiniz?