kod güncellemesi

[igultekin2000]

iyi günler ;
muavin dökümü aldığım işlemde , bakiye toplamını da ilave etmek istiyorum. mantığını kuramadım. yardımcı olacak arkadaşlara teşekkürler. örnek dosya ve açıklamayı ekliyorum.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 If Not Intersect(Target, Range("b3:b65536")) Is Nothing Then
  sat = Target.Row
  Sheets("muavin").Range("a2") = Sheets("muavin").Cells(sat, "b")
  Sheets("muavin").Range("c" & sat & ":j65536").ClearContents
  If Sheets("muavin").Range("b" & sat) <> "" Then Sheets("muavin").Range("b" & sat & ":j" & sat).Borders(xlEdgeTop).LineStyle = xlContinuous
  If Sheets("muavin").Range("b" & sat) = "" Then Sheets("muavin").Range("b" & sat & ":j" & sat).Borders(xlEdgeTop).LineStyle = xlNone
  Call analiz
  End If
End Sub

Sub analiz()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("ITHALAT")
Set s2 = ThisWorkbook.Worksheets("muavin")
For i = 2 To s1.Range("e65536").End(xlUp).Row
If s1.Cells(i, "e") = s2.Cells(2, 1) Then
sonsatir = s2.Range("c65536").End(xlUp).Row + 1
For k = 3 To 10
s2.Cells(sonsatir, k) = s1.Cells(i, k)
Next k
s2.Cells(sonsatir + 1, "b").Select
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[1903emre34@gmail.com]

K3 hücresine aşağıdaki formül dener misiniz?

=ETOPLA(B$3:F16;B3;F3:F16)

 

[igultekin2000]

sonuç vermiyor

K3 hücresine aşağıdaki formül dener misiniz?

=ETOPLA(B$3:F16;B3;F3:F16)

ilk satırda toplamı veriyor aşağı kopyalayınca 0 oluyor