Hucreler arasi 4 islemsel toplama

[emin.soydemir]

Arkadaslar luften yardim edin

 

[emin.soydemir]

Merhaba arkadaslar

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

yardımcı olursanız cok memnun kalirim.

tesekkurler.

Emin

 

[emin.soydemir]

Merhaba arkadaslar,

asagidaki kodu Tum 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