Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
Target.Value = "X"
Cancel = True
End Sub
Kodu ben de denedim Range kısmında verilen aralık için çalışıyor. Bir sıkıntı yok. Office 2007Demhar' Alıntı:maalesef kod çalışmadı![]()