VBA FORMUL KOPYALAMA

[plnxc]

merhaba
anasayfama eklediğim command button a tıklayınca son satırı bulup, bir üstteki veriyi aşağıya kaydırarak formulü yenilemesini istiyorum. excelde hücrenin sağ altına çift tık yapınca formulü uygulaması gibi.formuller h,ı, j, k sütunlarında mevcut. satırlara ekleme yaptıkca boş olan yerler üstteki formüle göre hesaplanacak. umarım anlatabilmişimdir. yardımcı olursanız sevinirim. aşağıda yazdıgım fakat çalıştıramadıgım kodu ekliyorum:


Dim formul As Variant
Range("a1").Select
Selection.CurrentRegion.Select
formul = Selection.Rows.Count

Range("formul - 1, 8").Select
Selection.AutoFill Destination:=Range(formul - 1, 8)
Range(formul, 8).Select

 

[Korhan Ayhan]

Bu işlemi yapmak istediğiniz sayfanızın kod bölümüne uygulayınız.

Tablonuzda ilk satırın başlık olduğunu varsaydım. İkinci satırdaki H-K sütun aralığındaki formüller A-G sütun aralığında işlem yaptığınız satıra göre otomatik aşağıya doğru çoğalacaktır.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    
    If Intersect(Target, Range("A2:G" & Rows.Count)) Is Nothing Then Exit Sub
    Set Rng = Intersect(Target, Range("A2:G" & Rows.Count))
    Range("H2:K" & Rng.Offset(Rng.Rows.Count - 1).Row).FillDown
End Sub

 

[plnxc]

tam olarak yapmak istediğim şeyi anlamışsınız fakat yazdığınız kodu yapıştırdığımda çalışmıyor sebebini de anlayamadım. yardımlarınız için teşekkür ederim yine de