Hücreye not

[uKiGS]

Merhaba arkadaşlar,

Hücreye bir sayı yazıp enter a bastıktan sonra insert comment kısmı açılabilir mi otomatik olarak?

 

[Korhan Ayhan]

İşlemi yapmak istediğiniz sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Kod "A" sütununa göre çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        Target.Select
        DoEvents
        Application.SendKeys "+{F2}", True
    End If
End Sub

 

[uKiGS]

Bilgi için öncelikle teşekkür ederim. peki ben bunu AA ve AW arasında yapmak istersem A:A kısmına bunu yazmam yeterli olacakmıdır ?

 

[Korhan Ayhan]

Deneyin...

 

[uKiGS]

teşekkür ederim yarın sabah deneyeceğim.