Formül silinmesin

[polis-53]

Merhaba arkadaşlar aşağıdaki kod Son Dolu satır üzerine boş Satır ekliyor ve satırdaki förmülleri siliyor silmemesi için yardımcı olurmusunuz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, Range("SonSatır")) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Target.EntireRow.Insert Shift:=xlDown
Target.Offset(-1, 0) = Target
Target.Offset(-1, 1).Select
Target.Value = ""
son:
End Sub

 

[ccuneyt13]

Merhaba,

Target.Value = ""

Silip dener misiniz.

 

[polis-53]

Merhaba,

Target.Value = ""

Silip dener misiniz.

denedim olmadı
If Target.Value = "" Then Exit Sub
bu kod siliyor galiba bu kodu nasıl düzenlemem lazım
mevcut sarıtı siliyor bir alta eklediği satırda formüller mevcut
örnek verirsem A5 satırına veri girdiğimde 1 alta satır ekliyor ama A5 satırındaki förmülleri siliyor.

 

[zehirlee]

Denermisiniz

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, Range("SonSatır")) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Target.EntireRow.Insert Shift:=xlDown
Target.Offset(-1, 0).Value = Target.Value
Target.ClearContents ' Hücrenin içeriğini silme, ancak formülü koruma
Target.Offset(-1, 1).Select
son:
End Sub

 

[polis-53]

Denermisiniz

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, Range("SonSatır")) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Target.EntireRow.Insert Shift:=xlDown
Target.Offset(-1, 0).Value = Target.Value
Target.ClearContents ' Hücrenin içeriğini silme, ancak formülü koruma
Target.Offset(-1, 1).Select
son:
End Sub

Denedim olmadı yine siliyor

 

[zehirlee]

Emin değilim tekrar denermisiniz

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Not Intersect(Target, Me.Range("SonSatır")) Is Nothing Then
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False ' Olayları devre dışı bırak
Target.EntireRow.Insert Shift:=xlDown
Target.Offset(-1, 0).Value = Target.Value
Target.Value = "" ' Hücrenin içeriğini boş bir dize ile değiştirme
Target.Offset(-1, 1).Select
End If
Exit Sub
son:
MsgBox "Bir hata oluştu: " & Err.Description
Application.EnableEvents = True ' Olayları yeniden etkinleştir
End Sub

 

[polis-53]

Merhabalar dosya ektedir 6.satıra veri girince 7.satırı açıyor fakat 6.satırın förmüllerini siliyor förmüller silinmesin istiyorum.