Tiklayinca 1 Artır

[baydeniro]

Merhaba arkadaşlar. Bir excel hücresinde çift tıklama yapılınca mevcut yazılı olan rakamın +1 olarak yazılması mümkün mü ?

 

[Skorpiyon]

Sayın serdarokan,

Aşağıdaki kodu bir deneyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Value = ActiveCell.Value + 1
End Sub

 

[baydeniro]

Teşekkürler

Harika olmuş sayın Şaban Sertkaya. Çok çok teiekkür ederim, ellerinize sağlık. Bunun bir de sadece L6 çalışması mümkün mü ?

Çok teşekkürler

 

[baydeniro]

Şöyle bir şey yapabildim. Ama bu sefer sadece L6 da artıyor, bu OK. Ama nerede basarsam basayım L6 1 artıyor !!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
[L6].Value = [L6].Value + 1
End Sub

 

[Skorpiyon]

Sayın serdarokan,

Kodu şu şekilde değiştirin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Address <> Range("L6").Address Then Exit Sub
If ActiveCell = Range("L6") Then Range("L6") = Range("L6") + 1
End Sub

 

[baydeniro]

Sayın Şaban Sertkaya, çok çok teşekkür ederim, Allah rızkınızı artırsın, sağlıcakla kalın.

 

[Skorpiyon]

Amin Say&#305;n serdarokan,

Rabbim c&#252;mlemizin r&#305;zk&#305;n&#305; art&#305;rs&#305;n.