Takvim Nesnesine Bağlı olarak İlgili Hücrelerdeki Verileri Silme

[teknadir]

Herhangi bir tarihe ait girilen verilerin tamamının silinip yeniden giriş yapılması istenildiği takdirde bir buton yardımı ile takvim nesnesinde belirtilen tarihe ait "liste" sekmesindeki ilgili sütunda yer alan verileri önce uyarı vererek silecek bir koda ihtiyacım var. Daha önce Korhan Ayhan Bey'in vermiş olduğu kodları uyarlamaya çalıştım ama beceremedim.

 

[Korhan Ayhan]

Merhaba,

Formunuzun üstüne bir buton ekledim. Ve butona aşağıdaki kodu uyguladım.

Private Sub CommandButton[COLOR=red]84[/COLOR]_Click()
    Dim S1 As Worksheet, Y As Integer
    Dim Tarih As Range, Bul As Range
    
    Set S1 = Sheets("liste")
    Set Tarih = S1.Rows("1:1").Find(Calendar1.Value)
    If Not Tarih Is Nothing Then
        Y = Tarih.Column
        
        If MsgBox(Calendar1.Value & " tarihine ait veriler silinecektir !" & Chr(10) & _
        "İşlemi onaylıyor musunuz?", vbCritical + vbYesNo, "Dikkat !") = vbNo Then Exit Sub
        
        S1.Range(Cells(2, Y), Cells(326, Y)).ClearContents
        MsgBox "Silem işlemi tamamlanmıştır.", vbInformation
    Else
        MsgBox Calendar1.Value & " tarihi bulunamadı !", vbCritical
    End If
    
    Set Tarih = Nothing
    Set S1 = Nothing
End Sub

 

[teknadir]

Hata veriyor.
Run-time eror '1004':
Method 'Range' of object'_Worksheet' failed

Private Sub CommandButton84_Click()
Dim S1 As Worksheet, Y As Integer
Dim Tarih As Range, Bul As Range

Set S1 = Sheets("liste")
Set Tarih = S1.Rows("1:1").Find(Calendar1.Value)
If Not Tarih Is Nothing Then
Y = Tarih.Column

If MsgBox(Calendar1.Value & " tarihine ait veriler silinecektir !" & Chr(10) & _
"İşlemi onaylıyor musunuz?", vbCritical + vbYesNo, "Dikkat !") = vbNo Then Exit Sub

S1.Range(Cells(2, Y), Cells(326, Y)).ClearContents
MsgBox "Silme işlemi tamamlanmıştır.", vbInformation
Else
MsgBox Calendar1.Value & " tarihi bulunamadı !", vbCritical
End If

Set Tarih = Nothing
Set S1 = Nothing
End Sub

 

[Korhan Ayhan]

Merhaba,

Hata veren satırı aşağıdaki şekilde değiştirin.

[COLOR=#ff0000]S1.Range(S1.Cells(2, Y), S1.Cells(326, Y)).ClearContents

[/COLOR]

 

[teknadir]

Excel kadar harikasınız...