Hatanın kaynağını anlayamadım

[asilacar]

For i = 2 To rwcount
If Cells(i, 53) <> 0 And Cells(i, 54) <> 0 Then
Worksheets("CODE_GENERATOR").Range(Cells(4, 2), Cells(4, 40)).Copy
Worksheets("BKF_gn").Range(Cells(i, 2), Cells(i, 40)).Paste
Worksheets("CODE_GENERATOR").Range(Cells(3, 2), Cells(3, 40)).Copy
Worksheets("BKF_gn").Range(Cells(i + 1, 2), Cells(i + 1, 40)).Paste
i = i + 1
rwcount = rwcount + 1
ElseIf Cells(i, 53) <> 0 Then
* Worksheets("CODE_GENERATOR").Range(Cells(3, 2), Cells(3, 40)).Copy
Worksheets("BKF_gn").Range(Cells(i + 1, 2), Cells(i + 1, 40)).Paste
Else
Worksheets("CODE_GENERATOR").Range(Cells(4, 2), Cells(4, 40)).Copy
Worksheets("BKF_gn").Range(Cells(i, 2), Cells(i, 40)).Paste
End If
Next


Döngüsünü oluşturdum fakat * ile işaretli satıra gelince application or object defined error deyip kesiyor bir türlü çıkaramadım hatayı yardımcı olabilir misiniz?

 

[Ferhat Pazarçevirdi]

Merhabalar,

If-End If blo&#287;unuzda, bir mant&#305;k hatas&#305; var. Bu mu neden olur kesin olarak bilemiyorum ama d&#252;zeltip deneyiniz.

cells(i,53)<>0 &#351;art&#305; her iki ko&#351;uldada True olabilir.

If'le ba&#351;layan sat&#305;r&#305;n&#305;z da do&#287;ru olabilir, ElseIf'le ba&#351;layan sat&#305;r&#305;n&#305;z da ...

Blok bu nedenle, hata veriyor olabilir. Cells(i,53)<>0 ifadesini bir daha kontrol edin derim.

 

[asilacar]

Te&#351;ekk&#252;rler bir bakay&#305;m kontrol edeyim hemen =)