Kod İle Kümülatif Toplam Almak

[turanb]

Merhabalar

Ekteki tablomun G sütununa E ve F Hücreleri değerlerine göre kümülatif toplam almasını istiyorum. G=G+E-F gibi.

Teşekkürler.


http://s3.dosya.tc/server15/keRarw/Bo_cari.rar.html

 

[Baggwell]

Merhaba

Sorunuzu tam anlayamadım ama şu türde bir toplam mı yapmak istiyorsunuz ?

Resimdeki sonuçlar size göre doğrumu ?

 

[turist]

Formülle çözüm için önerim:
G2 hücresine
İngilizce Excel için:

=IF(ROW()=2;E2-F2;G1+E2-F2)

Türkçe Excel için:

=EĞER(SATIR()=2;E2-F2;G1+E2-F2)

uygulayın, formülü aşağıya kadar kopyalayın.

 

[turanb]

Merhaba

Sorunuzu tam anlayamadım ama şu türde bir toplam mı yapmak istiyorsunuz ?

Resimdeki sonuçlar size göre doğrumu ?

Evet dogru. Ama bunu formulle degilde kod ile yapmak istiyorum.
Yeni fark ettim. Ücuncu bir sutun daha olmali A B ve C sutunu diyelim.
A yi toplayacak B yi cikaracak ve C sutununa yazacak. Yaptiginiz mantik dogru. Ama degeri düşürecek sutun yok.

Tesekkurler.

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfasının kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
    If Intersect(Target, [C:H]) Is Nothing Then Exit Sub
    Cells(Target.Row, "b") = Format(Now, "dd.mm.yyyy")
son:

If Intersect(Target, [E:F]) Is Nothing Then Exit Sub
Range("G2") = Range("E2") - Range("F2")
For i = 3 To [C65536].End(3).Row
Cells(i, "G") = Cells(i - 1, "G") + Cells(i, "E") - Cells(i, "F")
Next i
End Sub

. . .

 

[turanb]

Hüseyin hocam elinize sağlık,

Ancak sonucu sadece ilk satırda gösteriyor. Kod da bir düzeltme mi yapılması gerekiyor acaba.

 

[Baggwell]

Ben yine de formül ile yapılmış versiyonunu paylaşayım ki belki işinizi görür

 

[turanb]

. . .

Çalışma sayfasının kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
    If Intersect(Target, [C:H]) Is Nothing Then Exit Sub
    Cells(Target.Row, "b") = Format(Now, "dd.mm.yyyy")
son:

If Intersect(Target, [E:F]) Is Nothing Then Exit Sub
Range("G2") = Range("E2") - Range("F2")
For i = 3 To [C65536].End(3).Row
Cells(i, "G") = Cells(i - 1, "G") + Cells(i, "E") - Cells(i, "F")
Next i
End Sub

. . .

Hüseyin bey kod sadece ilk satırda sonuc veriyor devamındaki satırlar için sonuç vermiyor. Yazım hatası mı var acaba.
Koddan anladığım kadarı ile benim istediğim bu şekilde. Ama sonuç yok.

 

[Emir Hüseyin Çoban]

Hüseyin bey kod sadece ilk satırda sonuc veriyor devamındaki satırlar için sonuç vermiyor. Yazım hatası mı var acaba.
Koddan anladığım kadarı ile benim istediğim bu şekilde. Ama sonuç yok.

. . .

Dosyanız ektedir. ( # 5 nolu mesajımdaki kodlar)
C sütunundaki son dolu hücreye kadar çalışır.

İşlem Sonucu:

. . .

 

[turanb]

Tamamdır Hüseyin bey şimdi anladım mantığı.

C sütunua bişey yazmadan borç alacak kısımlarını doldurarak yapıyordum o yüzden olmuyormuş.

Teşekkür ederim.

 

[turanb]

Hüseyin bey merhaba

Çalışmasını yaptığınız Cari hesap Takip raporu ilgili bir sorun var idi.

Kayıt yaparken işlem tarihini otomatik olarak atıyor.

Ancak farklı bir günde yeni kayıt yaptığımız zaman daha önceki günde işlem yapılan tarihleri de güncelliyor. oysaki işlem yapıldığı günün tarihi sabit kalması lazım.

Ufak bir müdahalede bulunabilir misiniz.

 

[Emir Hüseyin Çoban]

Hüseyin bey merhaba
Çalışmasını yaptığınız Cari hesap Takip raporu ilgili bir sorun var idi.
Kayıt yaparken işlem tarihini otomatik olarak atıyor.
Ancak farklı bir günde yeni kayıt yaptığımız zaman daha önceki günde işlem yapılan tarihleri de güncelliyor. oysaki işlem yapıldığı günün tarihi sabit kalması lazım.
Ufak bir müdahalede bulunabilir misiniz.

. . .

On Error GoTo son
    If Intersect(Target, [C:H]) Is Nothing Then Exit Sub
[COLOR="Red"]    If Cells(Target.Row, "b") = "" Then[/COLOR]
    Cells(Target.Row, "b") = Format(Now, "dd.mm.yyyy")
[COLOR="Red"]    End If[/COLOR]
son:

. . .

 

[gazmik]

merhaba arkadaşlar. ben sabit bir hücreyle bir sütunları alt alta çarpım yandaki hücreye yazdırmak istiyorum, nasıl yapabilirim ?
........A...........B
1.......2........=2*10
2.......4.........=4*10
3.......6.........=6*10
4.......8.........=8*10
5...................10
Yani B5 hücresi sabit, B1 hücresi A1 ile B1in çarpımı olacak. ben burda 5 satır verdim ama yapmam gereken 25 satır , Vba ile bunu nasıl kodlarım ?
şimdiden teşekkürler

 

[gazmik]

http://s3.dosya.tc/server16/uKHWRd/vba.zip.html
umarım anlatabileceğim derdimi, ve yardımcı olacaklara şimdiden çoook teşekkür ederim.

ekteki dosyada; P sütununa kümülatif toplam yazdırmam lazım ama ilk basmamda, ben ilk bastığımda sadece hesaplamasını(makrodan okuyabilirsiniz) 2 bastığımda ise kümülatif yapabilmesini becerdim, nasıl yapsam hiç bir fikrim de yok
yarına yetişmesi lazım, umarım yardımcı olursunuz