Değişken Metinsel İfadenin Geçtiği Satırı Bulup Silmek

[ToHaNS]

Arkadaşlar, Hesaplayıcı sayfasının b4 hücresindeki geçen metinsel değeri Kullanıcılar sayfasında bularak bulunduğu satırı (satır numarası ile birlikte sadece içeriğini değil) tamamen silmesini sağlamak istiyorum. Yapmaya çalıştım yapamadım yardımcı olur musunuz?

Sub Kullanıcı_Sil()

ActiveSheet.Unprotect Password:="PinKod"
    If [d5].Value = "Hesaplama YAPILABİLİR" Then
    MsgBox "Bu Kişi adına silinebilecek bir kayıt bulunamadı. Lütfen bilgileri kontrol ediniz.", vbInformation, "Kayıt Bulunamadı"
    Else
    If [B4] = "" Then
    MsgBox ("Lütfen kaydını silmek istediğiniz kişinin 'Ad Soyad' bilgisini giriniz"), vbInformation, " Ad Soyad Giriniz"
    [B4].Select
Else

    Dim Kişi As String
    Kişi = Sheets("Hesaplayıcı").Range("b4")
    Satır1 = Kişi
    Satır2 = "Kullanıcısına ait tüm veriler silinecek. Bu işlem geri alınamaz."
    Satır3 = "Onaylıyor musunuz?"
    If MsgBox(Satır1 & vbCrLf & Satır2 & vbCrLf & Satır3, vbYesNo + vbQuestion, "LÜTFEN DiKKAT") = vbYes Then
    Worksheets("Kullanıcılar").Visible = xlSheetVisible
    Sheets("Kullanıcılar").Activate
    ActiveSheet.Unprotect Password:="PinKod"
    
    ' Bu adımda Aktif sheet içinde Kişi değişkeninin değerini arayıp bulduğu satırı komple seçip silmesini sağlamak istiyorum
    '
    ' ya da şöyle anlatayım
    '
    ' "Hesaplayıcı" isimli sayfanın b4 hücresindeki değeri "Kullanıcılar" sayfasındaki b sütununda arayıp bulduğu satır numarasını
    ' satırın tamamıyla birlikte silmesini sağlamak istiyorum
    
    
    Sheets("Hesaplayıcı").Activate
    Range("B4").Select
    Selection.ClearContents
    Kill ThisWorkbook.Path & "\" & Kişi & ".xlsm"
    MsgBox "Kullanıcı Kaydı Silindi ve yaptığınız değişiklikler başarı ile kayıt edildi.", vbInformation, " SİLME İŞLEMİ BAŞARILI"
Else
Exit Sub
    
End If
End If
End If
End Sub

 

[PLİNT]

Merhaba
"Kullanıcılar" sayfasında "kişi" nin aranacağı sütunun "B" olabileceği varsayılarak aşağıdaki işaret aralığındaki satırları ekleyip denermisiniz?

   '...
   '...kodlar
   '.....'
 
   Worksheets("Kullanıcılar").Visible = xlSheetVisible
    Sheets("Kullanıcılar").Activate
    ActiveSheet.Unprotect Password:="PinKod"
    '------------------
    Dim ara As Range
   With Sheets("Kullanıcılar")
   x = .Cells(Rows.Count, "B").End(3).Row
   Set ara = .Range("B1:B" & x).Find(Trim(Kişi), , xlValues, xlWhole, , False, False, False)
   If Not ara Is Nothing Then
   .Rows(ara.Row).Delete
   Else
   MsgBox "Aranan kişi bulunamadı"
   End If
   End With
   '-------------------
    Sheets("Hesaplayıcı").Activate
    Range("B4").Select
    '...
    '...diğer kodlar

 

[ToHaNS]

Merhaba
"Kullanıcılar" sayfasında "kişi" nin aranacağı sütunun "B" olabileceği varsayılarak aşağıdaki işaret aralığındaki satırları ekleyip denermisiniz?

   '...
   '...kodlar
   '.....'

   Worksheets("Kullanıcılar").Visible = xlSheetVisible
    Sheets("Kullanıcılar").Activate
    ActiveSheet.Unprotect Password:="PinKod"
    '------------------
    Dim ara As Range
   With Sheets("Kullanıcılar")
   x = .Cells(Rows.Count, "B").End(3).Row
   Set ara = .Range("B1:B" & x).Find(Trim(Kişi), , xlValues, xlWhole, , False, False, False)
   If Not ara Is Nothing Then
   .Rows(ara.Row).Delete
   Else
   MsgBox "Aranan kişi bulunamadı"
   End If
   End With
   '-------------------
    Sheets("Hesaplayıcı").Activate
    Range("B4").Select
    '...
    '...diğer kodlar

Hocam Allah Razı olsun. Sorunsuz bir şekilde çalışıyor çok teşekkür ederim. Zaten benim kapasitemin üzerinde ve benim için karmaşık bir kodmuş Hazır kodları oku oku bir iki tane terim öğrendik activate, select, if, elif falan daha 40 fırın ekmek yemem lazım Tekrar teşekkür ediyorum.

 

[PLİNT]

Rica ederim, Allah sizdende razı olsun.
Gözünüzü korkutmayın, uğraştıkça öğrenir o kadarda zor olmadığını görürsünüz