Formülsüz hücre sil ve "On error resume next"

[patdizz]

Merhaba,

Sheets(sayfa(sıra)).Rows("5").SpecialCells(xlCellTypeConstants, 3).ClearContents

ile formülsüz hücreleri silmek istiyorum, eğer halihazırda hücre yoksa "hiçbir hücre bulunamadı" hatası veriyor. Eğer hücre yoksa da hata vermemesi için "on error resume next" komutunu sadece bu satır için çalıştırmam mümkün mü? Ya da yukarıdaki formülün bir alternatifi var mıdır?

Teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki gibi kullanabilirsiniz.

On Error Resume Next
Sheets(sayfa(sıra)).Rows("5").SpecialCells(xlCellTypeConstants, 3).ClearContents
If Err.Number = 1004 Then MsgBox "Silinecek hücre bulunamadı."

 

[patdizz]

Çok teşekkür ederim Levent Bey.