hücreye veri girince istenilen satırlar silinsin

[netvolxxx]

merhaba arkadaşlar excel sayfasında B54 hücresine veri yazdığımda 31 satırdan 53 satırları silmek istiyorum otamatik B54 hücresinde bir şey yazdığımda istediğim satır araları 31-53 silinmesi. silme işlemi yerine 31 den 53 satırlarda olan yazılı olan verileri temizleme de olabilir.
bunu vba kod ile nasıl yapıcam.

 

[Necdet]

Merhaba,
Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B54]) Is Nothing Then End
    If Not Target.Value = "" Then Rows("31:53").Delete
End Sub

 

[netvolxxx]

Necdet hocam işim çözdü çalıştı peki bunu birde ilgili satırlarda yazan verileri nasıl temizlerim satır 31 ile 53 arasında olanları..

 

[netvolxxx]

hocam tamamdır temizle olayını hallettim teşeküürr ederim thanks....