Hücreye Yazılan Kayıt No'suna Göre Satır Silme

[officer08]

Sayfa1 de B2 hücresine kayıt nosu girilip KAYIT SİL butonuna basınca Sayfa 2 de A2 A3 A4.... şeklinde sıralanan kayıt numaralarından ilgili olan satır silinecek ve devamında gelen kayın numaraları yeniden otomatik sıralanacak. aşağıya örnek exceli atıyorum. Şimdiden yardımlarınız için teşekkür ederim.

ornek.xlsx dosyasını indir - download

ornek.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodlar kullanın.

Sub Test()
    Dim Bul As Range
    Dim Bak As Long
    If Range("B2") = "" Then
        MsgBox "Lütfen önce silmek istediğiniz 'Kayıt No' giriniz."
        Range("B2").Select
        Exit Sub
    End If
    Set Bul = Worksheets("Sayfa2").Range("A:A").Find(what:=Range("B2"), lookat:=xlWhole)
    If Bul Is Nothing Then
        MsgBox "Aradığınız 'Kayıt No' bulunamadı. Lütfen kontrol ederek yeniden deneyiniz."
        Range("B2").Select
        Exit Sub
    Else
        With Worksheets("Sayfa2")
            .Rows(Bul.Row).Delete
            Range("B2") = ""
            For Bak = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
                .Cells(Bak, "A") = Bak - 1
            Next
        End With
    End If
End Sub

 

[officer08]

Teşekkür ederim cevabınız için ancak sayfa 1 in kod bölümüne yapıştırdım fakat olmadı

 

[Muzaffer Ali]

Dosya ekte.

ornek__3_.xlsm dosyasını indir - download

ornek__3_.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[officer08]

Muzaffer Bey sizinki çok güzel çalışıyor sanırım ben bir yerde hata yaptım sizin örneğe göre birdaha bakayım sağolun istediğim tam da bu.

 

[muysun35]

Satırı silmek için dener misin;
Sub sil ()
Dim bul As Range
For Each bul In Worksheets("Sayfa2").Range("a2:a" & Sheets("Sayfa2").Range("a65536").End(3).Row)
If Not bul Is Nothing And bul.Value = Sheets("Sayfa1").Range("B2").Text Then
Sheets("Sayfa2").Rows(bul.Row).Delete Shift:=xlUp
End If
Next
MsgBox "Başarıyla Silindi"
End Sub

 

[muysun35]

Üstad cevap vermiş zaten ara, bul, satır sil için yukarıdaki makro kullanılabilir. İhtiyacı olan varsa