makro ile eklenen sütunda varolan formüllerin devamı ve eklenen sütunun silinmesi

[isyankarzarar]

LÜTFENNN ACİİİLLLL YARDIMMM

MERHABALAR SAYIN HOCALARIM
excel de stok takibi yapmakta olduğum bir tabloda
L sütununda her hangi bir satıra her hangi bir değer girince 1 satır boşluk bırakan bu formülü yazmıştınız çalıştı
ancak
1-değer yazdığım hücreyi silince eklenen satırın silinmesi için ne yapmam gerekli
2-diğer bazı sütunlardaki S W X Z gibi var olan formüllerim eklenen satırda olmuyor ne yapmam gerekli

şimdiden teşekkürler...


Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("L:L")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Rows(Target.Row + 1).Insert shift:=xlDown
Application.EnableEvents = True

 

[PLİNT]

L sütununda her hangi bir satıra her hangi bir değer girince 1 satır boşluk bırakan bu formülü yazmıştınız
1-değer yazdığım hücreyi silince eklenen satırın silinmesi için ne yapmam gerekli
2-diğer bazı sütunlardaki S W X Z gibi var olan formüllerim eklenen satırda olmuyor ne yapmam gerekli
Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("L:L")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Rows(Target.Row + 1).Insert shift:=xlDown
Application.EnableEvents = True

Merhaba
Şöyle deneyin
Kodlarınız veri eklediğiniz satırın altına satır ekliyor
aynı şekilde verisi silinen hücrenin altındaki satırın
silinmesi içinse;
Ancak veri eklenen hücrenin bulunduğu satırı silmek içinse kırmızı bölümü siliniz.

Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("L:L,S:S,W:X,Z:Z")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Cells <> "" Then
Rows(Target.Row + 1).Insert shift:=xlDown
Else
Rows(Target.Row[COLOR="Red"] + 1[/COLOR]).EntireRow.Delete
End If
Application.EnableEvents = True
End Sub