run time error 1004 application-defined or object-defined error

[puslukurt]

Merhaba Arkadaşlar.

Aşağıda kullandığım bir makro var. bu makronun görevi; giriş sayfası ve 12 ay'ı temsil eden 13 sayfam var bu giriş sayfasının b2 hücresine tarih giriyorum. b3 sayfasına müşterinin nosunu giriyorum. b4 hücresine de müşterinin aldığı miktarı girip, makroyu çalıştırdığımda b2 hücresine yazdığım tarihin hücresini bulup oraya yazıyor. yani b2 hücresine 17/10/2012 yazdığımda 10 aydaki 17 günü müşterinin numarası hangi hücreye geliyorsa orayı buluyor. şimdi gelelim probleme;
giriş sayfasındaki b2 hücresine tarih, b3 hücresine müşteri nosunu b4 hücresinede miktarı yazdığımda bazen "Run Time 1004 ""application-defined or object-defined error" hatası veriyor. bazen derken b3 hücresine 5 rakamlı müşteri numarası yazdığında keşfettim 4 rakamlı olduğunda çalışıyor fakat 5 rakamlı oldumu çalışmıyor. çok uğraştım bulamadım yardımlarınıza ihtiyacım var değerli arkadaşlarım. şimdiden teşekkürler.



Sub gönder()
Dim syf As String, sat As Long, sut As Integer, c As Range

Application.ScreenUpdating = False

syf = Month(Range("B2")) 'tarih

With Sheets(syf)

Set c = .Range("A:A").Find(Range("B3"), , xlValues, xlWhole) 'müşteri no
If Not c Is Nothing Then
sat = c.Row
End If

Set c = .Rows(3).Find(Range("B2"), , xlValues, xlWhole) 'tarih
If Not c Is Nothing Then
sut = c.Column
End If

.Cells(sat, sut) = Range("B4")
End With

Range("B3:B4").ClearContents 'müşteri no ve miktar
MsgBox "Aktarım Yapıldı",
Application.ScreenUpdating = True
End Sub