sirali hücre degerini baska hücrede toplatmak

[dennisf06]

merhaba
a1 hücresine bir deger yazip tekrar silip baska bir deger yazdiktan sonra bu pespese yazdigim degerlerin toplamini baska bir hücrede görmek mümkün mü acaba. a1 hücresine önce 2 sonra 4 sonra 7 yazdiktan sonra b1 hücresinde bunlarin toplami 13 gibi.tesekkür ederim.

 

[ZorBey_]

Merhaba iyi çalışmalar
Ekli dosyayı denermisiniz.
http://s3.dosya.tc/server17/S3YgmD/A1_B1Toplar.rar.html

 

[dennisf06]

merhaba
tesekkür ederim asr35 ustam öncelikle. malesef su an internetimdeki bir problem yüzünden telefondan takip etmek durumunda kaldim simdi konuyu. acik olarak bir formül veya kod yazabilirsen bakma imkanim olacak yoksa internet problemini cözdükten sonra ekteki dosyayi inceleyebilecegim.

 

[ZorBey_]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Range("B1").Value = Range("B1").Value + Range("A1").Value
If Range("A1") <> 0 And Range("B1") <> "" Then
Application.EnableEvents = False
Range("A1").Select
End If
10 Application.EnableEvents = True
End Sub

 

[dennisf06]

asr 35 ustam cok tesekkür ederim.saglicakla kal.

 

[ZorBey_]

Kolay gelsin iyi çalışmalar.

 

[dennisf06]

hocam kusura bakma bir soru eklemek istiyorum hemen. a2, a3, a4....hücrelerinde bu islemi cogaltarak kullanabilmek icin kodu cogaltip kopyalamak icin nasil bir degisiklik yapmam gerekiyor. tesekkür ederim.

 

[ZorBey_]

A1 Boş Bırakın
A2 Veri girin
A3 Veri girin
A4 Veri girin
A5 Veri girin
A6 Veri girin
Ve A1 hücresini çift tıklayın
A2-A3-A4-A5-A6
Hücrelerinde veri varsa
B1 hücresine onları toplar.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Range("B1").Value = Range("B1").Value + Range("A2").Value + Range("A3").Value + Range("A4").Value + Range("A5").Value + Range("A6").Value
If Range("A2") <> 0 And Range("A3") <> 0 And Range("A4") <> 0 And Range("A5") <> 0 And Range("A6") <> 0 And Range("B1") <> "" Then
Application.EnableEvents = False
Range("A1").Select
End If
10 Application.EnableEvents = True
End Sub

 

[dennisf06]

hocam cok özür dilerim öncelikle. tam aciklayici cevap yazmadigim icin.A1hücresine yazdigim degerler B1 hücresinde A2 hücresine yazdigim degerler B2 hücresinde A3-B3...toplansin istemistim aslinda.yani herbiri bagimsiz. tesekkür ederim.

 

[ZorBey_]

Sayın dennisf06
Son kararınızmı.

 

[dennisf06]

hocam yordum sizi. tekrar emeginiz tesekkür ederim. saglicakla kalin.

 

[ZorBey_]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value
Son:
End Sub

 

[dennisf06]

sabirla yapmis oldugunuz cözüm icin tekrar tekrar tesekkür ederim.

 

[ZorBey_]

İyi Çalışmalar.

 

[ERKAN85]

Merhaba iyi çalışmalar
Ekli dosyayı denermisiniz.
http://s3.dosya.tc/server17/S3YgmD/A1_B1Toplar.rar.html

Merhaba iyi çalışmalar
Ekli dosyayı denermisiniz.
http://s3.dosya.tc/server17/S3YgmD/A1_B1Toplar.rar.html
Eklenmiş DosyalarDosya Türü: rar A1 & B1 Toplar.rar (7.4 KB, 1 Görüntülenme)

MRB ERKAN BEN
GÖNDERMİŞ OLDUĞUNUZ RAR DOSYADAKİ EXCEL DOSAYASINI AÇTIM VE YAPMAK İSTEDİĞİM TOPLAM İŞLEMİ ODUR FAKAT FORMÜL OLARAK BİR TÜRLÜ OLUŞTURAMADIM YARDIMCI OLURSANIZ MEMNUN OLURUM SAYGILAR

 

[ZorBey_]

Merhaba iyi geceler
Sayın ERKAN85
Formül yok
Sayfa adını sağ tıklayın
Kod görüntüleyi tıklayın
kodlar görünecektir.