Veri Doğrulamada Köprü Oluşturma

[muratgunay48]

VBA tarafında işiniz daha kolay olur. DIR komutu ile uzantı testi yapılarak dosyanın varlığı tespit edilebilir.

Fonksiyon tarafında ise KÖPRÜ fonksiyonu joker karakteri desteklemediği için sorun çıkıyor.

Hocam ikinci DIM komutu mu yoksa

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Yol As String
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Cancel = True
Yol = "C:\Users\muratgunay48\Desktop\Test\" & Target.Value & "(*.gif; *.jpg; *.png; *.jpeg)"
ActiveWorkbook.FollowHyperlink Address:=Yol, NewWindow:=True
End Sub

 

[Korhan Ayhan]

Hayır DIR komutu... Bu genellikle dos komutu olarak geçer ama VBA tarafında da kullanılmaktadır. Konumuzla ilgili olarak dosyanın varlığını kontrol eder.

Siz dosyanızın uzantısını genelleştirmek istiyorsunuz. Ama köprü fonksiyonu joker karakter kullanımına izin vermiyor. Bu sebeple VBA tarafında bu işi daha kolay çözersiniz. Bunun içinde DIR kullanarak çeşitli dosya uzantılarını kullanarak dosyanın varlığını kontrol etmeniz gerekiyor. Sonra doğru uzantılı dosya bulununca FollowHyperlink yöntemiyle dosyayı açmanız kolaylaşacaktır.

Linkler faydalı olacaktır...

Dir Function - Microsoft Support

support.microsoft.com

Google Search

 

[muratgunay48]

Hayır DIR komutu... Bu genellikle dos komutu olarak geçer ama VBA tarafında da kullanılmaktadır. Konumuzla ilgili olarak dosyanın varlığını kontrol eder.

Siz dosyanızın uzantısını genelleştirmek istiyorsunuz. Ama köprü fonksiyonu joker karakter kullanımına izin vermiyor. Bu sebeple VBA tarafında bu işi daha kolay çözersiniz. Bunun içinde DIR kullanarak çeşitli dosya uzantılarını kullanarak dosyanın varlığını kontrol etmeniz gerekiyor. Sonra doğru uzantılı dosya bulununca FollowHyperlink yöntemiyle dosyayı açmanız kolaylaşacaktır.

Linkler faydalı olacaktır...

Dir Function - Microsoft Support

support.microsoft.com

Google Search

Hocam, bu şekilde mi?

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Yol As String
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Cancel = True
dizin=C:\Users\muratgunay48\Desktop\Test\
Yol = Dir ( dizin & Target.Value & (*.gif; *.jpg; *.png; *.jpeg)
ActiveWorkbook.FollowHyperlink Address:=Yol, NewWindow:=True
End Sub

 

[Korhan Ayhan]

Size linkler paylaştım. Bunları dikkatlice inceleyin. Sonra uygulamasını yapın. Yetersiz gelirse youtube üzerinden görsel anlatımları izlemenizi tavsiye ederim.