DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target Is Nothing Then Exit Sub
c = Len(Target)
If Right(Target, 1) = "(" Then
Target = Mid(Target, 1, c - 1)
End If
End Sub