Silme İşlemi

[ahmedummu]

Merhaba arkadaşlar.

Ekte gönderdiğim dosyada silme işlemi yaparken. userform1 üzerindeki listbox1'den Seçtiğim kişiyi, ÇİZELGE sayfasında doğru (kişiyi) siliyor. Fakat ÜBORD, AGİ ve ÜBL sayfalarında seçtiğim kişinin bir altındaki kişiyi siliyor. Kodlar userform1 üzerindeki commandbutton4'te (kırmızı zemin renkli butonda) Şu an ÇİZELGE, ÜBORD, AGİ ve ÜBL sayfalarında silme işlemini gerçekleştiren kod (Selection.EntireRow.Delete)pasif durumda. Bu hali ile kodu adım adım çalıştırdığımda sayfalarda doğru kişiyi seçiyor. Silme işlemine gelince doğru çalışmıyor. Yukarıda belirttiğim gibi yanlış kişiyi siliyor. Yardımcı olursanız sevinirim.

 

[ahmedummu]

Dosya ektedir.

 

[Muzaffer Ali]

Puantaj silme işlemi yaptığınızda ListBox1 dan da siliniyor.
Bu sebepten dolayı ListBox ta bir sonraki satır seçili oluyor.
Dolayısı ile, diğer sayfalardan da bir sonraki satır silinmiş oluyor.

Hatayı düzeltmek için aşağıdaki (Puantajdan silme) kodlarını kodların en altına alın.
Kodlarınızın yeni hali aşağıdaki gibi olmalı

Private Sub CommandButton4_Click()
    'BORDRODAN SİLME İŞLEMİ YAPIYOR
    On Error Resume Next
    Sheets("ÜBORD").Select
    Range("b6").Select
    For sut = 6 To [b65000].End(xlUp).Row
        If Range("a" & sut) Like UserForm1.ListBox1.Value Then
            Range("b" & sut).Select
            Exit For
        End If
    Next sut
    Selection.EntireRow.Delete
    
    'ASGARİ GEÇİM İNDİRİMİ BORDROSUNDAN SİLME YAPIYOR
    On Error Resume Next

    Sheets("AGİ").Select
    Range("b5").Select
    For sut = 5 To [b65000].End(xlUp).Row
        If Range("a" & sut) Like UserForm1.ListBox1.Value Then
            Range("b" & sut).Select
            Exit For
        End If
    Next sut
    Selection.EntireRow.Delete
    
    'BANKA LİSTESİNDEN SİLME İŞLEMİ YAPIYOR
    On Error Resume Next
    Sheets("ÜBL").Select
    Range("b5").Select
    For sut = 5 To [b65000].End(xlUp).Row
        If Range("a" & sut) Like UserForm1.ListBox1.Value Then
            Range("b" & sut).Select
            Exit For
        End If
    Next sut
    Selection.EntireRow.Delete
    
    'PUANTAJDAN SİLME İŞLEMİ YAPIYOR
    Sheets("ÇİZELGE").Select
    Range("b5").Select
    On Error Resume Next
    For sut = 5 To [b65000].End(xlUp).Row
        If Range("a" & sut) Like UserForm1.ListBox1.Value Then
            Range("b" & sut).Select
            Exit For
        End If
    Next sut
    Selection.EntireRow.Delete
End Sub

 

[ahmedummu]

Çok teşekkür ederim. Sorun düzeldi. Birkaç gündür rahatsızdım geç cevap verdim. Kusura bakmayın.