• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

A1 hücresine girilen değeri sürekli B1 hücresine toplama

Katılım
27 Eylül 2007
Mesajlar
2
Beğeniler
0
Excel Vers. ve Dili
2007 türkçe
#1
Sadece A1 hücresine her seferinde farklı girilen sayıları B1 hücresinde toplamını nasıl yapabilirim??:yardim: :yardim: :???:
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
23,656
Beğeniler
92
Excel Vers. ve Dili
OFFICE 2013-2016 PRO TR
#2
Selamlar,

ARAÇLAR-SEÇENEKLER-HESAPLAMA menüsünü açın. Yineleme seçeneğini işaretleyin. En fazla yineleme kutucuğuna 1 değerini yazıp tamam deyin.

Daha sonra B1 hücresine =A1+B1 formülünü yazın. A1 hücresine değer girip deneyin.
 
Katılım
28 Nisan 2007
Mesajlar
2,196
Beğeniler
0
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
#3
yanıt

Sayfa kod bölümüne kopyalayınız.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
[b1] = [b1] + [a1]
End Sub
 

komutan63

Altın Üye
Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
1,693
Beğeniler
8
Excel Vers. ve Dili
Excel-2003 Türkçe
Excel-2010 Türkçe
#4
Selamlar,

ARAÇLAR-SEÇENEKLER-HESAPLAMA menüsünü açın. Yineleme seçeneğini işaretleyin. En fazla yineleme kutucuğuna 1 değerini yazıp tamam deyin.

Daha sonra B1 hücresine =A1+B1 formülünü yazın. A1 hücresine değer girip deneyin.
Hocam selamlar,

Bence bir problem var çünkü A1 hücresindeki sayıyı dosya her açılış ve kapanışta artı kaydet denildiğinde üstüne topluyor. Tamam zaten üstüne toplayacak ama bir defa toplayacak bu formülle A1 hücresinden rakmı silmediğimz müddetçe toplama yapıyor. Buna bir çözüm üretebilirsek çok iyi olur çünkü böyle bir soru ben de sormuştum ama tatmin edici bir cevap alamadım.

Saygılar hocam
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
23,656
Beğeniler
92
Excel Vers. ve Dili
OFFICE 2013-2016 PRO TR
#5
Selamlar,

Sn. komutan63,

Bu problemi şu şekilde aşabilirsiniz.

Araçlar-Seçenekler-Hesaplama menüsünü açın. Hesaplama seçeneğini "El ile" moduna ayarlayın. "Kaydetmeden yeniden hesapla" seçeneğini pasif hale getirin. Bu şekilde A1 hücresine değer yazdıktan sonra F9 tuşuna basarsanız istediğiniz sonuca ulaşırsınız.

Eğer bu yöntemi sağlıklı bulmazsanız Sn. V.Basic For Applications beyin sunduğu makrolu çözümü kullanmanızı öneririm.
 

komutan63

Altın Üye
Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
1,693
Beğeniler
8
Excel Vers. ve Dili
Excel-2003 Türkçe
Excel-2010 Türkçe
#6
Teşekkürler hocam

İyi geceler
 
Katılım
30 Kasım 2015
Mesajlar
4
Beğeniler
0
Excel Vers. ve Dili
Office 2010 Türkçe
#7
Sayfa kod bölümüne kopyalayınız.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
[b1] = [b1] + [a1]
End Sub
Merhabalar,

Bu kodu birden fazla satırda uygulama istiyorum. Mesela 1. satırdan sonra 2,3,4,.... satırlara uygulama için kodu nasıl değiştirmem gerekiyor ?
 
