Şartlı Toplama..!

[sensizsoldum]

Merhaba,
B3 hücresine veri girildiğinde, H3 hücresinde, D3 ile F3 Toplamını 1 defaya mahsus yazmasını ve d3 ve f3 teki rakamlar değişse de bu toplamın değişmemesi gerekmektedir. h3 bu toplamı silmek için b3 veri silinmesine bağlı olmaldır.

Makroda boyle bir toplama yapılabilirmi.

 

[sensizsoldum]

Merhaba,
Aşağıda ki kod B sütuna veri girildiğinde 1 kere ye mahsus D ile F sütunu toplamını yazıyor,
Bu toplama yapmasını D sütuna veri girilidiğinde D ile Fnin toplamasını yaptırabilirmiyiz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Column = 2 And Target.Value = "" Then
Target.Offset(0, 6).Value = ""
Else
Target.Offset(0, 6).Value = Target.Offset(0, 2).Value + Target.Offset(0, 4).Value
End If
End Sub

 

[Husgvarna]

Merhaba,
Aşağıda ki kod B sütuna veri girildiğinde 1 kere ye mahsus D ile F sütunu toplamını yazıyor,
Bu toplama yapmasını D sütuna veri girilidiğinde D ile Fnin toplamasını yaptırabilirmiyiz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Column = 2 And Target.Value = "" Then
Target.Offset(0, 6).Value = ""
Else
Target.Offset(0, 6).Value = Target.Offset(0, 2).Value + Target.Offset(0, 4).Value
End If
End Sub

Şöyle deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target.Column = 4 And Target.Value = "" Then
Target.Offset(0, 4).Value = ""
Else
Target.Offset(0, 4).Value = Target + Target.Offset(0, 2).Value
End If
End Sub

 

[sensizsoldum]

Merhaba sayın Husgvarna,
Çok teşekkür ederim elinize, Bilginize sağlık, istediğim gibi oldu ama sizin yazdığınız kodu aşağıdaki kodlarla beraber sayfaya ekliyorum, biri çalışsa diğeri, diğeri çalışmazsa öteki çalışmıyor,
ilk satır ve son satır 1 er adet olmak üzere yapıyorum yine sonuca gidemiyorum acaba farklı kodlarda mı olması gerekiyor.






Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Dim Hücre As Range
If Selection.Columns.Count > 1 Then Exit Sub
If Selection.Count > 1 Then
For Each Hücre In Selection
If Hücre = "" Then
Hücre.Offset(0, -1) = ""
Else
Hücre.Offset(0, -1) = Date
End If
Next Hücre
Exit Sub
End If
If Target.Value = "" Then
Target.Offset(0, -1) = ""
Else
Target.Offset(0, -1) = Date
End If
Son:

End Sub

 

[Husgvarna]

Merhaba sayın Husgvarna,
Çok teşekkür ederim elinize, Bilginize sağlık, istediğim gibi oldu ama sizin yazdığınız kodu aşağıdaki kodlarla beraber sayfaya ekliyorum, biri çalışsa diğeri, diğeri çalışmazsa öteki çalışmıyor,
ilk satır ve son satır 1 er adet olmak üzere yapıyorum yine sonuca gidemiyorum acaba farklı kodlarda mı olması gerekiyor.

Şöyle deneyin

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 4 Then
If Target.Column = 4 And Target.Value = "" Then
Target.Offset(0, 4).Value = ""
Else
Target.Offset(0, 4).Value = Target + Target.Offset(0, 2).Value
End If
End If

On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Dim Hücre As Range
If Selection.Columns.Count > 1 Then Exit Sub
If Selection.Count > 1 Then
For Each Hücre In Selection
If Hücre = "" Then
Hücre.Offset(0, -1) = ""
Else
Hücre.Offset(0, -1) = Date
End If
Next Hücre
Exit Sub
End If
If Target.Value = "" Then
Target.Offset(0, -1) = ""
Else
Target.Offset(0, -1) = Date
End If
Son:

End Sub

 

[sensizsoldum]

Teşekkür ederim Alllah razı olsun. varya bir gecemi verdim, evirdim çevirdım, denemediğim yöntem kalmadı. gerçekten çok teşekkür ederim.

 

[lopercek]

peki arkdaşlar bende şunu yapmak istiyorum

bir hücremde yakıtyazıyor karşılıgınıdan miktarı yazıyor..

ve bütün yakıt yazan hücreleri karlılarında rakamları toplam istiyorum nasıl yapabilri ..

biars acemiyim yardımcı olursanı zevinirm