Sıra Numarasına göre kopyalamak

[k0081]

Merhaba arkadaşlar;

Aşağıda vermiş olduğum linkteki tabloda command butonu ile , inputbox gireceğim sıra numarasına (A sütunu yani ) göre F sütununda denk gelen dosyayı masaüstüne nasıl kopyalayabilirim ?

* Kaynak Yol için : E sütunundaki köprü kullanılacaktır. ( D:\Tumu )

http://dosya.co/8fmm6qppdoh3/Kitap1.rar.html

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()

sirano = InputBox("Kopyalanacak dosya numarasını giriniz", "Dosya Kopyalama")
If sirano = "" Then Exit Sub

Set nesne = CreateObject("WScript.Shell")
masaustuyol = nesne.SpecialFolders("Desktop")

dosyayolu = Cells(sirano + 1, "e")
dosyaadi = Cells(sirano + 1, "f")

FileCopy dosyayolu & "\" & dosyaadi, masaustuyol & "\" & dosyaadi

MsgBox dosyayolu & "\" & dosyaadi & " dosyası" & Chr(10) & masaustuyol & "\" & dosyaadi & " yoluna kopyalanmıştır.", 32, "Sonuç"

End Sub

 

[k0081]

Sn. Levent Menteşoğlu

Çok teşekkür ediyorum, Elinize-yüreğinize sağlık.. Tamamdır..