Hücreye girdiğim değere göre formül tekrarı

[raburabu]

Merhaba arkadaşlar
Gönderdiğim örnek dosyada gerekli açıklama yaptım. Burda istediğim bir hesaplama tablom var. Bu tabloda çok formul kullanıyorum. Bu formulleri alt alta çoğaltıyorum. a sütununda a7 den başlıyarak girdiğim değere göre bu formullerin tekrar etmesi mümkünmü. Şimdiden teşekkür ederim.

 

[mancubus]

VBE'de Sayfa1(koli) nesnesinin üzerine çift tıklayarak sağda açılan kod penceresine aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim tRow As Long

If Target.Column <> 1 Then Exit Sub
If Target.Row < 7 Then Exit Sub

tRow = Target.Row

Range("F" & tRow - 1 & ":G" & tRow - 1).Copy Range("F" & tRow & ":G" & tRow)
Range("V" & tRow - 1 & ":W" & tRow - 1).Copy Range("V" & tRow & ":W" & tRow)
Range("Y" & tRow - 1 & ":BV" & tRow - 1).Copy Range("Y" & tRow & ":BV" & tRow)

End Sub

A sütunundaki aktif hücrede bir değişiklik yapılması durumunda, bir üst satırdaki F-G + V-W + Y-BV sütunlarında bulunan formülleri aktif hücrenin satırındaki aynı sütunlara kopyalar.