HATALI KOD

[BYSERTTAS]

Bilenler için Çok Basit ancak benimgibi acemiler için oldukca zor bir sorum var.
Aşağıdaki kod ile InputBox a girilen değere göre (Kayıt Id Numarası) İle Arama yapıp Bulunan Kayıt Satırını Silmek İstiyorum. Bunu Yaparken Şu Soruyu sorarak yamak istiyorum. "InputBox a girilen değer" Numaralı Kayıt Kalıcı Olarak Silinecektir.Onaylıyormusunuz ?
Şöyleki: 15 Numaralı Id yi aradığımı var sayarsak ve kayıt bulunduysa "15 Id Numaralı kayıt kalici olarak Silin ececek. onaylıyormusunuz?

Kodum Şu şekilde:

Aranan = InputBox("ID NUMARSI GİRİNİZ...", " ARAMA İŞLEMİ")
WsArşiv.Range("AX:AX").Find(Aranan).Select

Sor = KayıtId.Value & "Id Numaralı Kaydı Kalıcı Olarak Silinsin Mi?"
Call SoruMesajı
If Cevap = vbNo Then Exit Sub

If KayıtId = "" Then
BilgiMesajı ("ID Numarası Girmediniz." & vbNewLine & "Kayıt Silinemedi")
Exit Sub
End If
On Error Resume Next
If Err.Number > 0 Then
BilgiMesajı ("Aradığınız Kayıt Bulunamadı" & vbNewLine & "Kayıt Silinemedi")
Else
SilinecekSatır = ActiveCell.Row
WsArşiv.Rows(SilinecekSatır).Delete

BilgiMesajı ("Kayıt Silindi")
End If
End Sub

 

[Korhan Ayhan]

Aşağıdaki kod yapısını kendinize uyarlayınız...

Sub Test()
    Dim Onay As Byte, Aranan As Variant

    Aranan = InputBox("ID NUMARSI GİRİNİZ...", " ARAMA İŞLEMİ")
    WsArşiv.Range("AX:AX").Find(Aranan).Select

    Onay = MsgBox(Aranan & " numaralı kayıt kalıcı olarak silinecektir!" & vbCrLf & _
           "İşlemi onaylıyor musunuz?", vbCritical + vbYesNo + vbDefaultButton2)
    If Onay = vbNo Then Exit Sub
End Sub

 

[BYSERTTAS]

Aşağıdaki kod yapısını kendinize uyarlayınız...

Sub Test()
    Dim Onay As Byte, Aranan As Variant

    Aranan = InputBox("ID NUMARSI GİRİNİZ...", " ARAMA İŞLEMİ")
    WsArşiv.Range("AX:AX").Find(Aranan).Select

    Onay = MsgBox(Aranan & " numaralı kayıt kalıcı olarak silinecektir!" & vbCrLf & _
           "İşlemi onaylıyor musunuz?", vbCritical + vbYesNo + vbDefaultButton2)
    If Onay = vbNo Then Exit Sub
End Sub

çok sağ olun üstad. şükranlarımı sunuyorum.