değişken makro

[abdurahmanozer]

ekte değişken makro hakkında isteğimi sundum şimdiden teşekkürler ilginiz için...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub kenarlikciz()
For a = 2 To [s65536].End(3).Row
If Cells(a, "s") = "NET GR." Then
Range("a" & a & ":s" & a).Borders(xlEdgeTop).LineStyle = xlContinuous
Range("a" & a & ":s" & a).Borders(xlEdgeTop).Weight = xlThin
Range("a" & a & ":s" & a).Borders(xlEdgeTop).ColorIndex = xlAutomatic
End If
Next
End Sub

 

[uzmanamele]

Aşağıdaki kodu deneyin.

Sub kenarlikciz()
For a = 2 To [s65536].End(3).Row
If Cells(a, "s") = "NET GR." Then
Range("a" & a & ":s" & a).Borders(xlEdgeTop[COLOR="Red"][B])[/B][/COLOR].LineStyle = xlContinuous
Range("a" & a & ":s" & a).Borders(xlEdgeTop).Weight = xlThin
Range("a" & a & ":s" & a).Borders(xlEdgeTop).ColorIndex = xlAutomatic
End If
Next
End Sub

merhaba
kod hata verdiğinde syn Levent Menteşoğlu'nu tekrar meşgul etmemek için eksik parantezi koymayı unutmayınız.

 

[abdurahmanozer]

teşekkür ederim. tam istediğim gibi...
bide benim kullandığım makronun içine ekleyebilirsem ne ala ekleyemessem tekrar dönerim

 

[abdurahmanozer]

değişken makro 2

kullandığım makronun içinde bu satırdakiler aslında değişken satırlar ben bu satırları değişken hale getiremedim
ActiveWindow.SmallScroll Down:=51
Rows("132:133").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Range("S131").Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
Range("A1:S1131").Select
Range("S131").Activate

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