seddur
Altın Üye
- Katılım
- 12 Nisan 2012
- Mesajlar
- 531
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
- Altın Üyelik Bitiş Tarihi
- 18-12-2024
Merhabalar.Aşağıdaki kod ile Textbox19 daki isme ve Textbox2 deki tarihe göre ilgili satırın "C" sutunundaki veriyi siliyorum.Ancak aynı kodu farklı bir dosyada denediğimde sürekli olarak "Veri bulunamadı" hatası alıyorum.Sebebini bulamadım.Yardımcı olabilirseniz sevinirim.
Private Sub CommandButton39_Click()
Dim trh As Date, ara As String
trh = TextBox2
ara = TextBox19
Set c = [A:A].Find(ara, , xlValues, xlWhole)
If Not c Is Nothing Then
Adr = c.Address
Do
If Cells(c.Row, "B") = trh Then
Cells(c.Row, "C").ClearComments
s = 1
End If
Set c = [A:A].FindNext(c)
Loop While Not c Is Nothing And c.Address <> Adr
End If
If s = 1 Then
MsgBox "Açıklama Silindi", vbInformation
TextBox1 = Clear
Else
MsgBox "Veri Bulunamadı", vbInformation
End If
TextBox4 = ""
end sub
Private Sub CommandButton39_Click()
Dim trh As Date, ara As String
trh = TextBox2
ara = TextBox19
Set c = [A:A].Find(ara, , xlValues, xlWhole)
If Not c Is Nothing Then
Adr = c.Address
Do
If Cells(c.Row, "B") = trh Then
Cells(c.Row, "C").ClearComments
s = 1
End If
Set c = [A:A].FindNext(c)
Loop While Not c Is Nothing And c.Address <> Adr
End If
If s = 1 Then
MsgBox "Açıklama Silindi", vbInformation
TextBox1 = Clear
Else
MsgBox "Veri Bulunamadı", vbInformation
End If
TextBox4 = ""
end sub