makro belirleme sorunu

[igultekin2000]

Sub bicim_temizle1()
Son = Cells(Rows.Count, 1).End(3).Row
Range("A2:L" & Son).ClearContents
End Sub
Sub bicim_temizle2()

Son = Cells(Rows.Count, 1).End(3).Row
Range("A2:L" & Son).Select
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Sheets("RAPOR").Range("L1").Select
End Sub

iyi günler; iki makro ile , hem içeriği , hemde biçim temizleme yapıyorum, temizlemede sorun yok ama , biçim temizlemede 2.ci satırdan aşağısını biçim temizle dediğim halde 1.ci satırında biçimini temizliyor. Sorunu çözemedim.

 

[Ömer]

Merhaba,

Son tanımlaması 1 değerini üretirse 1.satırdan başlar.
Son tanımından sonra aşağıdaki satırı ilave edin.

If son < 2 Then son = 2

.

 

[igultekin2000]

Merhaba,

Son tanımlaması 1 değerini üretirse 1.satırdan başlar.
Son tanımından sonra aşağıdaki satırı ilave edin.

If son < 2 Then son = 2

.

Teşekkürler sorunsuz çalışıyor. iyi çalışmalar.

 

[veyselemre]

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Yerine

 Selection.Borders().LineStyle = xlNone

Deneyin.

 

[igultekin2000]

 Selection.Borders().LineStyle = xlNone
Teşekkürler bu biçimde yazıldığında ilk satır korunmuş oldu, iyi çalışmalar.