bir sürücüden başka sürücüye kopyalama

[fmt1976]

Merhabalar;
Öncelikle bu siteye emeği geçen herkese teşekkürler
Benim bir sorum olacak Bu sitede buldum ama ben daha değişik bir şey istiyorum.
Bİr arşiv programından excel çıktısı rapor alıyorum. Bu raporda dosyanın hangi sürücüde ve dizinde olduğu belirtiyor. Bunları liste halinde excelde alıyorum. Yanlız benim istediğim Hücreye çift tıkladığımda o dizine gidip dosyayı kopyalayıp başka sürücüye yapıştırmasını istiyorum

 

[Levent Menteşoğlu]

Aşağıdaki kodu veri sayfasının kod sayfasına kopyalayın. A veya E sütunundaki bir hücreye çift tıkladığınızda çalışacaktır. Burada E sütununda adresi verilen dosya, C:\deneme\ klasörüne kopyalanmaktadır. Siz bu yolu kendinize göre değiştirebilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a:a,e:e]) Is Nothing Then Exit Sub
Cancel = True
dosyaadi = CreateObject("Scripting.FileSystemObject").GetFileName(Cells(Target.Row, "e"))
FileCopy Cells(Target.Row, "e"), "C:\deneme\" & dosyaadi
End Sub

 

[fmt1976]

teşekkürler hemen deniyorum

Yalnız satır sayısı artıkça kod değişiyormu