Çift Tıkladığımızda Yandaki Kutuya X İşareti Koymak

[yorum.halil]

Arkadaşlar iyi akşamlar. Bir hücreye tıkladığımızda yada çift tıkladığımızda yandaki hücreye "X" işareti nasıl koyabiliriz. Fakat bu işlem CheckBox la olmayacak. Umarım her zaman olduğu gibibu konuda da yardımlarınızı esirgemezsiniz

 

[Orion1]

Dosyanız ekte.
Çift tıklamayla çalışır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
ActiveSheet.Unprotect "111"
If ActiveCell.Address = "$S$90" Then
    If Range("AE90").Value = "" Then
        Range("AE90").Value = "X"
        Else
        Range("AE90").Value = ""
    End If
End If
If ActiveCell.Address = "$AI$90" Then
    If Range("AU90").Value = "" Then
        Range("AU90").Value = "X"
        Else
        Range("AU90").Value = ""
    End If
End If
ActiveSheet.Protect = "111"
Cancel = True
End Sub

 

[yorum.halil]

Üstad eline sağlık. Fakat örnek dosyadada yazdığım gibi sayfa korumalı olacak. Korumalı iken bu işlemi yapmak mümkün mü ?

 

[Orion1]

Üstad eline sağlık. Fakat örnek dosyadada yazdığım gibi sayfa korumalı olacak. Korumalı iken bu işlemi yapmak mümkün mü ?

Dosyayı bu duruma göre güncelledim.
Önceki mesajımdan indirebilirsiniz.
Çift tıklama ile çalışıyor.

 

[yorum.halil]

Tamam üstad bu sefer oldu. Hemde çok güzel oldu. Eline sağlık... İyiki varsınız....

 

[Orion1]

Tamam üstad bu sefer oldu. Hemde çok güzel oldu. Eline sağlık... İyiki varsınız....

Rica ederim.
İyi çalışmalar.

 

[yorum.halil]

Herkese iyi akşamlar. Dün fark edemediğim bir sorunla karşı karşıyayım.. Help... Örnek dosyada hücreye tıklayınca sayfa korumasını açıyor X işaretini ekliyor. Fakat sayfa korumasını bu sefer şifresiz hale geliyor. Özellikle şifreyi tekrar girerek sayfa korumasını aktif hale getirdim. Aidat yazan yere tıkladım işlemi yaptı sayfa korumalı oldu fakat şifresiz olarak Sanırım ActiveSheet.Protect ve ActiveSheet.Unprotect satırı ile ilgili. Sizlerden ricam ekteki dosyada bulunan dört hücre için kodlamayı tekrar yazarmısınız.

Birde Sayfaya Koruma Koyarken sadece "KİLİDİ AÇILMIŞ HÜCRELERİ SEÇ" özelliğini seçtiğimiz için işlemi yaptıktan sonra ilk kilitsiz hücreye gidiyor. Acaba aynı hücrede kalması sağlanabilirmi. Biraz karışık anlattım ama umarım anlamışınızdır

 

[Orion1]

Şifre koyuyor.
Diğer konuyu anlamdım.
Dosya ekte.