Hücre içine = (eşittir) ekleyen makro.

[nokmen]

Selamlar herkese,

Excelde pek çok formül kullanıyorum ve bunları da başında = olmadan saklıyorum. Acaba seçilen bir hücre içinin başlangıcına = işareti ekleyecek bir makro yazılabilir mi? Bu işlemi çok sık yaptığım için bir kısayol ile kullanabilmek işimi çok hızlandıracaktır.

Vaktini ayıracak arkadaşıma şimdiden teşekkür ederim.

(Bu arada, excelin makro keydedicisi ile denedim ama olmadı. )

 

[YUSUF44]

Formül yazılı olan hücrenin başına = eklenmesini istiyorsunuz sanıyorum, bu durumda aşağıdaki kodları sayfanın kod sayfasına yapıştırırsanız range olarak belirtilen b3 ve e3 hücrelerini seçtiğinizde bu hücrelerdeki ifadelerin başına = ekleyecektir. bu range'yi istediğiniz gibi genişletebilirsiniz. Ancak formüllü hücreleriniz belirli değilse ve herhangi bir hücreyi seçip bi kısayolla başına = eklenmesini istiyorsanız beni aşar maalesef.

Private Sub Worksheet_selectionChange(ByVal Target As Range)
    On Error GoTo 10
    If Intersect(Target, Range("b3,e3")) Is Nothing Then Exit Sub
    Target = "=" & Target
      
    
10 Application.EnableEvents = True
End Sub

Zaten exceldeki her dosyada bu işlemi görmek istiyorsanız muhtemelen eklenti şeklinde yapılması gerekecektir.

 

[Seyit Tiken]

Herhangi bir hücreye çift tıklayarak ta yapabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell = "="
End Sub

 

[YUSUF44]

Sayın seyit tiken'in kodlarından yararlanarak oluşturduğum aşağıdaki kodları kullandığınızda o sayfada hangi hücreye çift tıklarsanız başına = ekler (Seyit Bey'in kodları hücredeki içeriği silip = yazıyor) :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = "=" & Target
End Sub

Tabi bu da o sadece kodların olduğu sayfalarda geçerli. bir de = kullanmak istemeseniz başka bir sebeple çift tıklamanı gerekse bile mecburen hücreye = ekler.

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak aşağıdaki kodu kullanabilirsiniz.

İlgili sayfanın kod bölümüne uygulayınız.
"=" eklemek istediğiniz hücre üzerinde çift tıklamanız yeterli olacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Formul
    Cancel = True
    If Left(Target.FormulaLocal, 1) <> "=" Then
        Formul = "=" & Target.Text
        Target = ""
        Target.FormulaLocal = Formul
    End If
End Sub