Köprü düğmesi çalışmıyor ???

[ockucukay]

Merhaba arkadaşlar

Aşağıdaki kodla daha önce istediğim klasörü açabiliyordum. Herşey doğru görünmesine rağmen artık çalışmıyor.Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

Sub KlasörAc()
Sheets("Dok Güncelleme").Select
Range("j1").Select
On Error Resume Next
ActiveWorkbook.FollowHyperlink Address:="\\Server\d\M.I.S\Kalite\Dokümantasyon\" & Range("j1").Value & "\", NewWindow:=True
End Sub

 

[ockucukay]

Merhaba arkadaşlar

Aşağıdaki kodla daha önce istediğim klasörü açabiliyordum. Herşey doğru görünmesine rağmen artık çalışmıyor.Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

Sub KlasörAc()
Sheets("Dok Güncelleme").Select
Range("j1").Select
On Error Resume Next
ActiveWorkbook.FollowHyperlink Address:="\\Server\d\M.I.S\Kalite\Dokümantasyon\" & Range("j1").Value & "\", NewWindow:=True
End Sub

Hatırlatma....

 

[ockucukay]

Hatırlatma, arkadaşlar yardım edebilecek kimse var mı?

 

[ockucukay]

Hatırlatma, arkadaşlar yardım edebilecek kimse var mı?

Bu son hatırlatma olacak, yine olmazsa bırakacağım artık...

 

[Ömer]

Merhaba,

Sub KlasörAc()
Dim Klasör
Klasör = Shell("C:\windows\explorer.exe [URL="file://Server/d/M.I.S/Kalite/Dok%FCmantasyon/"]\\Server\d\M.I.S\Kalite\Dokümantasyon\[/URL]" & [J1], vbNormalFocus)
End Sub

Bu şekilde denermisiniz..

.

 

[gdemir]

bendede acılmıyor arkadaslar
işlem bu bilgisayardaki kısıtlamalar iotal edildi lütfen sistem yöneticinizle görüşünüz diye bir mesaj cıkıyor dün kullanıyordum bugun boyle bı sorun oldu ofisi yeniden yükledim ama duzelmedi

 

[ockucukay]

Merhaba,

Sub KlasörAc()
Dim Klasör
Klasör = Shell("C:\windows\explorer.exe [URL="file://Server/d/M.I.S/Kalite/Dok%FCmantasyon/"]\\Server\d\M.I.S\Kalite\Dokümantasyon\[/URL]" & [J1], vbNormalFocus)
End Sub

Bu şekilde denermisiniz..

.

Denedim, ancak "Bu şekilde bir klasör mevcut değil veya \\Server\d\M.I.S\Kalite\Dokümantasyon\Talimat bir klasör değil" şeklinde bir mesaj veriyor. Ağdaki bir klasör açmaya çalışıyorum ve klasör mevcut, neden böyle bir hata veriyor anlamadım."C:\windows\explorer.exe" kısmını silince de kod çalışmıyor.

 

[Ömer]

Dosya yolunun doğru olduğunu tekrar kontrol edermisiniz.

\\server\U\SR\excel

Sorun yok gibi aynı kodla yukardaki dosyayı serverden açabiliyorum.

.

 

[ockucukay]

Dosya yolunun doğru olduğunu tekrar kontrol edermisiniz.

\\server\U\SR\excel

Sorun yok gibi aynı kodla yukardaki dosyayı serverden açabiliyorum.

.

Sorunu çözdüm. Nasıl olduysa klasör isimlerinin sonunda bir karakter boşluk oluşmuş. Temizledim, çalışıyor.Teşekkür ederim ilginiz için.