DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
If InStr(Target, " ") = 0 Then
Set regEx = CreateObject("vbscript.RegExp")
regEx.Pattern = "[0-9/]"
regEx.Global = 1
deg = Replace(Target, Left(Target, 2) & regEx.Replace(Target, ""), "")
Target = Left(Target, 2) & " " & regEx.Replace(Target, "") & " " & deg
End If
End Sub