Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [[B][SIZE=18px][COLOR=rgb(132, 53, 52)]G2[/COLOR][/SIZE][/B]]) Is Nothing Then Exit Sub
Dim brn()
Set s2 = Sheets("Sayfa2")
s2.Range("A5:P" & Rows.Count).Clear
veri = Range("A5:P" & Cells(Rows.Count, 1).End(3).Row).Value
For sat = 1 To UBound(veri)
If veri(sat, 1) = [[B][SIZE=18px][COLOR=rgb(132, 53, 52)]G2[/COLOR][/SIZE][/B]] Or [[B][SIZE=18px][COLOR=rgb(132, 53, 52)]G2[/COLOR][/SIZE][/B]] = "" Then
s = s + 1: ReDim Preserve brn(1 To 16, 1 To s)
For sut = 1 To 16: brn(sut, s) = veri(sat, sut): Next
End If: Next
If s > 0 Then s2.[A5].Resize(s, 16) = Application.Transpose(brn): Erase veri: Erase brn
If s > 0 Then s2.Range("I" & s + 5 & ":O" & s + 5).Formula = "=SUM(I5:I" & s + 4 & ")"
s2.Range("I" & s + 5 & ":O" & s + 5).Font.Bold = True
End Sub
