okundu yap....

[karakayalı]

hücrede enter yaptığımda hücrenin karşısına bakıldı yazılmasını istiyorum...kolay gelsin...dosya ektedir..

 

[Kemal Demir]

Merhaba;

Ek'te cozum sadece C kolonu dolu ise calismaktadır.

Kolay Gelsin.

 

[cebir]

merhaba.

c sütunundan d ye geçildiğinde ..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [D165000]) Is Nothing Then Exit Sub
For X = 1 To [B65536].End(3).Row
If Cells(X, 3) > "" Then
A = ActiveCell.Offset(0, -1).Value
If Cells(X, 3) = A Then
Cells(X, 1) = "BAKILDI"
End If
End If
Next
End Sub

 

[Seyit Tiken]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then Target.Offset(0, -2) = "Okundu"
End Sub

Şeklinde deneyiniz.

 

[karakayalı]

sayın cebir elinize sağlık çok güzel olmuş ancak tekerrüe eden verilerde kürsör en son hücreye gidiyor...kürsörün sıralı bir şekilde gitmesini sağlayabilirmiyiz...