Bir hücreye tıklandığında; aynı hücreye bir değer yazdırmak için

[tocy41]

Bir hücreye tıklandığında aynı hücreye yeni bir değer yazdırmak için ne yapmalı?
Örnek: A1 e tek tıkladığımızda(seçtiğimizde), herzaman "Tamam" yazdırmak için ne yapmalı?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Target = "Tamam"
End Sub

 

[Orion1]

Ekli dosyayı inceleyiniz.
Çalışma sayfasının kod bölümüne:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Value = "Tamam"
End Sub

 

[tocy41]

Teşekkürler her zamanki gibi süpersiniz.