Private Sub UserForm_Initialize()

Dim Sql As String

Dim Cn As Object

Dim Rs As Object

Dim SyfEkle As String

    

    SyfEkle = ""

    For Each syf In Worksheets

        If LCase(syf.Name) = LCase(syf.Range("A1").Value) Then

            SyfEkle = SyfEkle & ",'" & syf.Name & "'"

        End If

    Next syf

    SyfEkle = Mid(SyfEkle, 2)

    Debug.Print "SyfEkle init", SyfEkle

Set Cn = CreateObject("Adodb.Connection")

Cn.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & _

                      ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=no"""

Cn.Open



SQL = "select * from [liste$A2] where [F1]<>'' and [F1] in (" & SyfEkle & ") order by [F1]"

Set Rs = CreateObject("adodb.recordset")

Rs.Open SQL, Cn, 3, 1

ListBox1.Column = Rs.GetRows 'RowSource = "liste!a1:F65536"

Rs.Close

Set Rs = Nothing

End Sub

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

(12/05/2020, 00:11)m_demir yazdı: Hocam UserForm3 de ve liste sayfasında alt toplamları almıyor.