Kapalı Dosyadan verileri al

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; Kapalı dosyadan veri çekme ile ilgili bir isteğim olacak sizlerden.
Geçici Görev Yolluğu adında bir dosyam var, burada D2 Hücresine personelin sicilini girince Kapalı olan yolu belirtmek kaydıyla "D:\Belgelerim\Personel Listesi\" burada bulunan dosyasının içerisinde bulunan LİSTE sayfasından
B1 Hücresine = Adı Soyadını Yani C ve D sütununu,
B2 Hücresine = Rütbesi Yani E sütununu,
B3 Hücresine = Derecesi Yani M ve N Sütununu alacak araya taksim koyacak 4/2,
D3 Hücresine = Ek göstergesini Yani Q sütununu çekmesini istiyorum.

Yardımlarınız için Herkese teşekkürler.
http://s7.dosya.tc/server12/86j8ix/Odemeler.rar.html

 

[Hacı Bayram ÖZKAN]

Selamün Aleyküm arkadaşlar bu dosyama bir bakar mısınız?

 

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar bu dosyama bakar mısınız?

 

[PLİNT]

Merhaba
"B3" hücresini "metin" olarak biçimlendirip, aşağıdaki kodları denermisiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$2" Then Exit Sub
If IsNumeric(Target.Value) = False Then Exit Sub

dosya = "D:\Belgelerim\PERSONEL LİSTESİ.xlsx"

Range("B1, B2, B3, D3") = ""
If Dir(dosya) = "" Then MsgBox "LİSTE BULUNAMADI": Exit Sub
Application.ScreenUpdating = False
With GetObject(dosya)
 With .Worksheets("LİSTE")
 Set ara = .[B:B].Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
 If Not ara Is Nothing Then
[B1] = .Cells(ara.Row, 3).Value & " " & .Cells(ara.Row, 4).Value
[B2] = .Cells(ara.Row, 5).Value
[B3] = .Cells(ara.Row, "M").Value & "/" & .Cells(ara.Row, "N").Value
[D3] = .Cells(ara.Row, "Q").Value
Else
MsgBox "Sicil bulunamadı"
 End If
End With
Application.ScreenUpdating = False
.Close
End With
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın Plit denedim ama LİSTE BULUNAMADI mesajı alıyorum. Neden acaba saygılarımla

 

[PLİNT]

Merhaba
Dosya yolu ve adı kodların içinde aşağıdaki gibi; sizinki değişik olabilirmi?

-------------
dosya = "D:\Belgelerim\PERSONEL LİSTESİ.xlsx"

-------

"D:\Belgelerim\PERSONEL LİSTESİ.xlsx"

 

[Hacı Bayram ÖZKAN]

Abi tamam oldu eline sağlık dua ile kal