Hücreye girilen değeri değiştirme.

[whirlybird]

Arkadaşlar merhaba,
Tüm internet sitesinde aradım, benzer şeyler buldum ama tam anlamıyla istediğimi bulamadım.

A1 hücresine rakam giriyorum, B1 hücresi ile çarpılıp sonucu A1 hücresine yazacak bir makro tasarlamak istiyorum,

A1=Değişken
B1=8

A1 hücresine 10 yazdığımda, 80 rakamına çevirmesi gerekiyor.(Çarpım işini otomatik yapıp, değişken hücreye yazacak.) Yardımcı olabilir misiniz?

Kolay gelsin.

 

[EmrExcel16]

Merhaba , sayfanın kod bölümüne yapıştırıp deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    On error resume next
    Application.EnableEvents = False
    Cells(Target.Row, 1) = Cells(Target.Row, 1) * Cells(Target.Row, 2)
    Application.EnableEvents = True
End Sub