Makro Kodlarda Hata

[ysn159]

Sub deneme() For i = 2 To 1200 If Cells(i, 1) = "" Then Range(Cells(i - 1, 1), Cells(i - 1, 5)).Copy Cells(i, 1).PasteSpecial End If Next i End Sub
Kodu yazıyorum fakat sürekli hata veriyor komple koddamı bi yanlışlık yapıyorum boş hücreleri bi üsttekiyle aynı yapmaya çalışıyorum anlamadım yardımlarınız için şimdiden teşekkürler.

 

[turist]

Aşağıdaki gibi yazarak deneyin.

Sub deneme()
For i = 2 To 1200
If Cells(i, 1) = "" Then
Range(Cells(i - 1, 1), Cells(i - 1, 5)).Copy
Cells(i, 1).PasteSpecial
End If
Next i

End Sub

 

[ysn159]

Çok Teşekkür ederim Turist Hocam

 

[turist]

Çok Teşekkür ederim Turist Hocam

Sağ olun.