Veri alma

[mahmutaksoy]

ARKADAŞLAR İYİ ÇALIŞMALAR.
ELİMDE ÖRNEK VE DATA ADLI 2 TANE EXCEL DOSYAM VAR.
BEN BURADA ÖRNEK DOSYASINDAİ A1 SATIRINA YAZDIGIM İSME KARŞILIK DATA KİTABINDA BULUNAN VERİLERİN OTOMATİK OLARAK ALMASINI İSTİYORUM. BU KONUDA YARDIMLARINIZI BEKLİYORUM ŞİMDİDEN TŞKRE DERİM.

 

[Mustafa MUTLU]

Her iki Kitapta açık olması şartı ile
Aşağıdaki kodları denermisiniz..

Sub VerileriGetir()
Dim MM, MSTF
MM = 3
For MSTF = 2 To Workbooks("DATA.xls").Sheets("Sayfa1").Cells(65536, "D").End(xlUp).Row

If [A1] = Workbooks("DATA.xls").Sheets("Sayfa1").Cells(MSTF, "D") Then
Cells(MM, "A") = Workbooks("DATA.xls").Sheets("Sayfa1").Cells(MSTF, "O")
Cells(MM, "B") = Workbooks("DATA.xls").Sheets("Sayfa1").Cells(MSTF, "B")
Cells(MM, "C") = Workbooks("DATA.xls").Sheets("Sayfa1").Cells(MSTF, "C")
Cells(MM, "D") = Workbooks("DATA.xls").Sheets("Sayfa1").Cells(MSTF, "J")
Cells(MM, "E") = Workbooks("DATA.xls").Sheets("Sayfa1").Cells(MSTF, "M")
Cells(MM, "F") = Workbooks("DATA.xls").Sheets("Sayfa1").Cells(MSTF, "N")
MM = MM + 1
End If

Next
MsgBox "İşleminiz Tamamlanmıştır..", vbExclamation, "Mustafa MUTLU 0 533 740 45 49"

End Sub