overflow

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

5. sütuna bir tarihin günü yazıldığında (örneğin 05.12.2019 yerine 5) ay ve seneyi bularak tarih tamamlanmak isteniyor. yani 5 yazıp enter'a basıldığında aktif hücrenin satır numarasından yola çıkarak 1. sütunda FATURA kelimesinin olduğu hücreyi bulacak. bu hücrenin bir sağında ay (12), iki...