Çözüldü Şartlı satır aşağı doğru kaydırma

[shaqzilla]

Merhaba, excelde çözmeye çalıştığım sorunum şu şekilde. A2:A11 hücre aralığında veri girişi yapıldığı zaman E2 hücresinden aşağı doğru bilgileri alarak E7 hücresini aşağı doğru kaydırması mümkün müdür? Tam anlatamadıysam kusura bakmayın örnek dosyayı yükledim. Forumda arama yaptım ancak benzer konulara tam rastlayamadım. Fonksiyon ile mümkün değil ise makro da olabilir.

http://www.dosya.tc/server16/zpy3cp/calisma.xlsx.html

 

[Muzaffer Ali]

Merhaba.
Sayfanın kod kısmına aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2:A11")) Is Nothing Then Exit Sub
    Dim Satir As Long
    Satir = Cells(Rows.Count, "E").End(3).Row - 1
    
    If Target.Value = "" And Satir > 6 Then
        Range("E" & Satir & ":F" & Satir).Delete Shift:=xlUp
    ElseIf Target.Value <> "" Then
        Range("E" & Satir & ":F" & Satir).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
End Sub

 

[shaqzilla]

Yardımınız için teşekkürler işe yaradı.