- Katılım
- 2 Mayıs 2011
- Mesajlar
- 33
- Excel Vers. ve Dili
- 2010
- Altın Üyelik Bitiş Tarihi
- 30-10-2020
Merhaba arkadaşlar ve değerli üstadlar;
Aşağıdaki koddaki gibi mevcut sayfada bulunduğumda excel sayfasındaki silme işlemini gerçekleştirebiliyorum. Fakat benim istediğim başka bir sayfadayken bunu nasıl yapacağım.
Mesela Sayfa2'deki verileri Sayfa2'de bulunurken aşağıdaki kod yardımıyla silebiliyorken Sayfa1'de bulunduğumda bunu nasıl gerçekleştirebilirim?
Aşağıdaki koddaki gibi mevcut sayfada bulunduğumda excel sayfasındaki silme işlemini gerçekleştirebiliyorum. Fakat benim istediğim başka bir sayfadayken bunu nasıl yapacağım.
Mesela Sayfa2'deki verileri Sayfa2'de bulunurken aşağıdaki kod yardımıyla silebiliyorken Sayfa1'de bulunduğumda bunu nasıl gerçekleştirebilirim?
Kod:
Private Sub sil_Click()
If id.Value <> "" Then
Dim Komut As Integer
Dim Mesaj As String
Dim Baslik As String
Mesaj = adi_soyadi.Value & " adlı personel, veritabanından kaldırılacaktır." & vbLf & vbLf & "Bu işlemin geri dönüşü yoktur. Onaylıyor musunuz?"
Baslik = "Silme İşlemi"
Komut = MsgBox(Mesaj, vbYesNo + vbExclamation, Baslik)
If Komut = 6 Then
Rows(ActiveCell.Row).Delete
id.Value = ""
kurum_sicil.Value = ""
adi_soyadi.Value = ""
MsgBox "Personel veritabanından kalıcı olarak silinmiştir."
End If
Else
MsgBox "Öncelikle -Bul- butonu yardımıyla bir kayıt seçiniz.", vbExclamation
End If
End Sub