Soru Sayfada İşlem

[k0081]

Merhaba arkadaşlar;

MalzemeGuncelFiyatlar isminde bir sayfam var. Burda şöyle bişey yapmak istiyorum;

örneğin:

C5 hücresine ; 125*2 yazıp Entere bastığımda sonucu aynı hücreye yazsın... tabi C5 sabit değil. Her hücrede Geçerli olmalı..

Teşekkürler.

 

[Ömer]

Merhaba,

Sanırım + yada = ile giriş yapmak istemiyorsunuz.

İlgili sayfanın kod bölümüne: (A1:A10 aralığı içindir)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1:A10]) Is Nothing Then Exit Sub
    If Target = "" Then Exit Sub
    Application.EnableEvents = False
    Target = Evaluate(Target.Value)
    Application.EnableEvents = True
End Sub

 

[k0081]

@Ömer

Hocam Teşekkür ederim , Tamamdır...