Farklı Sayfalardan Silme..?

[unalh]

S.a Arkadaşlar,

Ekteki dosyada farklı üç sayfa var.

BorçluBilgi, Ödeme ve Liste diye bunlarda kodlara göre işlem yapılmakta benim yapmak istediğim BorçluSil formundan seçtiğim koda göre bu üç sayfadaki verileri silmek.

İlginize şimdiden teşekkür ederim

Hayırlı işler.

 

[unalh]

S,a Arkadaşlar olma ihtimali yokmudur acaba ???

 

[Korhan Ayhan]

Selamlar,

SİL isimli butonunuza aşağıdaki kodu uygulayıp denermisiniz.

Private Sub CommandButton1_Click()
    Dim SAYFA As Worksheet, X As Long, SAY As Long
 
    If TextBox1 <> "" Then
 
    SAY = WorksheetFunction.CountIf(Sheets("Liste").Range("R:R"), TextBox1) + WorksheetFunction.CountIf(Sheets("Ödeme").Range("N:N"), TextBox1)
 
    If SAY > 0 Then
 
    If MsgBox(TextBox1 & " koda ait " & SAY & " hareket kayıtlı ! Silmek istediğinize emin misiniz ?", vbCritical + vbYesNo) = vbYes Then
 
    For Each SAYFA In Worksheets
        Select Case SAYFA.Name
            Case Is = "Liste"
            For X = SAYFA.Range("A65536").End(3).Row To 2 Step -1
                If UCase(Replace(Replace(SAYFA.Cells(X, "R"), "ı", "I"), "i", "İ")) = _
                UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ")) Then
                SAYFA.Range("B" & X & ":S" & X).Delete
                End If
            Next
            Case Is = "Ödeme"
            For X = SAYFA.Range("A65536").End(3).Row To 2 Step -1
                If UCase(Replace(Replace(SAYFA.Cells(X, "N"), "ı", "I"), "i", "İ")) = _
                UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ")) Then
                SAYFA.Range("B" & X & ":O" & X).Delete
                End If
            Next
            Case Is = "BorçluBilgi"
            For X = SAYFA.Range("A65536").End(3).Row To 2 Step -1
                If UCase(Replace(Replace(SAYFA.Cells(X, "B"), "ı", "I"), "i", "İ")) = _
                UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ")) Then
                SAYFA.Range("B" & X & ":W" & X).Delete
                End If
            Next
        End Select
    Next
 
    ListView1.ListItems.Clear
    UserForm_Initialize
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
 
    Else
 
    MsgBox "İşleminiz iptal edilmiştir.", vbExclamation
 
    End If
 
    Else
 
    MsgBox "Silinecek kayıt bulunamamıştır.", vbExclamation
 
    End If
 
    End If
End Sub

 

[unalh]

S.a;

Korhan bey,
İlginize Çok teşekkür ederim
Kodları uyguladım sorunsuz bir şekilde çalışıyor.
Bu kodlar işimi görüyor daha estetik olması bakımından şöyle birşey yapılabilirmi SİL butonuna basınca Ödeme ve Liste sayfasında arama yapım B0001 koda ait hareket kayıtlı silmek istediğinize eminmisiniz diye bir sorgu eklenebilirmi? evet dersek silsin hayır dersek silmesin gibi.

Hayırlı Çalışmalar.

 

[unalh]

S.a

Birde şunu farkettim TextBox'a yazdığım kodu silmiyor Listwiev'den sırayla siliyor bunu düzeltme imkanı olabilirmi.

 

[unalh]

S.a;

Hocam Varmı bir gelişme ??

 

[unalh]

S.a;

Güncelleme.

 

[Korhan Ayhan]

Selamlar,

Verdiğiniz bilgilere göre üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[unalh]

S.a;

Korhan Hocam,

İlginize çok teşekkür ederim istediğim gibi oldu gayet güzel.
Yapmaya çalıştığım icra takip programı bitmek üzere bitince eleştri ve yorumlarınızı beklerim.

Hayırlı İşler.

 

[unalh]

Programdan birkaç ekran görüntüsü.