Boş satırı silince çıkan #yok yazısı

[melphisto]

Merhaba arkadaşlar;
Aşağıdaki formülü kullanarak makrolu düşeyara yapabiliyoruz.
A satırına yazdığım şeyin karşılığını B satırına formülsüz bulup getiriyor.
Fakat arada boş olan bir satırı silince veya bir satır ekleyince o satıra #yok yazısı çıkıyor ve epey karışıklığa neden oluyor.
Bunu engellemek için araya bir kod ekleyemezmiyiz acaba.
(ekte bir örnek ekledim)


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Cells(Target.Row, Target.Column + 1) = WorksheetFunction.VLookup(Target, [e3:f20], 2, False)
End Sub

 

[Merhum İdris SERDAR]

Kodlarınızı aşağıdaki ile değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
If Intersect(Target, [a:a]) = "" Then
Cells(Target.Row, Target.Column + 1) = ""
Else:
Cells(Target.Row, Target.Column + 1) = WorksheetFunction.VLookup(Target, [e3:f20], 2, False)
End If
End Sub

 

[melphisto]

Ne yazıkki olmadı

Sayın Yurttaş elinize sağlık,
Satır eklerken sorun olmuyor ama aralarında boşluk olan bir kaç satırı silince, silinen satırın hemen altında ne yazıyorsa onuda siliyor.

 

[melphisto]

İnceleyince farkettimde, tek satır silince sorun olmuyor fakat birkaç satır silindiğinde hemen altındaki hücreyi boş bırakıyor.

 

[melphisto]

Sorunun çözümünü bilen varmı arkadaşlar,
Çok faydalı bir kod ama bu şekilde pek bir işe yaramıyorda