Sütüna tik ekleme

[devran]

Arkadaşlar,

Elimde yaklaşık 5 bin satırlık bir excel datası var. Bunları manuel olarak kontrol edicem. Heryaptığım kontrolde bir sütünda tik olsun istiyorum. Nasıl yapabilirm.
Teşekkürler.

 

[Merhum İdris SERDAR]

Arkadaşlar,

Elimde yaklaşık 5 bin satırlık bir excel datası var. Bunları manuel olarak kontrol edicem. Heryaptığım kontrolde bir sütünda tik olsun istiyorum. Nasıl yapabilirm.
Teşekkürler.

.
Ekteki örneği inceleyin.

A sütununda ü harfine basın.

.

 

[hamitcan]

Not: İlgili sütun fontu, "wingdings 2" olarak ayarlanmalı. Kod, çift tıklama ile çalışır. Kodu, sayfanın kod bölümüne eklemelisiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = True   'Get out of edit mode
  If LCase(Target.Font.Name) <> "wingdings 2" Then Exit Sub
  If Len(Target.Value) > 1 Then Exit Sub
  If Trim(Target.Value) = "" Then
      Target.Value = "P"
  Else
     Target.Value = ""
 End If
End Sub

 

[devran]

Sağolun arkadaşlar. Wingdings yazı formatında anladım. Check list olarak yapabilir miyim?

 

[hamitcan]

Check list olarak yapabilir miyim?

Açıkcası anlamadım. Bir font mu bu?

 

[devran]

Ben sayın Yurtaş'ın excelinden anladığım şu: tik işareti windings yazı formatında ü nün karşılığı.
Check list kutuğu oluşturarak yapmak mümkün mü?

 

[Merhum İdris SERDAR]

Ben sayın Yurtaş'ın excelinden anladığım şu: tik işareti windings yazı formatında ü nün karşılığı.
Check list kutuğu oluşturarak yapmak mümkün mü?

http://www.excel.web.tr/f60/checkbox-onay-kutusu-option-buton-secenek-dugmesi-t69739.html

Buradaki konuyu inceleyin.

Bir hücreye CheckBox yapın. Sonra bu hücreyi istediğiniz kadar aşağıya kopyalayın.

.