Türkçe Karakter sorunu

[tahsinanarat]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As range, Cancel As Boolean)
Cancel = True
Secimi_Aktar
If Target.Column <> 1 Or Target.Value = "" Then Exit Sub
pth = "C:\ogkk\"
fname = pth & "*" & Target.Value & "*.pdf"
dosya = Dir(fname)
If dosya <> "" Then
dosya = pth & dosya
ActiveWorkbook.FollowHyperlink dosya
Else
MsgBox "Dosya Bulunamadı..."
End If
End Sub

Yukarıdaki Sn. veyselemre hocamın kodları ile evimdeki türkçe windows ve Office kurulu olan bilgisayarımda çalıştırdığımda C dirskideki ogkk klasör içindeki pdf dosyalarını, pdf dosya isimleriyle eşleşmesi halinde A sutunda çift tıklama ile pdf dosyasını açabiliyorum.

Ancak işyerimde kurulu bulunan İngilize windows işletim sistemi kurulu, burada makroyu çalıştırdığımda içinde türkçe karakter bulunmayan pdf dosyalarını açılıyor ancak türkçe karakter bulunan isimlerde dosyayı açmıyor.

Koda nasıl bir ilave yapmalıyımkı türkçe karakterler bulunan pdf dosyalarını da açabileyim.
önceki konu linki:
https://www.excel.web.tr/threads/klasoerdeki-ayni-nolu-pdf-dosyasini-acma-islemi.179456/#post-986914
Yardımlarınız için şimdiden teşekkürler

 

[Muzaffer Ali]

ActiveWorkbook.FollowHyperlink dosya
satırını
ActiveWorkbook.FollowHyperlink fname

ile değiştirip dener misiniz?

Bende İngilizce olmadığı için deneyemiyorum.
Kodlarda bundan başka bir sorun görünmüyor.
Eğer yukarıdaki gibi yaptıktan sonra çalışırsa şu satırı da silebilirsiniz.
dosya = pth & dosya

 

[tahsinanarat]

Sn.dalgalikur cevabınız için çok teşekkür ederim.
yukarıdaki gibi hata verdi.

 

[Merhum İdris SERDAR]

.

İlk Mesajınızdaki kodlar, Secimi_Aktar'ı çıkarırsak bende çalışıyor.

Windows 10 Türkçe, Office 2016 64 bit İngilizce.

.

 

[Muzaffer Ali]

Ekli dosyayı görüntüle 205442

Sn.dalgalikur cevabınız için çok teşekkür ederim.
yukarıdaki gibi hata verdi.

Verdiği hata mesajını da yazar mısınız?

 

[tahsinanarat]

Sn. İdris SERDAR, Türkçe win 10 da bende de çalışıyor, ancak işyerimdeki pc İngilizce Windows oduğundan kodlar Türkçe karakterlerde, muhtemelen i I harflerinin geçtiği dosya ve klasörlerde sorun yaratıyor.

 

[Merhum İdris SERDAR]

Sn. İdris SERDAR, Türkçe win 10 da bende de çalışıyor, ancak işyerimdeki pc İngilizce Windows oduğundan kodlar Türkçe karakterlerde, muhtemelen i I harflerinin geçtiği dosya ve klasörlerde sorun yaratıyor.

.

Bu makro'nun dışında, Windows İngilizcede normal olarak adları Türkçe karakter içeren dosyalara tıkladığınızda açılıyor mu?

Bir de şöyle sorayım. Sözkonusu Windows'ta Türkçe klavye kullanabiliyor musunuz?

.

.

 

[tahsinanarat]

Sn. İdris SERDAR Bey; Türkçe klavye kullanabiliyorum, ancak hiç bir makrom Klasör isminde dahi Türkçe karakter varsa o klasörde herhangi bir işlem yapmıyor, Sn. Necdet hocamın dosya isimlerini toplu değiştir çalışmasında bile dosya isimlerini değiştirdiğimde Türkçe karakterler dikkate alınmadan değiştirme yapıyor, örn. Ayşe DİNLER , Ayse DINLER oluyor. ağ bağlantılı olarak şifre ile kullandığım bir bilgisayr, yani pc ye müdahalede bulunamıyoruz. Alınan karar gereği Türçe Windows da yüklemiyorlar.

 

[tahsinanarat]

Sn. İdris SERDAR hocam, Peki şöyle bir şey yapabilirmiyiz, A sütununda tc kimlik numaralarım bulunuyor, pdf dosyalarım ise TC ADI VE SOYADI şeklinde devam ediyor, Pdf dosyasının ilk boşluğa kadar olan kısmı yani 11 karektere göre eşleştirme yapıp dosyayı açtırabilirsek, bu şekilde benim işimi görüyor olaak.

 

[Korhan Ayhan]

Türkçe karakterleri İngilizce karakterlere dönüştüren fonksiyon kullanabilirsiniz. Forumda daha önce paylaşılmıştı.

Kendinize uyarlarsınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Secimi_Aktar
    If Target.Column <> 1 Or Target.Value = "" Then Exit Sub
    TR_Karakter = Array("ç", "Ç", "ğ", "Ğ", "ı", "I", "i", "İ", "ö", "Ö", "ş", "Ş", "ü", "Ü")
    EN_Karakter = Array("c", "C", "g", "G", "i", "I", "i", "I", "o", "O", "s", "S", "u", "U")
    pth = "C:\ogkk\"
    fname = pth & "*" & Target.Value & "*.pdf"
    Dosya = Dir(fname)
    If Dosya <> "" Then
        Dosya = pth & Dosya
        For X = 0 To UBound(TR_Karakter)
            Dosya = Replace(Dosya, TR_Karakter(X), EN_Karakter(X), , , vbTextCompare)
        Next
        ActiveWorkbook.FollowHyperlink Dosya
    Else
        MsgBox "Dosya bulunamadı!"
    End If
End Sub