Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: drejan62 - 22 Nisan 2010, 11:05:02

Başlık: Otomatik Hesaplama
Gönderen: drejan62 - 22 Nisan 2010, 11:05:02

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

Başlık: Ynt: Otomatik Hesaplama
Gönderen: Bülent Öztürk - 22 Nisan 2010, 11:18:06

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

Başlık: Ynt: Otomatik Hesaplama
Gönderen: drejan62 - 22 Nisan 2010, 11:27:47

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

Başlık: Ynt: Otomatik Hesaplama
Gönderen: Bülent Öztürk - 22 Nisan 2010, 11:29:02

Rica ederim.
Siz de sağolun.

Başlık: Ynt: Otomatik Hesaplama
Gönderen: drejan62 - 22 Nisan 2010, 11:33:30

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

Başlık: Ynt: Otomatik Hesaplama
Gönderen: Bülent Öztürk - 22 Nisan 2010, 11:35:32

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.

Başlık: Ynt: Otomatik Hesaplama
Gönderen: drejan62 - 22 Nisan 2010, 11:53:51

Alıntı yapılan: Bülent Öztürk - 22 Nisan 2010, 11:35:32

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

Başlık: Ynt: Otomatik Hesaplama
Gönderen: Bülent Öztürk - 22 Nisan 2010, 11:56:23

Dosyayı ekler misiniz?

Başlık: Ynt: Otomatik Hesaplama
Gönderen: drejan62 - 22 Nisan 2010, 12:12:22

Alıntı yapılan: Bülent Öztürk - 22 Nisan 2010, 11:56:23

Dosyayı ekler misiniz?

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