Makro ile hesaplamalar

[musaagac]

Arkadaşlar Excel sayfamda D1 Hücresine formül yazmadan vb' deb A1 ile B1 Hücresini toplayıp D1 Hücresine yazdırabilirmiyim.

 

[Emir Hüseyin Çoban]

. . .

Sub kod_bir()
[d1] = [a1] + [b1]
End Sub

. . .

 

[musaagac]

Botun ekleme yapmak istemiyorum. A1 ve b1 hücresine yazdığımda direk toplama yapsın

 

[Emir Hüseyin Çoban]

. . .

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a1:b1]) Is Nothing Then Exit Sub
[d1] = [a1] + [b1]
End Sub

. . .

 

[musaagac]

Yardımlarınız için tşk ederim. E1 Hücresi 100 ise A1+B1 Toplasın eğer E1 Hücresi 200 ise A2+B2 toplama yapmasını istiyorum nasıl yapabilirim.

 

[Emir Hüseyin Çoban]

. . .

Merhaba. Üzgünüm yardımcı olamayacağım.
Sorunuzla, bilen arkadaşlar ilgilenecektir.

. . .