hücre içerisinde bulunan satırın çizgi olarak belirlenmesi.

[orange4609]

Merhaba,
sayfa içerisinde gezerken içersinde bulunduğum hücreye tıkladığımda bulunduğum hücreye ait satırın altı çizili olacak.çizgi rengi kırmızı yada değişken olabilir.böyle bir makro yapabilir miyiz?

Tşkler.

iyi günler.

 

[orange4609]

Aşağıdaki örnekte olduğu gibi sadece renk yerine çizgili olmasını istiyorum.yardımcı olabilirseniz sevinirim.
tşkler.
iyi günler.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
a = ActiveCell.Column
Columns(a).Interior.ColorIndex = 2
aa = ActiveCell.Row
Rows(aa).Interior.ColorIndex = 15
End Sub

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Dim x As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If x > 0 Then Rows(x).Borders(xlEdgeBottom).LineStyle = xlNone
    With Rows(ActiveCell.Row).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 3
    End With
x = ActiveCell.Row
End Sub

 

[ZorBey_]

Merhaba
Sayın
Dede İyi Çalışmalar
Bu Uygulamaya
Bir İlave Yapabilirmiyiz Acaba
Kopyalamayı Yapmıyor
Rica Etsem ilave Edebilirmisiniz
örnek - A1 Deki Veriyi B1'e Kopyalama gibi

 

[Korhan Ayhan]

Merhaba,

"Private..." ile başlayan satırın hemen altına aşağıdaki kod satırını uygulayıp deneyiniz.

If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub

 

[ZorBey_]

Merhaba
Sayın
Korhan Ayhan
Çok Teşekkür Ederim
İyi Çalışmalar.

 

[orange4609]

sn,Dede
sn,Korhan Bey,
Emeğinize sağlık çok çok tşkler.

iyi günler dilerim.

 

[orange4609]

vallahi süper olmuş.çok saoğolun.