istenilen satırı silme

[chngrcn]

Forumun değerli üyeleri.

Ekteki çalışmamda, textbox içine hangi satır numarası girilirse o satırı A sütünundan L Sütunua kadar olan "satır" kısmını silecek, altındaki satırları yukarı kaydıracak.
Text box içine 1 adet te satır numarası girilebilsin. Birden fazla satır silinmek istediğinde satır numaraları arasına "," koyularak silinmesi sağlansın.

hangi satır silinirse silinsin alttaki satırları bozmadan yukarı kaydıracak.
(Not: A sütunu ile L sütünu arasındaki satırları silecek)

Vba kodlaması nasıl yapılabilir.
Yardımlarınız için şimdiden teşekkürler.. Saygılarımla..

EKLİ DOSYA BURADA

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kod ile yapabilirsiniz.

Sub Düğme1_Tıklat()
    Dim SatirNo
    Dim Bak As Integer
    Dim Adres As String
    SatirNo = Split(Sayfa1.TextBox1.Text, ",")
    For Bak = 0 To UBound(SatirNo)
        If Adres <> "" Then Adres = Adres & ","
        Adres = Adres & Range("A" & SatirNo(Bak) & ":L" & SatirNo(Bak)).Address
    Next
    Range(Adres).Delete shift:=xlUp
End Sub