Her tıklama için değer yazsın.

[Muhammet Okumuş]

Arkadaşlar merhaba.
0-9 arası rakamlara tıkladığımda bir hücrede bunları
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
kullanarak birleştirebiliyorum.
Ancak iki defa aynı rakamı yazmak istediğimde başka bir hücreyi tıklamadan yazmıyor. Bunun için ne yapabiliriz. Ben ard arda hangi rakama tıklarsam o kadar rakamı sayıya ekleyebileyim.

 

[Necdet]

Merhaba,

Aşağıdaki kodlar işinizi görür mü?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [b3:k3]) Is Nothing Then Exit Sub
    Range("B2") = Range("B2") & ActiveCell
    Range("A1").Activate
End Sub

 

[Muhammet Okumuş]

Sn Necdet Bey ben o şekil denedim. Ama ben en son tıkladığım hücre aktif olsun istiyorum.

 

[Muhammet Okumuş]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
bunun tek tık olanı var mı?

 

[Korhan Ayhan]

Çift tıklama olayını kullanmanızda fayda var.

 

[Muhammet Okumuş]

Sn Korhan Bey yazdıklarınızdan böyle bir şeyin olmayacağını anlıyorum.