diğerlerini daha uygun bir zamanda çözmeye çalışacağım.
değişiklikler
1 - Kontrol sayfasındaki sicil alanının türünü (F sütunu) metin olarak belirleyin
2 - Veri sayfasındaki sicil alanının türünü (B sütunu) metin olarak belirleyin
3 - Kontrol sayfasına Rütbe için sıra no eklendi.
Dim Sql As String
Dim ADO_RS As ADODB.Recordset
Dim ADO_CN As ADODB.Connection
SQL = "SELECT [VERi$].[F1], [VERi$].[F2], [VERi$].[F5], [VERi$].[F3], [VERi$].[F4],1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 " & _
"FROM [KONTROL$B2:C] INNER JOIN ((([VERi$] " & _
"LEFT JOIN [KONTROL$E2:E] ON [VERi$].[F6] = [KONTROL$E2:E].[F1]) " & _
"LEFT JOIN [KONTROL$F2:F] ON [VERi$].[F5] = [KONTROL$F2:F].[F1]) " & _
"LEFT JOIN [KONTROL$G2:G] ON [VERi$].[F2] = [KONTROL$G2:G].[F1]) ON [KONTROL$B2:C].[F2] = [VERi$].[F5] " & _
"WHERE ([VERi$].[F1] Is Not Null) and (([KONTROL$E2:E].[F1]) Is Null) and (([KONTROL$F2:F].[F1]) Is Null) and (([KONTROL$G2:G].[F1]) Is Null) " & _
"ORDER BY Clng([KONTROL$B2:C].[F1])"
Set ADO_RS = New ADODB.Recordset
Set ADO_CN = New ADODB.Connection
'sonStr = ws.Range("A" & Rows.Count).End(3).Row + 1
ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & _
";extended properties=""excel 12.0;hdr=no;IMEX=1"""
ADO_CN.Open
ADO_RS.Open SQL, ADO_CN, 3, 1
'
SonStr = Worksheets(Me.ComboBox1.Value).Cells(Worksheets(Me.ComboBox1.Value).Rows.Count, 2).End(xlUp).Row + 1
Worksheets(Me.ComboBox1.Value).Range("A7:AI" & SonStr).UnMerge
Worksheets(Me.ComboBox1.Value).Range("A7:AI" & SonStr).ClearContents
' Eğer Hiç Kayıt Yoksa
If ADO_RS.RecordCount = 0 Then
MsgBox "Kayıt Bulunamadı.", vbCritical, "Veri Yok"
GoTo skipfile:
End If
ADO_RS.MoveLast
ADO_RS.MoveFirst
ADO_RS.MoveNext
Worksheets(Me.ComboBox1.Value).Range("A7").CopyFromRecordset ADO_RS
skipfile:
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing
