Tüm kolonda macroyu calistirmak

[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

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

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

 

[emin.soydemir]

Merhaba uygulmayi calistirdim ama sorun var.

Levent Bey,

Cevapladiginiz ve yardımcı oldugunuz icin tesekkur ederim. Yalnız herhangi bir d kolonu sayi girdigimde E kolonuna giriyor ama F kolonuna da yaziyor.

ekte tek bir kolon icin yapılmıs hali var. bunu tum kolona yansıtmam gerekiyor.

tesekkurler simdiden.

Emin.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d:d]) Is Nothing Then Exit Sub
If Target = "" Then GoTo 10
Target.Next = Target.Next.FormulaR1C1 & "+" & Target
10:
End Sub

 

[emin.soydemir]

ekteki dosya aynen istedigim gib ama tum kolona olmuyor.

Levent,

Ekteki dosyayi duzelttim. dosyada D5 e =15/2+3*6 gibi bir islem yazidigimda E5 e ekleniyor ve sadece islem sonucunu gosteriyor. E5 icerigine baktigimda islemi gorebiliyorum.

Sadece bunu tum D kolonunda yapmak istiyorum.

Cevabinizi bekliyorum.
tesekkurler.

 

[Levent Menteşoğlu]

Yapmak istediğiniz D sütununa yazdığınız değeri E sütununda üstüne toplayarak yazmasımıdır? bu durumda sadece toplamı görmek yeterlimi yoksa eklenen verileride görmek istiyormusunuz?

 

[emin.soydemir]

icerigi formula bar da gormeliyim

E kolonunda toplami gormem yeterli. ama e kolonunun islem icerigini formula bara baktigimda gormeliyim.

aynen ek dosyada oldugu gibi.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim formul As String
If Intersect(Target, [d:d]) Is Nothing Then Exit Sub
If Target = "" Then GoTo 10
formul = Target.FormulaR1C1
If Left(formul, 1) = "=" Then formul = Right(formul, Len(formul) - 1)
If InStr(Target.Next.Formula, "=") = 0 Then isaret = "="
Target.Next = isaret & Target.Next.FormulaR1C1 & "+" & formul
10:
End Sub

 

[emin.soydemir]

Nasil tesekkur ederim.

levent bey,

nasil tesekkur edebilirim size bilmiyorum.

Emin.