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
tam olarak sisteminiz anlayamadım ama aşağıdaki kod işinize yarayabilir