Hücredeki değere göre satır silme

[muhalko]

Değerli üstadlarım;

çalışma sayfasının bazı satırlarını, mesela n10 hücresindeki değere sildirmek hususunda yardımlarınızı bekliyorum.

Ekte örnek doysa mevcuttur.

Yardımlarınız için şimdiden teşekkür ediyorum.

 

[muhalko]

Dosyayı ekledim

 

[omerceri]

Sn muhalko kod örneği aşağıda

Sub sil()
ilk = Range("C5:C16").Find(What:=Range("N10")).Row + 1
Range("A" & ilk & ":L16").Delete Shift:=xlUp
End Sub

 

[muhalko]

Sayın ömerceri;

çok teşekkür ederim ellerinize emeğinize sağlık.

Tam istediğim gibi sağolun.