Otomatik Hesaplama

[drejan62]

Merhabalar,
a2 ile a20  hücre aralığına veri girildiğinde b2 ile b20 aralığındaki hücrelerde hesaplama yapsın.
Örnek: a sütununda değer girer girmez b sütununda a hücresindeki rakamı 10 ile çarpısın.
Bunu formülle girmek mümkün fakat formüllerin silinmesi ihtimaline karşı makro ile otomatik çarpma yapılabilirmi.
Sayfanın kod bölümüne yazayım dedim ama olmadı.
Teşekkürler

[Bülent Öztürk]

Merhaba Ercan Bey,

İlgili sayfanın Worksheet_Change kod olayına yazın:

Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Excelce As Range
Set Excelce = Application.Intersect(Target, Range("A2:A20"))
If Excelce Is Nothing Then
Else
    Range("B" & Target.Row).Value = Range("A" & Target.Row).Value * 10
End If
End Sub

[drejan62]

Bülent bey teşekkürler
sağolun

[Bülent Öztürk]

Rica ederim.
Siz de sağolun.

[drejan62]

Üstad
sonucun çıkması için hücreye çift tıklamam gerekiyor
neden acam bunu yapmadan sonuc alamazmıyız

[Bülent Öztürk]

Hangi olaya yazdınız kodu?

Change olayı mı, yoksa BeforeDoubleClick olayı mı?

Eğer Change olayı ise, çift tıklama gerek yok.
Rakamı yazıp, Enter yapınca netice yan hücreye yazılacaktır.

[drejan62]

Hangi olaya yazdınız kodu?

Change olayı mı, yoksa BeforeDoubleClick olayı mı?

Eğer Change olayı ise, çift tıklama gerek yok.
Rakamı yazıp, Enter yapınca netice yan hücreye yazılacaktır.

Üstad, Change olayına yazdım

[Bülent Öztürk]

Dosyayı ekler misiniz?

[drejan62]

Dosyayı ekler misiniz?

Üstad örnek dosya eklemeye çalışayım,
İlk hücre otomatik çıkıyor ama diğerlerinde bir hareket yok