satır seçme

[master_20]

merhaba arkadaşlar. excellde ben bir satırda bir hücreye tıkladığımda o satırdaki yanyana 5 hücrenin seçilmesini yada mavi renkte olmasını istiyorum bunu nasıl yapabilirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgli sayfanın kod bölümüne uygulayıp denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    Range(Target.Address, Target.Offset(0, 4).Address).Select
    Application.EnableEvents = True
End Sub

 

[master_20]

yardım için teşekkürler. peki ben bunu sadece a-h sutunları arasında bir hücreye tıkladığımda a ile h arasındaki satırlar seçilsin olarak yapabilirmiyim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [A:H]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "H")).Select
    Application.EnableEvents = True
End Sub

 

[phaeton]

Emeğinize sağlık. Çok işime yaradı.