- Katılım
- 11 Mart 2005
- Mesajlar
- 3,049
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhaba,
Ekli dosyada Data sayfasında "A" sütununda isimler var, "B" sütununda ise yetenek değerleri mevcut,
Yapmak istediğim Yetenek alanında 1 ve 2 olanlarda isimlerin ortak olanları (kesişimi) ve ortak olmayanları (kesişmeyenleri);
sorgusunu nasıl oluşturabiliriz?
Teşekkürler,
iyi hafta sonları..
Ekli dosyada Data sayfasında "A" sütununda isimler var, "B" sütununda ise yetenek değerleri mevcut,
Yapmak istediğim Yetenek alanında 1 ve 2 olanlarda isimlerin ortak olanları (kesişimi) ve ortak olmayanları (kesişmeyenleri);
sorgusunu nasıl oluşturabiliriz?
Teşekkürler,
iyi hafta sonları..
Kod:
Sub KesisimListe()
Dim Con As Object
Dim RS As Object
Dim Sql1 As String
Sayfa2.Cells.ClearContents
yol = ThisWorkbook.FullName
Set Con = CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
yol & ";extended properties=""Excel 12.0;hdr=Yes"""
Set RS = CreateObject("ADODB.RecordSet")
Sql1 = "Select Distinct [İSİM] From [Data$]"
' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - -
RS.Open Sql1, Con, 1, 1
ub = RS.RecordCount
If ub > 0 Then
Sayfa2.Range("A2").CopyFromRecordset RS
End If
Sql1 = ""
RS.Close
Set RS = Nothing
Con.Close
Set Con = Nothing
End Sub
Ekli dosyalar
-
16.3 KB Görüntüleme: 11