DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells.Interior.ColorIndex = xlNone
Target.Offset(, -7).Interior.ColorIndex = 6
On Error GoTo 0
End Sub
Çok teşekkür ederim olduDeneyiniz.
Sayfadaki tüm renkleri silerek işlem yapar. Bu sebeple kontrollü kullanmanızda fayda var.
C++:Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Cells.Interior.ColorIndex = xlNone Target.Offset(, -7).Interior.ColorIndex = 6 On Error GoTo 0 End Sub
Peki bunu sadece H sütunu seçiliyken yapabilrmiyiz yani H1den H300 e kadar seçildiğinde olabilir miDeneyiniz.
Sayfadaki tüm renkleri silerek işlem yapar. Bu sebeple kontrollü kullanmanızda fayda var.
C++:Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Cells.Interior.ColorIndex = xlNone Target.Offset(, -7).Interior.ColorIndex = 6 On Error GoTo 0 End Sub
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:A300").Interior.ColorIndex = xlNone
If Intersect(Target, Range("H1:H300")) Is Nothing Then Exit Sub
Target.Offset(, -7).Interior.ColorIndex = 6
End Sub