Üstü Çizgili Yazıların Karşısına Değer Girmek Hk.

[MSCRoMuLuS]

Merhabalar;
Hücrelerin içindeki üstü çizgili bir rakamının karşısına ( 1 ) Kapalı, normal birin karşına ( 1 ) Açık yazdırmam gerekiyor.
Sınırlı excel bilgimle hangi formülü yazdıysam üstü çizgili ve çizgili olmayan rakamı ayırt edemedim.
Yardımcı olabilirseniz sevinirim.

 

[Korhan Ayhan]

Merhaba,

Bu işlemi makro ile yapabilirsiniz.

 

[Seyit Tiken]

Bence formül ile olmuyor, makro kodlarından faydalanabilirsiniz.
A Sütununu Çift tıklayarak deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:A" & Rows.Count)) Is Nothing Then Exit Sub
Cancel = True
If Target = "" Then Exit Sub
Target.Font.Strikethrough = Target.Font.Strikethrough = 0
If Target.Font.Strikethrough Then
Target.Offset(0, 1) = "Kapalı"
Else
Target.Offset(0, 1) = "Açık"
End If
End Sub

 

[MSCRoMuLuS]

Bence formül ile olmuyor, makro kodlarından faydalanabilirsiniz.
A Sütununu Çift tıklayarak deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:A" & Rows.Count)) Is Nothing Then Exit Sub
Cancel = True
If Target = "" Then Exit Sub
Target.Font.Strikethrough = Target.Font.Strikethrough = 0
If Target.Font.Strikethrough Then
Target.Offset(0, 1) = "Kapalı"
Else
Target.Offset(0, 1) = "Açık"
End If
End Sub

Çok teşekkür ederim.