A sütunundaki veriyi silince B sütunundaki karşılık hücre içeriği silinsin

[YILDIZ YAĞMURU]

Aşağıdaki kod Başka bir sayfadan Düşeyara gibi veri getiriyor. A sütununa veriyi giriyorum B sütununda karsısındakı hücreye Kodlar sayfasından karsılıgını getırıyor. fakat A sütunundaki veriyi sildiğimde B sütunundaki veri silinmiyor .Bu silinme olayı için Aşağıdaki kodu nasıl revize edebiliriz acaba yardımcı olurmusunuz.. .


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("a2:a1000")) Is Nothing Then
If Target = "" Then Exit Sub
If WorksheetFunction.CountIf(Sheets("KODLAR").Range(" b:b"), Cells(Target.Row, "a")) > 0 Then
Cells(Target.Row, "b") = WorksheetFunction.Index(Sheets("KODLAR").Range("a: b"), WorksheetFunction.Match(Target, Sheets("KODLAR").Range("b:b"), 0), 1)


Else
Cells(Target.Row, "E") = "Veri Yok"
MsgBox " Girdiğiniz Stok Kodu Bulunamadı !", vbCritical, "Dikkat !"
End If

End If

End Sub

 

[Muzaffer Ali]

If Target = "" Then Exit Sub

Satırını sil

Aynı yere aşağıdakileri yaz

If Target = "" Then
   Cells(Target.Row, "b") = ""
   Exit Sub
End If

 

[YILDIZ YAĞMURU]

ÇOK TEŞEKKÜRLER dalgalıkur

If Target = "" Then Exit Sub

Satırını sil

Aynı yere aşağıdakileri yaz

If Target = "" Then
   Cells(Target.Row, "b") = ""
   Exit Sub
End If

Çok teşekkürler