Bir üstteki satırın aynısını boş satır ekleyerek alması

[yesilyurtlu]

Evren Üstadım;

Elimde 9 sütunlu bir liste var. Bu liste günlük olarak satır eklenip silinmekte.
Mümkünse ekle makrosu ile boş bir satır açıp üstteki satırda ki var olan bilgileri formülleri ile birlikte açılan boş satıra ekleyebilir miyiz üstad?

Teşekkür Ederim...

[ogulcan92]

Sn:yesilyurtlu
Aşağıdaki örneği inceleyip kendinize göre uyarlayınız.
5.Satırdan itibaren yeni satır oluşturup satırda bulunan formül veya bilgileri oluşturulan bir alt satıra kopyalar.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[yesilyurtlu]

Sn:yesilyurtlu
Aşağıdaki örneği inceleyip kendinize göre uyarlayınız.
5.Satırdan itibaren yeni satır oluşturup satırda bulunan formül veya bilgileri oluşturulan bir alt satıra kopyalar.

Sayın Oğulcan & Olcaytuğ

İstediğim gibi olmuş ama bir hata var. Bir üstteki satırın aynısını alacak. Ama sizinkin de en başta ki satır ne ise onu alıyor. Düzeltebilme imkanı varmıdır acaba.
teşekkür ederim.

Özel değilse eğer "Oğulcan Excel Web Sitesi" programı da sizin değil mi ? Yoksa isim benzerliği mi?

[ogulcan92]

Sn:yesilyurtlu
Aşağıdaki kodları sayfanın kod bölümüne yapıştırınız.A sütününda veri girilince kopyalam işlemi yapılır.

Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target = "" Then Exit Sub
    If Target = "x" Or Target = "y" Then Exit Sub
    If Target <> "" Then
    Rows(Target.Row + 1).Insert Shift:=xlDown
    Rows(Target.Row + 1).FormulaR1C1 = Rows(Target.Row).FormulaR1C1
    End If
End Sub
Evet Oğulcan Excel Web Sitesi Lokal olarak hazırlanmıştır.Vakit sorunu olduğu için büyük bölümünü değiştirdim ama henüz günçelleyemedim.