Private Sub UserForm_Initialize()
Dim son As Integer
ActiveSheet.Unprotect "4455"
Application.ScreenUpdating = False
Set SÝ = Sheets("liste")
SÝ.[A21000].ClearContents
SAT = 1
For Z = 2 To Sheets.Count
If LCase(Sheets(Z).Name) <> "sayfa1" Then
SÝ.Cells(SAT + 1, 1) = Sheets(Z).[a1].Value
SÝ.Cells(SAT + 1, 2) = Sheets(Z).[G5].Value
SÝ.Cells(SAT + 1, 3) = Sheets(Z).[ý5].Value
SÝ.Cells(SAT + 1, 4) = Sheets(Z).[K4].Value
SAT = SAT + 1
End If
Next
'son = Cells(65536, "f").End(xlUp).Row + 1
'Cells(son, "g") = WorksheetFunction.Sum(Range("f3:f65536"))
'Cells(son, "ý") = WorksheetFunction.Sum(Range("e3:e65536"))
'Cells(son, "ý") = WorksheetFunction.Sum(Range("d3:d65536"))
Application.ScreenUpdating = True
'MsgBox "AKTARMA ÝÞLEMÝ TAMAMLANMIÞTIR." & vbCrLf & vbCrLf
ActiveSheet.Protect "4455"
son = Sheets("liste").Cells(Rows.Count, 1).End(3).Row
If son > 1 Then ListBox1.RowSource = "liste!A2:F" & son
End Sub
Alttaki gibi değiştiriseniz hen 2.satırdan başlar hemde sayfa1 harici listelenir.Alttoplam olayını tam açıklamanız gerekmektedir.