Soru Kayıt sil butonu ile Sıra numarası girileni silme hk.

[balanar]

Merhaba,

Kayıt sil butonuna tıkladığımda Hangi sıra numaralı kişi silinsin diye box vericek atıyorum 2 yazdım sıra numarası 2 olan Sevda Fe A,B,C,D,E sutunları silinecek bunu nasıl yapabiliriz

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodları deneyiniz.

Private Sub CommandButton1_Click()
    Dim SilNo As Variant
    Dim Say As Long
    Say = Cells(Rows.Count, "A").End(xlUp).Row - 1
    SilNo = InputBox("Lütfen silmk istediğiniz sıra no giriniz" & vbLf & "1-" & Say & " arası bir rakam girebilirsiniz.")
    If SilNo = "" Then
        Exit Sub
    ElseIf Not IsNumeric(SilNo) Or SilNo > Say Then
        MsgBox "Lütfen 1-" & Say & " arası bir rakam giriniz."
        Exit Sub
    End If
    SilNo = 1 + SilNo
    Range("A" & SilNo & ":E" & SilNo).Delete xlShiftUp
End Sub

 

[balanar]

Hiçbirşey yapmadan Cancel 'e ba sıldıgında debug hatası ekranı cıkarıyor.. Direk formu kapattırma imkanımız olmazmı hocam

 

[Muzaffer Ali]

Kodu düzelttim tekrar deneyin.

 

[balanar]

çok teşekkür ediyorumm