DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba, sadece tablo içinde geçerli olanı:bunu satırın sonunna kadar değil de tablonun uzunluğu kadar seçilecek şekilde nasıl yaparız. Örnek olarak tablomuzun yer aldığı sütun aralığı kadar satırı seçecek ve dinamik olcak yeni sütun eklendiğinde de o satır seçimi değişecek
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
If IsEmpty(Target) Or Target.Cells.Count > 1 Then Exit Sub
With ActiveCell
Range(Cells(.Row, .CurrentRegion.Column), Cells(.Row, .CurrentRegion.Columns.Count + .CurrentRegion.Column - 1)).Interior.ColorIndex = 17
Range(Cells(.CurrentRegion.Row, .Column), Cells(.CurrentRegion.Rows.Count + .CurrentRegion.Row - 1, .Column)).Interior.ColorIndex = 19
ActiveCell.Cells.Interior.ColorIndex = 4
End With
End Sub