Hücreye otomatik "=" eklemek

[k0081]

Merhaba arkadaşlar;

D23 hücresine 25+3 yazdığımda ilk yazdığım değerin önüne eşittir ekleyebilirmiyiz.? yani sonuç 28 olacak. sayılar ve işaretler değişebilir ama = sabit olacak..

yardımcı arkadaşa şimdiden teşekkürler.

 

[Seyit Tiken]

Hücreye Çift Tıklayarak Uygulayabilirsiniz.

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

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "D23" Then
        Application.EnableEvents = False
        Target.Formula = "=" & Target.Text
        Application.EnableEvents = True
    End If
End Sub

 

[k0081]

Seyit;

hocam bunu her hücreye değilde sadece D23 için geçerli kılacağız..
**********

Korhan Ayhan;

Hocam göndermiş olduğunuz kod çalışıyor.. aynı hücreye buton ile şu kodu çalıştırdığımda hata veriyor..

ActiveCell.FormulaR1C1 = "=banka_tl"

hata iletisi

 

[Korhan Ayhan]

Bu şekilde deneyin...

ActiveCell.Formula = "=banka_tl"

 

[k0081]

Bu şekilde deneyin...

ActiveCell.Formula = "=banka_tl"

Hocam denedim. yine hata veriyor. 1004 nolu hata iletisi..

 

[Merhum İdris SERDAR]

.

İki başlık açınca konu dağıldı gibi...

Buraya eklediğim dosyaya bakın.

http://www.excel.web.tr/f48/hucredeki-deoer-deoi-imi-t132202.html

.

 

[k0081]

.

İki başlık açınca konu dağıldı gibi...

Buraya eklediğim dosyaya bakın.

http://www.excel.web.tr/f48/hucredeki-deoer-deoi-imi-t132202.html

.

Hocam merhaba.

İki konu açmamdaki sebep: Alternatif olarak çözüm bulabilirmiyim anlamı taşıyor. gönderdiğiniz dosyaya baktım. butonla yazdırma olayı tamam. ama hücrede hesap yaptıramıyorum bu sefer de... yani hücrede hem hesap yapacak, hem de buton ile bahsedilen kodu yazdırdığımda hata vermeyecek... Teşekkürler, Saygılar.