Hücre Seçme

[Seyit Tiken]

Arkadaşlar Herkese Selamlar, Kolay Gelsin,
Aşağıda şöyle bir kod çalıştırıyorum, kod çift tıklamadır, kodun çalıştırılmasında bir sorun yok, yalnız, kodu çalıştırırken imleç hücre içinde yanıp sönüyor(F2'ye basıldığı gibi), bunun olmaması için nasıl bir kod yazılımı gerek, yani hangi hücreye çift tıklanırsa o hücre seçili kalsın. Bir ara Sayın Levent Bey'in bu şekilde bir koduna rastlamıştım, biraz arama-tarama yaptık bulamadık. Teşekkür eder sevgi ve saygılarımı sunuyorum.

NOT : Bunu önlemek için kullandığım kod : ActiveCell.Offset(1).Select
Hücreyi imleçten kurtarıp bir aşağı hücreye geçiyor. İstenilen bunun dışında bir çözümdür.
---------------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If [a1] = 1 Then
ActiveWindow.ScrollRow = 4
[a1] = 2
Else
ActiveWindow.ScrollRow = 1
[a1] = 1
End If
End Sub

 

[uzmanamele]

Arkadaşlar Herkese Selamlar, Kolay Gelsin,
Aşağıda şöyle bir kod çalıştırıyorum, kod çift tıklamadır, kodun çalıştırılmasında bir sorun yok, yalnız, kodu çalıştırırken imleç hücre içinde yanıp sönüyor(F2'ye basıldığı gibi), bunun olmaması için nasıl bir kod yazılımı gerek, yani hangi hücreye çift tıklanırsa o hücre seçili kalsın. Bir ara Sayın Levent Bey'in bu şekilde bir koduna rastlamıştım, biraz arama-tarama yaptık bulamadık. Teşekkür eder sevgi ve saygılarımı sunuyorum.

NOT : Bunu önlemek için kullandığım kod : ActiveCell.Offset(1).Select
Hücreyi imleçten kurtarıp bir aşağı hücreye geçiyor. İstenilen bunun dışında bir çözümdür.
---------------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If [a1] = 1 Then
ActiveWindow.ScrollRow = 4
[a1] = 2
Else
ActiveWindow.ScrollRow = 1
[a1] = 1
End If
End Sub

merhaba
2. satıra yazarak dener misiniz.

Application.EditDirectlyInCell = False

 

[Korhan Ayhan]

Selamlar,

Seyit bey,

Aşağıdaki ifadede geçen "Cancel" terimi bunun için kullanılmaktadır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, [COLOR=red]Cancel[/COLOR] As Boolean)

Kodunuza aşağıdaki eklemeyi yaparsanız sorun ortadan kalkacaktır.

Cancel = True

 

[Seyit Tiken]

Korhan Bey çok teşekkür ediyorum, tam çözüm, Süleyman bey sizede çok teşekkür ediyorum, zahmet edip yanıt verdiğiniz için. Sıhhatli günler diliyorum.