Makro ile formül silme

[ali_kilicarslan]

Arkadaşlar kolay gelsin,
bir excell dosyam var içinde bazı formüller var bu formülleri belirli tarihlerde yada sadece tek bir tarihte (birden çok tarih olursa iyi olur) otomatik olarak silen bir makroya ihtiyacım var yardımcı olurmusunuz?
Örneğin 01.09.2011 ve 15.09.2011 de dosya içindeki formüller otomatik olarak silinsin böyle bir kod yazılabilirmi bilgisi olan var mı?
yardımlarınız için şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Sorunuzu örnek dosya ile destekler misiniz?

 

[ali_kilicarslan]

Örnek dosya ektedir.

 

[İhsan Tank]

Örnek dosya ektedir.

merhaba
H sütununda bulunan tarihlerde otomatik formülleri siler

Option Explicit
Sub formül_sil()
Dim ts
For ts = 1 To Cells(65536, "H").End(xlUp).Row
If Cells(ts, "H") = Date Then
Range("C8:C10").ClearContents
End If
Next
End Sub

bunu dilerseniz
otomatik kitap açılışı içinde yazabilirsiniz

Option Explicit
Sub auto_open()
Dim ts
For ts = 1 To Cells(65536, "H").End(xlUp).Row
If Cells(ts, "H") = Date Then
Range("C8:C10").ClearContents
End If
Next
End Sub

bu kodlardan birini boş bir module kopyalayarak deneyiniz

 

[Ömer]

Arkadaşlar kolay gelsin,
bir excell dosyam var içinde bazı formüller var bu formülleri belirli tarihlerde yada sadece tek bir tarihte (birden çok tarih olursa iyi olur) otomatik olarak silen bir makroya ihtiyacım var yardımcı olurmusunuz?
Örneğin 01.09.2011 ve 15.09.2011 de dosya içindeki formüller otomatik olarak silinsin böyle bir kod yazılabilirmi bilgisi olan var mı?
yardımlarınız için şimdiden teşekkürler.

Merhaba,

ThisWorbook kod sayfasına kopyalayınız.

Kodlardaki tarih dizisine eklemek istediğiniz tarihleri yazarsınız. Kodlar excel çalışmanızın açılışında çalışacağı için tarihleri dikkatli seçmenizi öneririm.

Eğer açılışta çalışmasında sakınca görürseniz, kod başlığını değiştirerek kodları standart bir module alıp buton ile çalıştırırsınız.

Private Sub Workbook_Open()
 
    Dim i As Integer, dz As Integer, tarih
 
    tarih = Array("01.09.2011", "17.09.2011", "08.12.2011", "27.08.2011")
 
    On Error Resume Next
 
    For dz = 0 To UBound(tarih)
        If Date = CDate(tarih(dz)) Then
            For i = 1 To Worksheets.Count
                With Sheets(i)
                    .Unprotect "[COLOR=red]a[/COLOR]"
                    .Cells.SpecialCells(xlCellTypeFormulas, 23).ClearContents
                    .Protect "[COLOR=red]a[/COLOR]"
                End With
            Next i
        End If
    Next dz
 
End Sub

.

 

[ali_kilicarslan]

Merhaba,

ThisWorbook kod sayfasına kopyalayınız.

Kodlardaki tarih dizisine eklemek istediğiniz tarihleri yazarsınız. Kodlar excel çalışmanızın açılışında çalışacağı için tarihleri dikkatli seçmenizi öneririm.

Eğer açılışta çalışmasında sakınca görürseniz, kod başlığını değiştirerek kodları standart bir module alıp buton ile çalıştırırsınız.

Private Sub Workbook_Open()
 
    Dim i As Integer, dz As Integer, tarih
 
    tarih = Array("01.09.2011", "17.09.2011", "08.12.2011", "27.08.2011")
 
    On Error Resume Next
 
    For dz = 0 To UBound(tarih)
        If Date = CDate(tarih(dz)) Then
            For i = 1 To Worksheets.Count
                Sheets(i).Cells.SpecialCells(xlCellTypeFormulas, _
                                            23).ClearContents
            Next i
        End If
    Next dz
 
End Sub

.

Hocam çok güzel olmuş ellerinize sağlık tabi diğer cevap veren hocam içinde geçerli bu dileklerim.
Peki son bi sorum olacak hocam bu sayfalarda sayfa koruması varsa nasıl sildireceğiz böyle bir imkan varmı ?

 

[Ömer]

Hocam çok güzel olmuş ellerinize sağlık tabi diğer cevap veren hocam içinde geçerli bu dileklerim.
Peki son bi sorum olacak hocam bu sayfalarda sayfa koruması varsa nasıl sildireceğiz böyle bir imkan varmı ?

#5 numaralı mesajı düzenledim. Yeni kodları deneyiniz.

Kodlardaki kırmızı işaretli bölümler ( a ) şifredir. Bu bölümleri kendi şifrenizle değiştiriniz.

.

 

[ali_kilicarslan]

#5 numaralı mesajı düzenledim. Yeni kodları deneyiniz.

Kodlardaki kırmızı işaretli bölümler ( a ) şifredir. Bu bölümleri kendi şifrenizle değiştiriniz.

.

Hocam istediğim tam olarak buydu elleriniz dert görmesin teşekkürler.