DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Yazın..Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Application.CutCopyMode = xlCopy Or _
Application.CutCopyMode = xlCut Then Exit Sub
Cells.Interior.ColorIndex = 0
ActiveCell.Cells.Interior.ColorIndex = 5
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Interior.ColorIndex = 0
End Sub
Rica ederim..teşekkür ederim...