Overflow Hatası

[steppe]

Merhaba Arkadaşlar,
Aşağıdaki kodu çalıştırdığımda overflow hatası alıyorum.Yadrdımlarınız için şimdiden teşekkür ederim.

Sub error_sil()
For i = 1 To Cells(Rows.Count, 1).End(3).Row
If Cells(i, 1) Like "*ERROR*" Then
Cells(i, 1).EntireRow.Delete
End If
Next
End Sub

 

[bmutlu966]

Aşağıdaki şekilde deneyin.

Sub error_sil()
For i =  Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If Cells(i, 1) Like "*ERROR*" Then
Cells(i, 1).EntireRow.Delete
End If
Next
End Sub

 

[steppe]

bmutlu966 Kardeş,
İlginiz için çok teşekkür ederim. Yalnız kod aynı hatayı verdi.

 

[Orion1]

Deneyiniz.

If IsError(Cells(i, 1).Value) Then

 

[steppe]

Orion Hocam,
Satırı değişik şekilde uyguladım fakat aynı hatayı aldım.
Hücre içinde ERROR kelimesi geçen satırı silmek istemiştim.

 

[Orion1]

Dosyanızın örneğini yollayın bakayım.

 

[steppe]

Orion Hocam,
Dosya ektedir.

 

[Orion1]

Aşağıdaki gibi düzenleyince oldu.,
Aslında ben bunu size yazmıştım.

Sub error_sil()
For i = Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If Cells(i, 1) Like "*ERROR*" Then
Cells(i, 1).EntireRow.Delete
End If
Next
End Sub

 

[steppe]

Hocam,
Yardımlarınız için çok teşekkür ederim. Gönderdiğim örnek dosyada çalışıyor. Yalnız orjinal dosyada çalışmadı.

 

[Orion1]

Hocam,
Yardımlarınız için çok teşekkür ederim. Gönderdiğim örnek dosyada çalışıyor. Yalnız orjinal dosyada çalışmadı.

ERROR yazan yeri yan sütunda olabilir.

 

[steppe]

Orion Hocam,
Problem hücre formatlarından kaynaklanıyormuş. Hücre formatlarını general yapınca kod çalıştı.
iyi akşamlar.