dış veriden sicil numarasına göre veri almak istiyorum

[mustafakayiran]

bir anadosya isminde excel dosyam var ve sayfa1 de sıra numarası sicil numarası adı soyadı ve degerleri var, kapalı olan veri isimli excel dosyamın sayfa1 inde bulunan alt alta dizilmiş sicil numarası adı soyadı ve karşılarında degeri var anadosya in sayfa1ine ekledigim butona bastığımda sicil numaralarına göre veri dosyamda bulunan sicil numaralarının karşılığı gelen anadosyadaki sicil numaralarının karşısına verilerin yazılmasını istiyorum
yani anadosya dosyasındaki sicil numararının karşısında değeri yoksa veri dosyasında bulunan sicil numarasının karşısında bulunan degeri anadosya daki sicil numarasının karşısına yazacak
iyi çalışmalar

 

[mustafakayiran]

elinde örnek çalışması olan arkadaşlardan rica ediyorum lütfen bir örnek uygulama eklesinler

 

[mustafakayiran]

lütfen bir göz atın

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Ben veri isimli dosyayı C nin altında kabul ederek kodu yazdım, siz yolunu kendinize göre belirlersiniz.

Sub verial()
Columns(4).ClearContents
For a = 5 To Cells(65536, 1).End(xlUp).Row
aranan = Cells(a, 1).Value
For b = 5 To 19
deger = ExecuteExcel4Macro("'C:\[veri.xls]sayfa1'!R" & b & "C1")
If deger = aranan Then
c = c + 1
Cells(c + 4, 4) = ExecuteExcel4Macro("'C:\[veri.xls]sayfa1'!R" & b & "C5")
End If
Next: Next
End Sub

 

[mustafakayiran]

sayın levntm denedim ancak bu kezde butona bastığımda günncelleştirilecek değer isimli erkan geliyor ve bunu herseferinde tekrar ediyor ben tamam diyorum yine çıkıyor benim istedigim birkez butona basınca sicil numarası ortak olan verilerin kaşısına değerlerin alt alta sıralanması
iyi çalışmalar

 

[mustafakayiran]

Sub verial()
Dim ds, dc, f, s

Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("D:\personel")
Set dc = f.Files
For Each dosya In dc
Columns(4).ClearContents
For a = 5 To Cells(65536, 1).End(xlUp).Row
aranan = Cells(a, 1).Value
For b = 5 To 19
deger = ExecuteExcel4Macro("'D:\personel\[veri.xls]sayfa1'!R" & b & "C1")
If deger = aranan Then
c = c + 1
Cells(c + 4, 4) = ExecuteExcel4Macro("'D:\personel\[veri.xls]sayfa1'!R" & b & "C5")

If aranan = 20 Then
GoTo son
End If
End If
Next
Next
Next
son:

End Sub

bu sekilde uyarladım ancak bu kezde alt alta 6 kez döngü yapıyor çözemedim

 

[mustafakayiran]

hiç bakan olmadı sanırım

 

[Levent Menteşoğlu]

Mustafa bey yukarıda sizin yazdığınız kodda çok gereksiz satırlar var. Aşağıdaki şekilde deneyin.

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

 

[mustafakayiran]

teşekkür ederim sayın leventm inanki iki gündür sizi bekliyordum nezaman yazacaksınız diye
sizde olmasanız nasıl öğreneceğim bilmiyorum kitap bile aldım ancak kitaplarda kısıtlı oluyor verilen örneklerden yola çıkıyorum bulamıyorum
iyi çalışmalar