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)
If Target.Column <> 1 Then Exit Sub
Target.NumberFormat = "@"
Target.Value = "" & Target.Value
Target.Characters(Len(Target) - 3, 4).Font.Bold = True
End Sub