toplama ekleme

[Mahir64]

başka bir sorun çıktı Ekte anlattım sorunumu

Merhaba,

Fonksiyon ile bunu sorunu aşamazsınız.

Makroya yönelmenizi tavsiye ederim.

Bu şekilde her yenilemede işlem yapacaktır. Dolayısıyla F2 Enter olayı gerçekleştiğinde tüm veriler yeniden toplanacaktır.

 

[lord25turkey]

makro yu hiç bilmem yardım ederseniz eğer halledebiliriz sizin için zor olmasa gerek şimdiden tşkler

 

[Mahir64]

makro yu hiç bilmem, yardım ederseniz eğer halledebiliriz. Sizin için zor olmasa gerek. Şimdiden teşekkürler

Merhaba,

Makro ile isterseniz; Sayfanın kod bölümüne ekleyerek deneyiniz.

Not: 2007 versiyonu için, kod'u ekledikten sonra- Farklı Kaydet / Makrı içeren dosya olarak kaydederek tekrar açınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1:B65536]) Is Nothing Then Cells(Target.Row, "C") = Cells(Target.Row, "C") + Cells(Target.Row, "B")
End Sub

 

[lord25turkey]

tşkler ama ben bunu nereye yazıcam siz yazsanız ekte sunsanız olmazmı

 

[Mahir64]

tşkler ama ben bunu nereye yazıcam siz yazsanız ekte sunsanız olmazmı

Merhaba,

Uyarlayıp ekte göndermek sorun değil,
Ama bir şey sormak istiyorum?
"tşkler" ne demek. Merak ettim.

 

[lord25turkey]

teşekkürler

 

[Mahir64]

teşekkürler

"Teşekkürler" olarak yazabiliyormuşsunuz.? Klevyede sorun yokmuş

Eki İnceleyiniz.

Dosya çalışmazsa olası hatalar:
*Makro seviyeniz yüksek olabilir.
*Makroları etkinleştirmeden deneme yapmış olabilirsiniz.

 

[lord25turkey]

Merhaba arkadaşlar kusuruma bakmazsınız umarım tabloyu yanlış hazırlamışım tablo ekteki gibi olucak geliş girdiğimde geliş toplamı olucak dakika girdiğimde dk toplamı olucak ben önceki yaptığınız ile uğraştım ama beceremedim işin içinde makro olunca :d yardımlarınızı bekliyorum şimdiden teşekkür ederim ellerinize sağlık.

 

[lord25turkey]

yardım edecek kimse yok galiba

 

[lord25turkey]

Bu makro kodunu alıyorum aynı şekilde yapmaya çalışıyorum hata veriyor nerde hata var acaba

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1:B65536]) Is Nothing Then Cells(Target.Row, "C") = Cells(Target.Row, "C") + Cells(Target.Row, "B")
End Sub