BAĞIMSIZ TOPLAMA YAPABİLECEK MACRO

[fireman64]

BAÐIMSIZ TOPLAMA YAPABÝLECEK MACRO

BENİM SORUM;

A1 HÜCRESİNE SAYI GİRDİÐİMDE B1 HÜCRESİNDE Kİ SAYI İLE TOPLAYARAK SONUCU C1 HÜCRESİNE YAZACAK.

FAKAT A1 HÜCRESİNİN SAYISI SİLİNDİÐİNDE C1 HÜCRESİNİN DEÐERİ DEÐİÞMEDEN KALACAK. BİR FORMÜL YADA MACRO YAZABİLİRMİSİNİZ.

 

[Explorer]

İlgili sayfanın kod sayfasına aşağıdaki kodları yazın
[vb:1:8fd0bce59a]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A1" And Not Target = "" Then
Range("C1") = Range("A1") + Range("B1")
End If
End Sub[/vb:1:8fd0bce59a]

 

[fireman64]

teşekkürler explorer

 

[muallim]

Merhabalar,
Bu işlemi A, B, C sütunlarının alt satırlarına da uygulamak için her satır için kodu alt alta yazmam mı gerekir.
Yoksa kısa yolu varmıdır. Acilen lazım. Þimdiden teşekkür :yardim: ler.

 

[danersin]

[vb:1:26365e628f]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Not Target = "" Then
Cells(Target.Row, Target.Column + 2) = Cells(Target.Row, Target.Column) + Cells(Target.Row, Target.Column + 1)
End If
End Sub
[/vb:1:26365e628f]

 

[fireman64]

TOPLAMA

EK TE GÃ?NDERDİÐİM SAYFAYA UYGUN MACRO YAZABİLİRMİSİNİZ.

(YAPILMASI İSTENİLEN SAYFADA BELİRTİLMİÞTİR.)