VBA Uyarısı

[CenTay]

Selamlar,

Kod ;

Sub Aktar ()
...........
....................
..................
Next

S2.Range("A17:I59").ClearContents

S2.Range("A19:I59").Selection.Borders(xlEdgeBottom).LineStyle = xlNone

S2.Range("K17:O59").ClearContents
MsgBox "İşlem TAMAM", vbInformation
End Sub

Yukarıdaki koda ;

S2.Range("A19:I59").Selection.Borders(xlEdgeBottom).LineStyle = xlNone

satırı ilave ederek, koşullu biçimlendirme ile çizdiğim alt çizgileri siliyorum, ancak VBA ; "Object doesn't support this property or method" uyarısı veriyor.

İlave ettiğim kod ile ilgili olduğunu düşünüyorum, çünkü daha önce bu uyarı yoktu, ne yapabilirm arkadaşlar teşekkürler.

 

[TEGCreative]

Selamlar,

Kod ;

Sub Aktar ()
...........
....................
..................
Next

S2.Range("A17:I59").ClearContents

S2.Range("A19:I59").Selection.Borders(xlEdgeBottom).LineStyle = xlNone

S2.Range("K17:O59").ClearContents
MsgBox "İşlem TAMAM", vbInformation
End Sub

Yukarıdaki koda ;

S2.Range("A19:I59").Selection.Borders(xlEdgeBottom).LineStyle = xlNone

satırı ilave ederek, koşullu biçimlendirme ile çizdiğim alt çizgileri siliyorum, ancak VBA ; "Object doesn't support this property or method" uyarısı veriyor.

İlave ettiğim kod ile ilgili olduğunu düşünüyorum, çünkü daha önce bu uyarı yoktu, ne yapabilirm arkadaşlar teşekkürler.

Merhaba Centay;

S2.Range("A19:I59").Selection.Borders(xlEdgeBottom).LineStyle = xlNone

bu kısmı alttaki gibi değiştirebilir misin ?

[B]S2.Range("A19:I59").Borders(xlEdgeBottom).LineStyle = xlNone[/B]

 

[CenTay]

Merhaba Centay;

S2.Range("A19:I59").Selection.Borders(xlEdgeBottom).LineStyle = xlNone

bu kısmı alttaki gibi değiştirebilir misin ?

[B]S2.Range("A19:I59").Borders(xlEdgeBottom).LineStyle = xlNone[/B]

[/QUOTE
Teşekkürler hocam sağol