toplama işlemi

[otelci01]

selamlar

raporda bugune giriş yaptıgımızda bu ay ve bu yıla toplamasını istiyorum buna ait bir makro yapabilirmiyiz.
teşekkürler

 

[fedeal]

İnceleyin böyle daha mantıklı gibi ,iyi çalışmalar.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A, F As Integer
Dim ARA As Variant
If Intersect(Target, Range("B4:B5")) Is Nothing Then Exit Sub
A = Month(Date)
Set ARA = Range("A3:N3").Find(A)
If Not ARA Is Nothing Then
If Target.Row = 4 Then
Cells(4, ARA.Column).Value = CDbl(Cells(4, ARA.Column).Value) + CDbl(Cells(4, 2).Value)
Cells(4, 15).Value = WorksheetFunction.Sum(Range("C4:N4"))
Else
Cells(5, ARA.Column).Value = CDbl(Cells(5, ARA.Column).Value) + CDbl(Cells(5, 2).Value)
Cells(5, 15).Value = WorksheetFunction.Sum(Range("C5:N5"))
End If
For F = 2 To 15
Cells(6, F).Value = CDbl(Cells(5, F).Value) + CDbl(Cells(4, F).Value)
Next
End If
End Sub

 

[turk-x]

Ben Soruyu Başlangıçta Farklı Anladığım için farklı bir çalışma yaptım.

 

[otelci01]

tekrar istek

merhaba arkadaslar,
istediğimi dosyanın içinde anlattım. tekrar bakabilirseniz sevinirim.
şimdiden teşekkürler...

 

[otelci01]

merhaba turk-x sanırım senin çalışman istediğime daha yakın takrar bir bakabilirsen isteğime teşekkürler

 

[turk-x]

Dosyanız Ektedir.

 

[otelci01]

merhaba turk x bugun e giriş yaparken yiyecek gelirini giriyorum hesaplıyor içecek gelirini giriyorum hesaplyor ama yiyecek gelirini tekrar topluyor soyle yapsak olurmu acaba gunluk girişleri elle yapsak sonra bir makro tusuyla hesapla desek ay ve yıla toplatsak seni bugunlerde cok ugrastırdım bunu yaparsan ben biraz geliştirecem ilgin için şimdiden cok teşekkür ederim.

 

[turk-x]

kodlamadaki küçücük bir ayrıntıyı atladığı biliyordum.
düzeltilmiş dosyayı ekliyorum.
Hesapla butonuna gerek yok böyle daha pratik
ama hesaplatmak istersen eski kodlamadaki :
Private Sub Worksheet_Change(ByVal Target As Range) kodunu sub hesapla() olarak değiştir hepsi bu

 

[otelci01]

merhaba,
içecek geliri giriyorum yiyeceğe topluyor bazen topluyor bazen toplamıyor. sanırım yanlış bi kodlama oldu rakamlar aynı olursa sadece yiyecek satırına toplam alıyor garip bi durum. teşekkürler

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodları aşağıdaki şekilde değiştirip denermisiniz.

Sub AYSONU()
    If MsgBox("Veriler Silinecektir. Eminmisiniz?", vbInformation + vbYesNo, "Uyarı") = vbYes Then
    Range("B2:C3").ClearContents
    End If
    Range("B2").Select
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [B2:B3]) Is Nothing Then Exit Sub
    If Target <> "" And IsNumeric(Target) = True Then
    Target.Offset(0, 1) = Target.Offset(0, 1) + Target
    Target.Offset(0, 2) = Target.Offset(0, 2) + Target
    End If
Son:
End Sub

 

[otelci01]

merhaba, evet sorunsuz çalışıyor
asagıdaki kodlarda (0)kendi hücresi (1 ve 2 ) toplatacagı hücre oluyor yanlıs anlamadım sanırım daha fazla hucre var raporumda toplatacagım cunku. teşekkür ederim çalışman için

If Intersect(Target, [B2:B4]) Is Nothing Then Exit Sub
If Target <> "" And IsNumeric(Target) = True Then
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
Target.Offset(0, 2) = Target.Offset(0, 2) + Target