Hücreye yazdığım sayıyı otomatik toplasın

[ozkan001]

Arkadaşlar herhangi bir hücredeki sayının üstüne yazdığım sayıyı otomatik toplayan bir formül varmı, makro olmadan yapabilir miyiz? Eğer yapamazsak makroyla nasıl yaparız? yardımlarınız için şimdiden teşekkürler.

 

[karadami]

istediğiniz böyle birşey mi?

 

[Metin Karaağaç]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
      Static dAccumulator As Double
      With Target
         If .Address(False, False) = "A1" Then
            If Not IsEmpty(.Value) And IsNumeric(.Value) Then
               dAccumulator = dAccumulator + .Value
            Else
               dAccumulator = 0
            End If
            Application.EnableEvents = False
            .Value = dAccumulator
            Application.EnableEvents = True
         End If
      End With
   End Sub

NOT: Arkadaşlar, bu tür örnekler http://www.excel.web.tr/showthread.php?t=26062 gibi linklerde zaten var. Forumda aramayı bu örneklerden yaparsanız cevabı zaten kendiniz görmüş olursunuz. Ben yukarıdaki kodu, verdiğim linkten buldum.
Kolay gelsin..

 

[ozkan001]

Çok teşekkürler, bu arada forumda arama yaptım fakat bulamadım, o yüzden konu açtım, bulamamamın sebebi acemiliğim olabilir tabii, ama herşeye rağmen forum kurallarını bilen bir üyeyim...

 

[ozkan001]

Arkadaşlar bu kodla denedim fakat ya ben beceremedim, ya da istediğimi tam anlatamadım... olmuyor malesef

 

[Ömer]

Merhaba,

Sayın Metin Karaağaç' ın verdiği kodlarla istediğiniz oluyor.

Örnek dosyada A1 hücresine sayı girerek deneyiniz.İstediğiniz bu değil mi?

 

[ozkan001]

Çok teşekkürler işimi görüyor... Yalnız bir sorum daha olacak bunu tüm A sütununa nasıl taşırım? Kodda bir oynamayla bu olurmu?

 

[nurhan 48]

merhaba arkadaşlar ben örneginizi açamıyorum benim acemiliğimde olabilir yardımlarınızı bekliyorum

 

[Ömer]

Merhaba,

Araçlar / Makro / Güvenlik den Düşük Önerilmezi işaretleyerek deneyiniz..

 

[nurhan 48]

olmuyor açamıyorum başka birşekilde önerebileceginiz bir yöntem varmı?
yardımlarınız için teşekkür ederim

 

[Ömer]

Merhaba,

Başka bir yöntemi bildiğim kadarı ile yok. 6. mesajdaki dosyayı açmaya çalışıyorsunuz sanırım, dosyayı açarken ekranda beliren hata nedir?

 

[nurhan 48]

güvenlik düzeyi yüksek olduğu için makrolar sistem dışı diyor düşürüyorum kayda almıyor

 

[Ömer]

Merhaba,

9. mesajımda bende onunla ilgili yapılması gerekeni söylemiştim.

Tekrar yazayım,

Boş bir excel sayfasında iken,

Araçlar / Makro / Güvenlik, açılan ekranda Düşük ( Önerilmez) işaretleyip tamama basınız ve sayfayı kapatınız, daha sonra forumdaki dosyayı açmayı deneyiniz..

 

[nurhan 48]

tamam şimdi açtım ama benim istediğim tam olarak bu değil örneğin bir veri yazdım başka birgün veri yazmak istediğimde önceki miktar ile şimdiki miktarın toplamını vermesini istiyorum.umarım anlatabilmişimdir...

teşekkür ederim

 

[Ömer]

Merhaba,

Örnek dosya eklermisiniz..

 

[nurhan 48]

tutar
a firması 500 ytl (09.05.2008 tarihinde bu veriyi giriyorum)
başka bir tarihte 500 ytl yazan kısma 250 ytl yazdığımda otomatik olarak 750 ytl olmasını istiyorum

 

[Ömer]

Merhaba,

Aynı hücre üzerinde her yazılanı toplatmak istiyorsanız 6. mesajdaki örnek dosya bu istediğinizi veriyor, Örnelk dosyada A1 hücresine sayı art arda sayı yazarak deneyiniz, istediğiniz bu değilse açıklamanız yetersiz.

Sorunuzu örnek dosya ile desteklerseniz daha kısa ve kesin çözüme ulaşabiliriz..

 

[nurhan 48]

Aynı hücre üzerinde her yazılanı toplatmak istiyorum, fakat sizin bakmamı istediğiniz örnek gr üzerine yapılmış
aynı sütun ve satır üzerinde toplama yaplmasını istiyorum

 

[ayhan7tr]

Hücredeki sayının üzerine toplama

Sayın nurhan Arkadaşım,

Daha önce bende aradım sağolsun sitenin admin bölümünden yanılmıyorsan Levent Bey bu kodları gayet mükemmel işe yarıyor

Dim dAccumulator As Double
 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 
If Not Intersect(Target, Range("E9:E29,F9:F29,J9:J29,K9:K29")) Is Nothing Then
 
With Target
 
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
dAccumulator = dAccumulator + .Value
Else
dAccumulator = 0
End If
 
Application.EnableEvents = False
.Value = dAccumulator
Application.EnableEvents = True
 
End With
 
End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
dAccumulator = Target
 
End Sub

bu kodları toplamayı yaptırmak istediğin sutunlara göre ayarla worksheet sayfasının en üstüne kopyala mükemmmel çalışıyor

Kolay gelsin

 

[halilbay2]

Arkadaşlar birde son girdiğim değeri görmem açısından C sütununa sayı girildiğinde D sütununda toplasa mümkün mü? İlginize teşekkür ederim.