DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
[FONT="Trebuchet MS"]Private Declare Function ShowCursor Lib "USER32" (ByVal fShow As Integer) As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("[COLOR="Red"]E1:F10[/COLOR]")) Is Nothing Then
While ShowCursor(False) >= 0: Wend
Else
While ShowCursor(True) < 0: Wend
End If
End Sub
[/FONT]