kaydedilen dosyaya kısa yol oluşturma

[pylor]

Değerli form uzmanları formunuza yeni üye oldum göndermiş olduğum birkaç soruma çok yarayışlı cevaplar aldım ama öğrenmek istediğim yeni sorularım var ben bir devlet hastanesinde tıbbı sekreter olarak çalışıyorum ve hasta raporları yazıyorum yazdığım raporları (d:\D-belgeler\veri tabanı\hasta raporları\endo-kolon) klasörüne hasta isimleri ile farklı kaydedip aynı anda sayfa içeriğinde bazı hücre değerlerini (d:\D-belgeler\veri tabanı\istatistikler\hasta tanıları.xls) dosyasına sitenin değerli uzman ekibinin yardımları ile kaydetmeyi başardım ama benim öğrenmek istediğim diyelimki ben hasta tanıları.xls dosyasının içinde kayıtlı hasta isimini buldum hastaya raporunu vermek istiyorum bulunan hasta ismine tıkladığım zaman ilgili klasörden (d:\D-belgeler\veri tabanı\hasta raporları\endo-kolon) hastaya ait raporu otomatik olarak açabilirmiyim bunu bir köprü yada başka bir yolla nasıl yapabilirim bu konuda bana yardım ederseniz çok sevinirim teşekkürler (ekteki dosyada daha detaylı bilgi mevcut)

 

[pylor]

bir cevap yazan yokmu acaba. rica etsem birileri bu konuda bişeyler yazabilirmi

 

[pylor]

cevap bekliyorum

biri bu konuda bana yardım edebilirmi acaba arkadaşlar lütfen

 

[Zeki Gürsoy]

Merhaba,

Anladığım kadarıyla sabit bir dizin altında hangi alt dizin altında olursa olsun, dosyayı arayıp bulsun ve açsın istiyorsunuz.

Köprü, tanımlanmış yola baktığından bunun için uygun değil. Dosyayı arayıp bulması için aşağıdaki başlıktaki "sınıf (class)"ı çalışmanıza uyarlayın.

http://www.excel.web.tr/f144/synyf-class-modullerde-collection-kullanymy-t90704.html

 

[pylor]

teşekkürler

zeki kardeşim sorularıma yanıt gelmediği için acaba sorularımı kimse görmüyormu endişesine kapılmaya başlamıştım sana teşekkür ederim konu hakkında "Köprü, tanımlanmış yola baktığından bunun için uygun değil. Dosyayı arayıp bulması için aşağıdaki başlıktaki "sınıf (class)"ı çalışmanıza uyarlayın."demişsiniz ama aşağıda herhangi bir başlık yok tekrar yadım edermisiniz

 

[Zeki Gürsoy]

Linki yapıştırmayı unutmuştum.

http://www.excel.web.tr/f144/synyf-c...my-t90704.html

 

[pylor]

zeki bey

göderdiğiniz kodlar için çok teşekkür ederim peki yolu belli olan klasör içine kaydedilen dosyalara kısayol veya köprü ile ulaşmak mümkünmüdür acaba
D:\excel dersleri\excel dersleri.xls gibi ekte bir dosya gönderdim incelermenizi rica edicem yardımlarınız için şimdiden teşekür ederim

 

[Zeki Gürsoy]

Ekli dosyayı inceleyin.

Private File As String, isOK As Boolean

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
    File = BuyukHarf(Target.Value & ".xls")
    isOK = False
    Cancel = True
    [b1] = "Dosya aranıyor... Bekleyin..."
    Liste ("D:\D-belgeler\")
    AltListe ("D:\D-belgeler\")
    [b1] = Empty
End If
End Sub

Function BuyukHarf(arg As String) As String
    BuyukHarf = UCase$(Replace(arg, "i", "İ"))
End Function

Function KucukHarf(arg As String) As String
    KucukHarf = LCase$(Replace(arg, "İ", "i"))
End Function

Private Function Liste(yol As String)
Dim dosya As String

DoEvents

If Right$(yol, 1) <> "\" Then yol = yol & "\"

    dosya = Dir(yol & "\" & File)
    
    Do While dosya <> ""
    
        If BuyukHarf(dosya) = File Then
            isOK = True
            Workbooks.Open yol & dosya
            Exit Do
        End If
        
        dosya = Dir
    Loop
End Function

Private Function AltListe(yol As String)
Dim fL As New Folders, f As Folder, dosya As String, y As String
On Error Resume Next

DoEvents
If isOK = True Then Exit Function

If Right$(yol, 1) <> "\" Then yol = yol & "\"

    For Each f In fL.GetFolder(yol)
        
        y = f.FullPath
        dosya = Dir(y & "\" & File)
        
        Do While dosya <> ""
            If BuyukHarf(dosya) = File Then
                isOK = True
                Workbooks.Open y & "\" & dosya
                Exit Do
            End If
            dosya = Dir
        Loop

        AltListe (f.FullPath)
    Next

Set fL = Nothing
End Function

 

[pylor]

üstadım

eline sağlık kodlar harika olmuş ama sizin eklediğiniz dosyada sorunsuz çalışan kodları kendi çalışmama uyarlıyamadım dosya adı aynı yolu aynı ama çalışmadı bir öneriniz olurmu acaba (ekte hatalı satırları görebilirsiniz)

 

[pylor]

zeki bey

son mesajımı okudunuzmu acaba

 

[Zeki Gürsoy]

Dosyanızı görmeden birşey diyemem. Eklediğim dosyayı aynen eklemişsiniz.

Dosyada iki adet de class module var.

 

[pylor]

zeki bey

dosyalar ektedir teşekkür ederim

 

[Zeki Gürsoy]

Dediğim gibi; Class modulleri de ekleyin.

 

[pylor]

sayın zeki gürsoy göndermiş olduğunuz kodlar ve yapmış olduğunuz çalışma çok güzel olmuş elinize sağlık teşekkür ederim iyi çalışmalar