Aynı sayfada kod çakışması ???

[talip]

Aynı sayfada çalışması gereken 2 kodum var ancak ikisi aynı anda çalışmıyor. İkisininde aynı anda çalışması için ne yapmalıyım, yardımlarınız için şimdidden teşekkür ederim.

1. Kod

Dim eski
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:="Kullanıcı adı: " & Application.UserName & vbNewLine & "Eski değer: " & eski
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
eski = Target.Value
End Sub

--------------------------------------------------------------------------

2. Kod

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 20
Target.Interior.ColorIndex = 0
End With
End Sub

 

[Ayhan Ercan]

Merhaba Sayın talip

Aşağıdaki gibi denermisiniz...

1. Kod

Dim eski
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:="Kullanıcı adı: " & Application.UserName & vbNewLine & "Eski değer: " & eski
End Sub

--------------------------------------------------------------------------

2. Kod

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
eski = Target.Value
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 20
Target.Interior.ColorIndex = 0
End With
End Sub

 

[talip]

Tamamdır çalıştı teşekkür ederim.

 

[Ayhan Ercan]

Tamamdır çalıştı teşekkür ederim.

Rica ederim.
İyi Çalışmalar.. k::