Kosullu diye sayfa olmalı yoksa çalışmaz.
Kullanırsanız diğer kodları uyarlayabilirsiniz.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ws As Worksheet, aa As Integer, bb As Integer, cc As Integer
Set ws = ThisWorkbook.Sheets("Kosullu")
On Error GoTo son
If Target.Count > 1 Then GoTo son
Application.ScreenUpdating = False
ws.Cells.ClearContents
bb = 50
If Target.Column < 50 Then
cc = 1 - Target.Column
Else
cc = -50
End If
If Target.Row < 50 Then
aa = 1 - Target.Row
Else
aa = -50
End If
ws.Range(Target.Address, ws.Range(Target.Address).Offset(0, cc)).Value = 1
ws.Range(Target.Address, ws.Range(Target.Address).Offset(0, 50)).Value = 1
ws.Range(Target.Address, ws.Range(Target.Address).Offset(aa, 0)).Value = 1
ws.Range(Target.Address, ws.Range(Target.Address).Offset(50, 0)).Value = 1
Application.ScreenUpdating = True
Exit Sub
son:
ws.Cells.ClearContents
Set ws = Nothing
End Sub
