Soru Son dolu hücre

[sirkülasyon]

Range("L6") = Evaluate("=LOOKUP(2,1/(L9:L33<>""""),L9:L33)")

Yukarıda ki kod ile L9' dan itibaren veri girince L6 hücresine son dolu hücre değerini alıyor.
Ancak sütun aralığında hücre değerini silince L6 da yer alan değer değişmiyor. Silinen hücrenin üstündeki hücreye tıklayınca ancak değer değişiyor.
Yukarıda yer alan kodu hücre silindiği zaman bir üstteki hücreye tekrar girmeden en son dolu hücreyi alması için ne yapabilirim?
Saygılarımla

 

[Korhan Ayhan]

Kodu sayfanızın aşağıdaki olayına yazmalısınız.

Private Sub Worksheet_Change(ByVal Target As Range)
..................
End Sub

 

[sirkülasyon]

Korhan abi

Private Sub Worksheet_Change(ByVal Target As Range)
   On Error Resume Next
If Not Intersect(Target, [F9:F30]) Is Nothing Then

aralığına yazdım

 

[Korhan Ayhan]

Sonuç ne oldu?

 

[sirkülasyon]

Değişen bir şey yok abi
L9 dan L13' e kadar veri girince sıkıntısız çalışıyor. Eğer L13' ü sildiğim zaman L13 de ki değer kalıyor L12' de ki değeri almıyor L12 yi seçtiğim zaman zaman alıyor.
L12' yi sildiğim zaman L12 de ki değer kalıyor L11' de ki değeri almıyor L11' i seçtiğim zaman alıyor.

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Range("L6") = Evaluate("=IFERROR(LOOKUP(2,1/(L9:L33<>""""),L9:L33),""""))")
End Sub

 

[sirkülasyon]

Korhan abi böyle çalıştı. Teşekkür ederim.
Hatayı nerede yaptım?

 

[Korhan Ayhan]

Uyguladığınız dosyanızı eklerseniz yorum yapabilirim.