Sadece A1 hücresinde çift tıklama yapabilme

[hakki83]

Selamlar

1. satırda çift tıklamayla çalışan kodlar var; sadece A1 hücresinde çift tıklama yapılabilsin; diğer hücrelerde yapılmak istenirse Nothing Then Exit Sub yapılsın, nasıl yazılır?

Teşekkürler.

 

[Ömer]

Merhaba,

Deneyiniz.

If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

 

[hakki83]

Emeğinize sağlık Teşekkürler

 

[hakki83]

Merhaba,

Deneyiniz.

If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

Ömer hocam merhaba
Bir sorunum oluştu. B1:M1 aralığına çift tıklayınca korumanın iptal olmaması gerekiyor. Bu sorunu nasıl çözeriz? Açıklamayı dosya içine de yazdım.

 

[Ömer]

Öncelikle A1 hücresindeki "kiliti" kaldırın.
Kodları aşağıdakilerle değiştirip deneyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
ActiveSheet.Unprotect
SonSatir = Cells(Rows.Count, 1).End(3).Row
SonSutun = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, 1), Cells(SonSatir, SonSutun)).Sort Target
ActiveSheet.Protect
End Sub

 

[hakki83]

Ömer hocam teşekkürler. Fakat bu sefer de A1’e çift tıklayınca F2 yapar gibi hücre içine giriliyor. Bu önlenebilir mi?

 

[Ömer]

Deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
ActiveSheet.Unprotect
SonSatir = Cells(Rows.Count, 1).End(3).Row
SonSutun = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, 1), Cells(SonSatir, SonSutun)).Sort Target
Cancel = True
ActiveSheet.Protect
End Sub

 

[hakki83]

Sorunumu çözdünüz Ömer hocam. Emeğinize sağlık. Teşekkürler.

 

[hakki83]

Peki hocam A1’in kilidini kaldırdım. Bu sefer de A1 silinmeye açık hale geldi. Yani korumasız kaldı. Bu çözülebilir mi?

 

[Ömer]

Kilitleyip aynı kodları kullanabilir siniz.