Aktif Hücreyi Renklendirme Nasıl Yapılır?

Evet bu yapılabilir. Eğer aktif hücrenin renkli olmasını ve daha önce renklendirilmiş hücrelerin değişmesini istemiyorsanız aşağıdaki kodlar tam size göre. Çalışma sayfasının kod sayfasına şu kodları ekleyin. Gördüklerinizin hoşunuza gideceğini sanıyorum.

Kod: Tümünü seç

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static RenkliHucre As Range
      If Target.Interior.ColorIndex <> xlColorIndexNone Then
      RenkliHucre.Interior.ColorIndex = xlColorIndexNone
      Exit Sub
ElseIf Not RenkliHucre Is Nothing Then
      RenkliHucre.Interior.ColorIndex = xlColorIndexNone
      End If
Target.Interior.ColorIndex = 6
Set RenkliHucre = Target
End Sub

Çalışma sayfamda;

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Satır As Integer
If Intersect(Target, Range("k12:k131")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Target <> "" Then
Satır = Target.End(3).Row + 1
If Satır >= Target.Row Then Exit Sub
If Cells(Satır, Target.Column) = "" Then
Range(Cells(Satır, Target.Column), Cells(Target.Row - 1, Target.Column)) = CDate(Target)
Range("k12:k131").NumberFormat = "dd.mm.yyyy"
End If
End If
End Sub



Şeklinde bir kod var...

Bu kodla konunun kodunu nasıl birleştirebilirm....