DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Activate()
With Range("C3:J14").SpecialCells(xlCellTypeBlanks)
.FormulaR1C1 = "x"
.Font.Name = "Calibri"
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [C3:J14]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
If Target.Value = "x" Then
With Target
.Value = "ü"
.Font.Name = "Wingdings"
End With
Else
With Target
.Value = "x"
.Font.Name = "Calibri"
End With
End If
End Sub