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

[Leoncio]

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

 

[Recep İpek]

Sub formulleri_renklendir()
[b]On Error Resume Next[/b]
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 4
End Sub

olarak deneyiniz.

 

[Leoncio]

Tamam. Teşekkürler.

 

[Seyit Tiken]

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.