Hucreler arasi 4 islemsel toplama

Katılım
6 Mart 2007
Mesajlar
54
Excel Vers. ve Dili
2003 English
Merhaba arkadaslar

asagidaki kodu tum D:D kolonu ve E:E kolonu icin nasil duzenleyebilirim.

yardımcı olursanız cok memnun kalirim.

tesekkurler.

Emin
 
Katılım
6 Mart 2007
Mesajlar
54
Excel Vers. ve Dili
2003 English
Merhaba arkadaslar,

asagidaki kodu Tum D:D ve E:E kolonu icin nasil uygulayabilirim.

tesekkurler.



Private Sub Worksheet_Change(ByVal Target As Range)
Dim formul As String
If Intersect(Target, Range("D5")) Is Nothing Then Exit Sub
If [d5] = "" Then GoTo 10
formul = [d5].FormulaR1C1
MsgBox formul
If Left(formul, 1) = "=" Then formul = Right(formul, Len(formul) - 1)
[e5] = [e5].FormulaR1C1 & "+" & formul
10:
End Sub
 
Üst