aktif satırı renklendirme

[Korhan Ayhan]

Merhaba,

Uygulamayı eksik yapmışsınız.

Tekrar tarif ediyorum.

Dosyanızı açın.

Alt+F11 tuşlarına basarak kod penceresini açın.

INSERT menüsünden MODULE seçeneğini seçin.

Eklenen boş module aşağıdaki kodu uygulayın.

Sub Makro()
    On Error Resume Next
    If ActiveCell.Column = 14 Then
        Cells(ActiveCell.Row + 1, 1).Select
    Else
        ActiveCell.Offset(1, 0).Select
    End If
End Sub

Daha sonra aynı ekrandayken sol taraftan "BuÇalışmaKitabı" bölümüne çift tıklayarak kod ekranını açın. Aşağıdaki kodu bu ekrana uygulayın.

Private Sub Workbook_Activate()
    Application.OnKey "~", "Makro"
    Application.OnKey "{ENTER}", "Makro"
End Sub

Private Sub Workbook_Deactivate()
    Application.OnKey "~"
    Application.OnKey "{ENTER}"
End Sub

Son olarak dosyanızı kayıt edip kaptın ve açarak deneme yapın.