Katılım
8 Mart 2011
Mesajlar
11,716
Beğeniler
245
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
#8
......Bu kodu birden fazla satırda uygulama istiyorum. Mesela 1. satırdan sonra 2,3,4,.... satırlara uygulama için kodu nasıl değiştirmem gerekiyor ?
Sayfanın kod bölümüne aşağıdaki KOD'u yapıştırın.
(alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan ekranın sağ tarafındaki boş alana)
Kod:
[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        Cells(Target.Row, 2) = Cells(Target.Row, 2) + Target
    End If
[B]End Sub[/B]
 
Katılım
30 Kasım 2015
Mesajlar
4
Beğeniler
0
Excel Vers. ve Dili
Office 2010 Türkçe
#9
Sayfanın kod bölümüne aşağıdaki KOD'u yapıştırın.
(alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan ekranın sağ tarafındaki boş alana)
Kod:
[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        Cells(Target.Row, 2) = Cells(Target.Row, 2) + Target
    End If
[B]End Sub[/B]
Çok teşekkürler, bu haliyle çalıştı. Ancak ben tablomda bazı değişiklikler yapmıştım. Bu kodun aynı sayfa içinde hem a sütununda hem de d sütununda çalışmasını istiyorum. Bu durumda nasıl olmalı kod ?

Şimdiden teşekkürler.
 
Katılım
1 Şubat 2011
Mesajlar
6
Beğeniler
2
Excel Vers. ve Dili
2011
#12
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
[b1] = [b1] + [a1]
End Sub

Bu Makro A1 hücresinde yazılan rakamı B1 hücresinde topluyor. Fakat benim istediğim A:A sütunundakileri B:B sütununda toplaması, D: D sütunundakileri E:E sütununda, G:G sütunundakileri H:H sütununda toplaması vs. gibi bir Makro nasıl olur?
Acil yardım bekliyorum. Şimdiden yardımcı olacak herkese teşekkür ederim.
 
Katılım
1 Şubat 2011
Mesajlar
6
Beğeniler
2
Excel Vers. ve Dili
2011
#13
Sayfanın kod bölümüne aşağıdaki KOD'u yapıştırın.
(alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan ekranın sağ tarafındaki boş alana)
Kod:
[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        Cells(Target.Row, 2) = Cells(Target.Row, 2) + Target
    End If
[B]End Sub[/B]

Ömer BARAN hocam bir sütun için yapmış.
Talebim Makronun çoklu sütunlarda aynı işlemi yapabilir olması.
Yardımlarınız için şimdiden teşekkür ederim.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
4,703
Beğeniler
341
Excel Vers. ve Dili
2013 64Bit
English
#14
A:A,G:G,I:I....vb şeklinde istediğiniz kolonları belirtip değiştirebilirsiniz.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A,D:D,G:G")) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        Cells(Target.Row, Target.Column + 1) = Cells(Target.Row, Target.Column + 1) + Target
    End If
End Sub
 
Katılım
1 Şubat 2011
Mesajlar
6
Beğeniler
2
Excel Vers. ve Dili
2011
#15
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A:A,D:D,G:G")) Is Nothing Then Exit Sub If IsNumeric(Target) Then Cells(Target.Row, Target.Column + 1) = Cells(Target.Row, Target.Column + 1) + Target End If End Sub

turist harikasın.
Çok ama çok teşekkür ederim.
Duacınım, dualarımdasın.
 
Katılım
1 Şubat 2011
Mesajlar
6
Beğeniler
2
Excel Vers. ve Dili
2011
#17
A:A,G:G,I:I....vb şeklinde istediğiniz kolonları belirtip değiştirebilirsiniz.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A,D:D,G:G")) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        Cells(Target.Row, Target.Column + 1) = Cells(Target.Row, Target.Column + 1) + Target
    End If
End Sub

Bunu tüm sayfalarda çalışsın şekline dönüştürebilirmiyiz acaba ?
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
4,703
Beğeniler
341
Excel Vers. ve Dili
2013 64Bit
English
#18
Sayfa koduna değil, BuÇalışmaKitabı(ThisWorkBook) kısmına ekleyerek deneyin.
Kod:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("A:A,D:D,G:G")) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        Cells(Target.Row, Target.Column + 1) = Cells(Target.Row, Target.Column + 1) + Target
    End If
End Sub
 
Katılım
1 Şubat 2011
Mesajlar
6
Beğeniler
2
Excel Vers. ve Dili
2011
#19
Sayfa koduna değil, BuÇalışmaKitabı(ThisWorkBook) kısmına ekleyerek deneyin.
Kod:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("A:A,D:D,G:G")) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        Cells(Target.Row, Target.Column + 1) = Cells(Target.Row, Target.Column + 1) + Target
    End If
End Sub

Tekrar teşekkür ederim. Makro bilgim yok denecek kadar az, formüllerlede zor oluyor. Burda beklentilerimi karşılayacak örnek görünce destek isteme ihtiyacı duydum.
Desteklerinden ötürü çok teşekkür ederim. Eline, bilgine, zihnine sağlık.
Yardım edebilen insan güzel insandır. Belliki güzel insansın.
Sağlıklı ve huzurlu bir yaşam dilerim her ne kadar tanımasamda Güzel İnsana...
 
Üst