döngüde hata

[enderturk]

Merhaba üstadlar,

anlam veremediğim bir döngü hatam var ne kadar evirip çevirdiysem sorununu bulamadım.

"aynı değerler" ile bazen 3. bazen 4. bazen de 5. turunda hata veriyor hata satırı:

Sheets("FM_HAK").Cells(kaysat, kaysut).Value = Sheets("FM_HAK").Cells(kaysat, kaysut).Value + Sheets("FM_Giris").Cells(x, 5).Value

hata sebebi ise kaysat=empty olması ki bu imkansız döngünün başında bunu doldurması lazım ve hata verince aynı değerler ile tekrarlanan 5-6 döngüden sadece 3.den sonra hata veriyor. Hata olsa idi 1 ve 2. turları yapmazdı çünkü veriler aynı. Dosyam 45 mb olduğu için ekleyemiyorum ancak aşağıda döngü bulunmakta. if-end if arasını dikkate almayın çünkü kaysat değeri "EKLE" değil.


For x = 7 To sonx

bas:
kaysat = Cells(x, 8).Value

If kaysat = "EKLE" Then
Sheets("FM_HAK").Activate
Sheets("FM_HAK").Cells(3, 2).Select
ActiveSheet.Unprotect
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
ActiveSheet.Range("a:fdg").EntireColumn.Hidden = False
sony = WorksheetFunction.CountA(Sheets("FM_HAK").Range("b4:b1000000")) + 4
Sheets("FM_HAK").Cells(sony, 2).Value = Sheets("FM_Giris").Cells(x, 2).Value
Sheets("FM_HAK").Cells(sony, 3).Value = Sheets("FM_Giris").Cells(x, 3).Value & " " & Sheets("FM_Giris").Cells(x, 4).Value
Sheets("FM_HAK").Cells(sony, 4).FormulaR1C1 = "=IFERROR(IF(LEFT(RC[-2],1)=""O"",VLOOKUP(RC[-2],ort_pers!C[-1]:C[2],4,0),VLOOKUP(TEXT(RC[-2],""00000""),pers_liste!C[-1]:C[2],4,0)),"""")"
Call fmsuz
Call fmgoster
Sheets("FM_Giris").Activate
Sheets("FM_Giris").Range("b7").Select
GoTo bas
End If

Sheets("FM_HAK").Unprotect
Sheets("FM_HAK").Cells(kaysat, kaysut).Value = Sheets("FM_HAK").Cells(kaysat, kaysut).Value + Sheets("FM_Giris").Cells(x, 5).Value
Sheets("FM_HAK").Cells(kaysat, topla).Value = Sheets("FM_HAK").Cells(kaysat, topla).Value + Sheets("FM_Giris").Cells(x, 5).Value
Sheets("FM_HAK").Protect

Next

Yardımlarınız için şimdiden teşekkürler.