InputBox a girilen değeri Aranan olarak tanımlmak

[BYSERTTAS]

Selam arkadaşlar

InputBox ile kayıt arayıp silmek istiyorum.
Şöyleki :
inputbox acılınca bir değer gireceğim.( örneğin 5 girdim (5 Id Numarası) girdiğim bu değeri 1 sayfa "A:A" da arayacağım.
aranan yok ise "Kayıt Bulunamadı";
aranan bulunmuş ise: "kayıt bulundu silmek istediğinizden eminmisiniz..?" cevap evet ise, kaydı silip "5 Id Numaralı kayıt silindi" mesajı verecek.
cevap hayır ise cıkış yapacak.
Yardımcı olursanız minnettar kalırım.

 

[ÖmerFaruk]

Kendinize uyarlarsanız.

Sub KayıtAraSil()
    Dim Bulunan As Range
    Ara = InputBox("Aranacak ID değerini girin")
    Set Bulunan = Range("A:A").Find(Ara, , xlValues, xlWhole)
    If Not Bulunan Is Nothing Then
        Cevap = MsgBox(Bulunan.Value & " ID numaralı kaydı silmek istiyor musunuz", vbYesNo)
        If Cevap = 6 Then
            Bulunan.EntireRow.Delete
        Else
            Exit Sub
        End If
    Else
        MsgBox "Aranan ID Bulunamadı"
    End If
End Sub

 

[BYSERTTAS]

Kendinize uyarlarsanız.

Sub KayıtAraSil()
    Dim Bulunan As Range
    Ara = InputBox("Aranacak ID değerini girin")
    Set Bulunan = Range("A:A").Find(Ara, , xlValues, xlWhole)
    If Not Bulunan Is Nothing Then
        Cevap = MsgBox(Bulunan.Value & " ID numaralı kaydı silmek istiyor musunuz", vbYesNo)
        If Cevap = 6 Then
            Bulunan.EntireRow.Delete
        Else
            Exit Sub
        End If
    Else
        MsgBox "Aranan ID Bulunamadı"
    End If
End Sub

Üstadım harikasınız. ellerinize sağlık tam istediğim gib. Şükranlarımı sunuyorum