Hücre boşsa veya silindiğinde silme

[Usyk]

Merhaba arkadaşlar,

Forumda aşağıdaki şekilde bir kod buldum ve dosyama uyarladım.
Ancak Sayfa1 "A" sütunundaki bir hücreyi sildiğimde "B" sütunundaki verinin de silinmesi gerekiyor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A10000")) Is Nothing Then
On Error Resume Next
If Target = "" Then Exit Sub
If WorksheetFunction.CountIf(Sheets("Sayfa2").Range("A:A"), Cells(Target.Row, "A")) > 0 Then
Cells(Target.Row, "B") = WorksheetFunction.VLookup(Cells(Target.Row, "A"), Sheets("Sayfa2").Range("A:B"), 2, 0)
Else
Cells(Target.Row, "b") = "Aradığınız değer bulunamadı."
End If
End If
End Sub

 

[Asri]

Sayfa1 adının üzerinde iken sağ tuş kodu görüntüle deyip bu kodu gelen ekrana yapştırın.

Soru çok açık değil ama anladığım kadarı ile,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A2:A10000")) Is Nothing Then
     On Error Resume Next
     If Target = "" Then Cells(Target.Row, Target.Column + 1).Value = ""
  End If
End Sub

 

[Usyk]

Kod ile Sayfa1 A sütununa veri girdiğimde Sayfa2 A sütununda o veriyi buluyor ve B sütunundaki karşılığını Sayfa1 B sütununa yazıyor. Buraya kadar tamam.

Ancak mesela Sayfa1 A8 deki veriyi sildiğimde Sayfa1 B8 in silinmesi gerekiyor.

İnşallah anlatabilmişimdir.

 

[Usyk]

Aşağıdaki şekilde halloldu.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A10000")) Is Nothing Then
On Error Resume Next
If Target = "" Then Cells(Target.Row, "b").ClearContents
ElseIf WorksheetFunction.CountIf(Sheets("Sayfa2").Range(" A:A"), Cells(Target.Row, "A")) > 0 Then
Cells(Target.Row, "B") = WorksheetFunction.VLookup(Cells(Target.Row, "A"), Sheets("Sayfa2").Range("A:B"), 2, 0)
Else
Cells(Target.Row, "b") = "Aradığınız değer bulunamadı."
End If
End If
End Sub