Hücre Değerine göre koşullu satır ekeleme

[alperalper]

Arkadaşlar bir sayfa içinde hücre değerine göre satır ekleme veya silmek istiyorum.

A Sütunu ve B Sütunu

A da önceden tanımlanan değerler olacak B kullanıcı tarafından güncellenecek.

Şöyle:

B sütununda ilgili hücrede güncelleme olduktan sonra eğer A=B ise işlem yapma
A>B ise A-B kadar aktif olan satır altına satır eklesin eğer A<B ise B-A kadar satır eklesin.

 

[Murat OSMA]

Sayfanın kod kısmına bu kodları yazıp deneyiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    If Target.Value = Target.Offset(0, -1).Value Then Exit Sub
    If Target.Offset(0, -1).Value > Target.Value Then
        ekle = Target.Offset(0, -1).Value - Target.Value
        Rows(Target.Row + 1 & ":" & ekle + Target.Row).Insert Shift:=xlDown
    ElseIf Target.Offset(0, -1).Value < Target.Value Then
        ekle1 = Target.Value - Target.Offset(0, -1).Value
        Rows(Target.Row + 1 & ":" & ekle1 + Target.Row).Insert Shift:=xlDown
    End If
    Cancel = True
End Sub

 

[alperalper]

Çok teşekkür ederim. tam olarak istediğim buydu. ellerine sağlık.