Formül yoksa işlemi sonuçlandır.

Katılım
22 Mart 2005
Mesajlar
847
Excel Vers. ve Dili
Excel-2003 TR.
Altın Üyelik Bitiş Tarihi
29-06-2023
Merhaba;

Aşağıdaki kodlar ile aktif sayfa üzerindeki formüllü hücreleri renklendiriyorum. Fakat formül yoksa hata veriyor. Formül yok ise makro işlemi sonuçlandırsın.

Sub formulleri_renklendir()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 4
End Sub
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Kod:
Sub formulleri_renklendir()
[b]On Error Resume Next[/b]
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 4
End Sub
olarak deneyiniz.
 
Katılım
22 Mart 2005
Mesajlar
847
Excel Vers. ve Dili
Excel-2003 TR.
Altın Üyelik Bitiş Tarihi
29-06-2023
Tamam. Teşekkürler.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Bu şekilde bir deneyiniz Sayın, leventer

Sub Düğme1_Tıklat()
On Error Resume Next
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 4
End Sub

Sub Düğme3_Tıklat()
Cells.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 0
End Sub

Yada,

Sub Makro4()
On Error Resume Next
Cells.SpecialCells(xlCellTypeConstants, 3).Interior.ColorIndex = 0
End Sub

Deneyiniz.
 
Üst