makro ile üstüne toplama

[issirik]

merhaba, öncelikle yardımlarınıza şimdiden teşekkür ederim.
ekteki kitap1 de A sutununa yazdığım rakamları I sutununda sürekli üstüne topluyorum ama bunu tüm sutunda nasıl yaparız o konuda sizlerden yardım istiyorum.Ekli dosyayı görüntüle Kitap1.xlsm

 

[enginktk]

merhaba, öncelikle yardımlarınıza şimdiden teşekkür ederim.
ekteki kitap1 de A sutununa yazdığım rakamları I sutununda sürekli üstüne topluyorum ama bunu tüm sutunda nasıl yaparız o konuda sizlerden yardım istiyorum.Ekli dosyayı görüntüle 149983

Merhaba sadece A satırınıa alt alta sayılar yazacaksın değilmi yanlış anlamadıysam.

 

[dEdE]

Merhaba,
Aşağıdaki kodu sayfanızın kod bölümüne yapıştırarak dener misiniz?

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, 8).Value = Target.Offset(0, 8).Value + Target.Value
Son:
End Sub

 

[enginktk]

Merhaba,
Aşağıdaki kodu sayfanızın kod bölümüne yapıştırarak dener misiniz?

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, 8).Value = Target.Offset(0, 8).Value + Target.Value
Son:
End Sub

Merhaba DEDE ben bu verdiğin kodu ekledim ama nedense olmadı ama ben var olan kodu çoğaltarak yaptım acaba neden verdiğin kod olmadı?

 

[dEdE]

Merhaba,
Sorunuzdan anladığım;

A3 hücresine 5 yazdım entere bastım. I3 5 oldu. Tekrar
A3 hücresine 4 yazdım entere bastım. I3 9 oldu.

budur. Eklediğim kod A sütununun tamamında bunu yapar.
Farklı bir şey istiyorsanız, ben yanlış anladım demektir. Örneklerle açıklarsanız yardımcım olmaya çalışırım.
Yukarıdaki açıklamalar doğrultusunda hazırladığım dosyanız ilişiktedir.
Hoşçakalın.

 

[issirik]

Hepinize çok teşekkür ederim arkadaşlar tam istediğim oldu.
a ve b sutununa başka sayfadan satılan ürünleri giriyorum ı sutununda sayıyorum.
yani stok için.

 

[issirik]

üstüne toplama

Merhaba,
Aşağıdaki kodu sayfanızın kod bölümüne yapıştırarak dener misiniz?

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, 8).Value = Target.Offset(0, 8).Value + Target.Value
Son:
End Sub

bu formülü butona uyarlayabilirmiyiz zahmet olmazsa...yani butona bastığımda toplama yapsın...

 

[Emirabi]

Merhaba,

Dede ye verdiği koddan ötürü teşekkür ederim.Büyük bir problemimi çözdü.

Bir sorun var bu durum ile ilgili

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

Yukarıda verilen kodu "F" sütununda da kullanmak istiyorum düzenlemeyi nasıl yapmalıyım.
Yardımlarınız için teşekkür ederim.
Herkese iyi çalışmalar