İsteğe göre (butonla) satır silme

[ASLAN7410]

Merhaba hayırlı günler.

Ekte gönderdiğim KAYIT isimli dosyamın VERİ isimli sayfasında bir buton var,
bu butona bastığımda ARŞİV sayfasındaki B sütununda bulunan numaralardan
birisini yazdığımda, B sütunu ile R sütunu arasındaki bu numaraya ait satırı silmek istiyorum.

Yapmaya çalıştım ancak olmadı.

Araştırdım ancak böyle bir çalışma bulamadım. Yardımcı olur musunuz?

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi olabilir.
.

[FONT="Arial Narrow"][B]Sub Sil()[/B]
Set ar = Sheets("ARŞİV")
    Satır = Application.InputBox("Silmek istediğiniz SUÇ NO yazın.", "ASLAN", 1, 1)
[COLOR="Blue"]    If Satır = False Then Exit Sub[/COLOR]
[COLOR="Red"]    If Satır = False Then
        MsgBox "Silme İşleminden vazgeçildi..", vbInformation, "..:: ASLAN ::..": Exit Sub
    End If[/COLOR]
    If WorksheetFunction.CountIf(Sheets("ARŞİV").[B:B], 0 + Satır) > 0 Then
        sat = WorksheetFunction.Match(0 + Satır, ar.[B:B], 0)
        ar.Range(ar.Cells(sat, "B"), ar.Cells(sat, "R")).Delete Shift:=xlUp
        MsgBox Satır & " numaralı satır silindi..", vbInformation, "..:: ASLAN ::.."
    Else
        MsgBox "Yazdığınız SUÇ NO bulunamadı!..."
    End If
[B]End Sub[/B][/FONT]

 

[ASLAN7410]

Sayın Ömer Bey ilginiz için çok teşekkür ederim.

Tam istediğim gibi çalışıyor, ellerinize sağlık Allah razı olsun.
Hayırlı çalışmalar hayırlı günler diliyorum.

 

[Ömer BARAN]

Sayın Ömer Bey ilginiz için çok teşekkür ederim.

Tam istediğim gibi çalışıyor, ellerinize sağlık Allah razı olsun.
Hayırlı çalışmalar hayırlı günler diliyorum.

Kolay gelsin.
.

 

[ASLAN7410]

Sayın Ömer Bey rahatsız ediyorum.

Silmek istediğim suç noyu olmayan bir numara yazdığımda suç no bulunamadı diyor burası gayet güzel olmuş.

Ancak yeni fark ettim, ekrana gelen mesajda iptal butonuna bastığımda suç no bulunamadı diyor, bu şekilde değilde, iptal butonuna bastığımda silmekten vazgeçildi şeklinde yapabilir misiniz?

 

[Ömer BARAN]

Önceki kod cevabımda değişiklik yaptım.
Sayfayı yenileyerek önceki cevabımı kontrol ediniz.

Eklediğim mavi veya kırmızı satırları kullanabilirsiniz.

-- Sadece mavi renklendirdiğim satırı eklerseniz, işlem yapılmadan kod sonlandırılır,
-- Sadece kırmızı olan satırları eklerseniz, istediğiniz gibi bir MsgBox görüntülenir.
.

 

[ASLAN7410]

Sayın Ömer Bey çok çok teşekkür ederim, şimdi tam istediğim gibi oldu.

Allah razı olsun, hayırlı çalışmalar hayırlı günler diliyorum.