üst satırdaki formülleri alt satıra otomatik kopyalama

[mybluecat]

Merhaba,
Ekteki örnek tablo dikkate alındığında, örneğin B6 hücresine veri girişi yapıldığı anda, G6 dan AW6 hücresine kadar ki kısımda bulunan hücrelerdeki mevcut formülleri ,G7 den AW7 ye kadar olan hücrelere kopyala yapıştır yapabilen bir kod mevcut mudur? Bu şekilde her yeni veri girişinde bir alt satıra kopyalamaya devam etmeli.
Eğer böyle bir kod var ise, aynı anda birden fazla veri girişi tek seferde yapılır ise ( örn: B6 dan B15 e kadar ) kod görevini yapabilir mi?

Teşekkür ederim...

 

[Muzaffer Ali]

Merhaba.
Sayfanın "Worksheet_Change(ByVal Target As Range)" kodlarının en üst satına aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Alan As Range
If Not Intersect(Target, Range("G6:G" & Rows.Count)) Is Nothing Then
    For Each Alan In Target
        Range("H" & Alan.Row & ":AW" & Alan.Row).FillDown
    Next
End If

 

[mybluecat]

Cevabınızı yeni gördüm. Teşekkür ederim. Dediğiniz gibi üst satıra kopyaladım ama sonuç alamadım. Bir hata yapıyor olabilirim. Dosya içine ekleyerek iletmeniz mümkün mü?

 

[Muzaffer Ali]

Dosyanız ekte

 

[mybluecat]

Elinize sağlık.

Teşekkürler....