hücreleri toplamak

Katılım
5 Haziran 2007
Mesajlar
64
Excel Vers. ve Dili
2007
Türkçe
Altın Üyelik Bitiş Tarihi
05-12-2020
merhaba, benim bir sorum olacak, excel kullanmaya yeni başladım site içerisinde de arama yaptım ama bulamadım. sorum şu:
C sütununda herhangi bir hücreye yazdığım bir rakamın (mesela C2), B sütununda aynı hücrede (B2) görülmesini istiyorum; ancak C2 hücresindeki rakamı değiştirdiğimde B2 hücresindeki rakamın C2 hücresinde yazdığım rakama göre artmasını veya azalmasını istiyorum. Biraz karışık oldu ama kısa bir örnekle söyleyeyim: C2 hücresine 10 yazdım, B2 hücresi de 10 olmalı; daha sonra C2 hücresini 15 olarak değiştirdim B2 hücresi 25 (10+15) olmalı. Sonra C2 hücresine -5 yazdım B2 hücresi 20 (10+15+(-5)) olmalı.
Teşekkür ederim.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,254
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Ekteki örnek dosyayı incelermisiniz.
 
Katılım
5 Haziran 2007
Mesajlar
64
Excel Vers. ve Dili
2007
Türkçe
Altın Üyelik Bitiş Tarihi
05-12-2020
dostum çok teşekkür ederim, çok işime yarayacak, eline emeğine sağlık.
 
Katılım
5 Haziran 2007
Mesajlar
64
Excel Vers. ve Dili
2007
Türkçe
Altın Üyelik Bitiş Tarihi
05-12-2020
kardeşim birşey daha sormak istiyorum, gönderdiğin dosya çok işime yarayacak; tam istediğim gibi olmuş A boş, C de yazdığım B de toplanıyor, bunu yan sütunlara nasıl aktarıcam. aynı şekilde G de yazdıklarımın F de toplanmöasını da istiyorum ama bir türlü yapamadım.
 

tahsinanarat

Altın Üye
Katılım
14 Mart 2005
Mesajlar
2,164
Excel Vers. ve Dili
Ofis 2019 Türkçe
Altın Üyelik Bitiş Tarihi
27-05-2028
Başka bir altarnatif de benden

Daha önceden Benzeri bir çalışmam olmuştu
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,254
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Örnek dosyadaki kodu aşağıdaki şekilde değiştirip denermisiniz.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C:C,G:G]) Is Nothing Then Exit Sub
    If Target <> "" Then Cells(Target.Row, Target.Column - 1) = Cells(Target.Row, Target.Column - 1) + Target
End Sub
 
Katılım
5 Haziran 2007
Mesajlar
64
Excel Vers. ve Dili
2007
Türkçe
Altın Üyelik Bitiş Tarihi
05-12-2020
&#199;ok te&#351;ekk&#252;r ederim, tam ihtiyac&#305;m olan kodlar. T&#252;m sorunumu &#231;&#246;zd&#252;m sayende. Ellerine sa&#287;l&#305;k.
 
Üst