kapalı dışveriden sicilnoya göre veri almada yine takıl

[mustafakayiran]

örnek dosyaları ekde yolluyorum
liste uzadıkca sicil numarasını kontrol etmeden ekleyip gidiyor
yardımcı olurmusunuz
iyi çalışmalar

 

[Levent Menteşoğlu]

Kodu aşağıdaki ile değiştirin.

Sub verial()
[d5:d65536].ClearContents
For a = 5 To Cells(65536, 1).End(xlUp).Row
aranan = Cells(a, 1).Value
For b = 5 To 361
deger = ExecuteExcel4Macro("'D:\personel\[veri.xls]sayfa1'!R" & b & "C1")
If deger = aranan Then
sat = Cells(a, 1).Row
Cells(sat, 4) = ExecuteExcel4Macro("'D:\personel\[veri.xls]sayfa1'!R" & b & "C5")
End If
Next: Next
End Sub

 

[mustafakayiran]

sayın leventm bunu biraz hızlandırmanın bir yolu varmı?
yoksada önemli değil buda işimi gördü
teşekkür ederim
iyi çalışmalar

 

[Levent Menteşoğlu]

bunu biraz hızlandırmanın bir yolu varmı?

Bu kod için maalesef yok, belki diğer kapalı dosyadan veri çekme yöntemleri daha hızlı olabilir bunuda denemek gerekir.