Çift tıklama ile rakam yazdırma

[rapstar_kagan_96]

Arkadaşlar merhaba.
R1 hücresine 20 yazacağım. D3:O18 hücreleri arasında hangi hücreye çift tıklarsam tıklayayım, bu R1 hücresindeki rakamı yazsın istiyorum. En önemli ayrıntı şu: Üstüne toplasın istemiyorum.
Örneğin F15 hücresinde daha önceden yazılmış 15 rakamı ya da "X"(BÜYÜK ÇARPI) işareti var. Ben o hücreye çift tıkladım mı bu yazılı olanı silip 20 yazmalı. Umarım anlatabilmişimdir.
Şimdiden teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu ilgili sayfanın kod sayfasına kopyalayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
if intersect(target,[D3:O18]) is nothing then exit sub
cancel=true
target=[R1]
End Sub

 

[rapstar_kagan_96]

Eyvallah kardeşim.İlgine,bilgine,emeğine sağlık..Tam istediğim gibi.Çok çok teşekkür ederim.