Kenar çizme kodundaki yanlışlık

[cabatur]

Arkadaşlar aşağıdaki makronun çalışmama sebebi nedir?Dosya ektedir.

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

Sub kenar_çizme()
For i = 4 To 600
If Worksheets("a").Range("h" & (i)) = 2 Then
Rows("i:i").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Else
MsgBox ("nanik")
End If
Next i

End Sub

 

[Ömer]

Merhaba,

Rows("i:i").Select

yerine aşağıdaki gibi yazarak deneyin.

Rows(i).Select

Ayrıca eklediğiniz MsgBox kaldırmanızı yada yerini değiştirmenizi tavsiye ederim.

 

[cabatur]

Teşekürler fakat makro hata veriyor.

 

[Ömer]

Yazdığım değişikliği yapınca bende herhangi bir hata vermedi.

 

[hamitcan]

Rows("i:i").Select

yerine

Rows(i).Select

bu satırı kullanın.

 

[hamitcan]

Ömer Bey, mesajınızın içeriğini tam incelemeden yazmışım, kusura bakmayın.

 

[Ömer]

Rica ederim Hamit Bey, sorun değil.

 

[cabatur]

Ömer Bey,
Teşekkür ederim yardımlarınız için.