Soru İstenilen satırdan sonrasını silme

[NADİR YILDIZ]

merhaba

B sütununda butona kriteri yazarak b10 dan başlayarak örneğin150 satırdan sonrasını silmek istiyorum

 

[dEdE]

Sayfanın kod bölümüne yapıştırarak dener misiniz?

Private Sub CommandButton1_Click()
    sor = Application.InputBox("Hangi satırdan sonrasını silmek istiyorsunuz? ", "SATIR NO GİRİŞİ")
    If sor = False Then Exit Sub
    Set s1 = Sheets("Sayfa1")
    ss = s1.Cells(Rows.Count, "B").End(3).Row
    s1.Range("B" & sor & ":B" & ss).ClearContents
End Sub

 

[NADİR YILDIZ]

Sayın dede
teşekkürler

iyi geceler