Soru 8 karakterli rakamadan az olması halinsde PDF dosyasının açılmması?

[mars2]

İyi Günler;

Listemin F sutununda 8 karakterli (25865425) rakamlar bulunmaktadır.
Aşağıdaki kodla Klasörün içindeki PDF'lerden hücredeki rakamlara uygun olanları açmakta ancak, hücrede daha önceden yazılan 2, 3 karakterli rakamlar olunca da rakamların başlangıcındaki rakamlara uyan tüm PDF açmaktadır. bu da işlerimi engellemektedir.

Hücrede 8 karekterli rakamın dışında 7 karekterli rakamda olsa açmaması için ne yapılması gerektiği hakkında yardımlarınızı beklemekteyim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'PDF açma
Cancel = True
If Target.Column <> 6 Or Target.Value = "" Then Exit Sub
pth = ThisWorkbook.Path & "\ Bilgi\"
fname = pth & Target.Value & "*.pdf"
dosya = Dir(fname)
Do While dosya <> ""
dosya = pth & dosya
ActiveWorkbook.FollowHyperlink dosya
dosya = Dir()
Loop

End Sub

 

[systran]

*.pdf deki * işaretini kaldırıp dener misiniz?

fname = pth & Target.Value & ".pdf"

 

[mars2]

Sayın Systran;

ilginiz için teşekkürler.
Derdimi belki yanlış anlatmış olabailirim. Klasörümün içinde PDF dosyalar bulunmaktadır. Aynı numaradan PDF dosyaları bulunması halinde 25865425 25865425 (2) 25865425 (3) şeklinde numaralandırmaktayım ve hücreye gelince üçüde açmaktadır.
Benim sıkıntım ise hücrede 8 karakterli rakam bulunmadığı zaman örneğin 258, 2586 vb olması halinde 258 ile başlayan tün PDF dosyaları (25865425, 25865426 vd..) açmaktadır.

Bauna göre, hücrede 8 karakterden az rakam olması halinde hiç bir şekilde PDF dosyasını açmamasını istemekteyim.

 

[systran]

şu şekilde deneyiniz.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cancel = True
If Target.Column <> 6 Or Target.Value = "" Or len(Target.value) <>8 Then Exit Sub
pth = ThisWorkbook.Path & "\ Bilgi\"
fname = pth & Target.Value & "*.pdf"
dosya = Dir(fname)
Do While dosya <> ""
dosya = pth & dosya
ActiveWorkbook.FollowHyperlink dosya
dosya = Dir()
Loop

End Sub

 

[mars2]

Sayın systran;

Cevabınıza biraz geç olsa cevap verdiğim için alınmamışınızdır.
İlgi ve alakanıza teşekkür ederim.

 

[systran]

yok niye alınayım, işinizi görmesi yeter

 

[mars2]

Sayın Systran;
İşimi görmüştür.