Kapalı dosyada bulunan bir sütun ile karşılaştırma

tarzanhaci

Altın Üye
Katılım
24 Şubat 2009
Mesajlar
724
Beğeniler
2
Excel Vers. ve Dili
2003
#1
Merhaba arkadaşlar; Hayırlı Günler diliyorum.
Kapalı olan ve doysa yolu "D: \ Belgelerim \ Personel \ PERSONEL LİSTESİ.xlsm" olan bir dosyamın B sütununda bulunan sicilleri açık olan dosyamın E sütunundaki sicillerle karşılaştırarak, olmayanları örnek dosyamdaki gibi hazırlamak için nasıl bir kod yazılır. Teşekkürler.
 

Ekli dosyalar

Son düzenleme:

tarzanhaci

Altın Üye
Katılım
24 Şubat 2009
Mesajlar
724
Beğeniler
2
Excel Vers. ve Dili
2003
#2
siciller ile karşılaştırarak olmayanları örnekteki gibi yazmasını istiyorum. Saygılarımla....
 

Erdem_34

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,037
Beğeniler
62
Excel Vers. ve Dili
OFİS 2013 TÜRKÇE-İNG. 64 BİT
#3
Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Sub dememe()

Range("AV7:AX20000").ClearContents

yol = "D:\Belgelerim\Personel\PERSONEL LİSTESİ.xlsm"

Set con = VBA.CreateObject("adodb.Connection")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select Sicili from[LİSTE$] where sicili is not null "
Set rs = con.Execute(sorgu)

x = 7

For Each deg In rs.getrows

s = Application.CountIf(Range("E7:E20000"), deg)

If s = 0 Then

sorgu = "select Adı+' '+Soyadı,MESAİ from [liste$] where Sicili = " & deg & " "
Set rs = con.Execute(sorgu)

Cells(x, "av") = deg
Cells(x, "aw") = rs.Fields.Item(0)
Cells(x, "ax") = rs.Fields.Item(1)
x = x + 1
End If

Next deg

End Sub
 
Son düzenleme:

tarzanhaci

Altın Üye
Katılım
24 Şubat 2009
Mesajlar
724
Beğeniler
2
Excel Vers. ve Dili
2003
#4
Sayın Erdem bey çok güzel çalıştı, eline sağlık dua ile kal. Allah razı olsun
 
Katılım
24 Şubat 2009
Mesajlar
724
Beğeniler
2
Excel Vers. ve Dili
2003
#5
Merhabalar; Erdem Beyin hazırlamış olduğu 3 nolu cevaptaki kod güzel olarak çalıştı, burada bir isteğim daha olacak, aşağıda yeni dosyayı ekledim, açık olan Bordro dosyasındaki personeli kapalı olan Personel Listesi Dosyası ile karşılaştırsın, Personel dosyasında olmayanları bunun altına eklesin, ayrıntısı aşağıda eklemiş olduğum dosyada anlattım. Teşekkürler.
 

Ekli dosyalar

Katılım
24 Şubat 2009
Mesajlar
724
Beğeniler
2
Excel Vers. ve Dili
2003
#6
Sayın abiler, bu dosyaya bir bakabilir misiniz?
 
Üst