hücrede formül varsa makro çalışmasın

[GursoyC]

Merhaba,
ekli örnek dosyamda görüleceği üzere, aktif sayfadaki L6 hücremde =today() formülü varsa commandbuton işe yaramasın istiyorum. düğmeye atadığım kod şu şekilde:

Sub temizle()
If ActiveSheet.Range("L6").Formula = "=today()" Then
MsgBox "Bu sayfada temizlik yapamazsınız!"
Else
ActiveSheet.ComboBox1.Value = ""
End If
End Sub

ancak çalışmıyor.
Hatası nerede yardım eder misiniz.

 

[muygun]

Merhaba;
Dosyanızı Türkçe Excel ile açtığım için formülde Türkçe'ye dönüştü yani
=BUGÜN()
oldu
Sizde makroda =today() yazan alanı hücrede yazdığı şekliyle aynı yapın. (yani büyükharf)
İyi çalışmalar.

 

[GursoyC]

Sayın muygun,
aynı şekilde =TODAY() yapmama rağmen maalesef düğme temizleme işlemini yapıyor.

 

[antonio]

Merhaba.
Kodu şu şekilde dener misiniz:

Sub temizle()
If ActiveSheet.Range("L6").Formula = "=TODAY()" Then
MsgBox "Bu sayfada temizlik yapamazsınız!"
Exit Sub
Else
ActiveSheet.ComboBox1.Value = ""
End If
End Sub

 

[GursoyC]

Evet bu kez oldu sayın Antonio.
Exit Sub kısmını atlamışım. Çok teşekkür ederim.
Saygılar,