Dosya Kontrol Fonksiyonu

[Karanlik1]

Sayın Ripek'in aşağıdaki mesajı ile tırmalaya tırmalaya bi formul yazdım ve çalıştı .
Ripek'e ve siteye sonsuz teşekkürler, insan kendi yapınca seviniyo, ben de paylaşayım dedim..
Fonksiyonun bi hücredeki yazılı dosya yolunu kontrol ediyor. Dosya varsa " var" yoksa "yok" diyor. Yanlışım eksiğim varsa söylerseniz çok sevinirim. Bide bu formulu excel'in kendi formuluymuş gibi her dosyada kullanmamız için ne yapmamız gerekir diye sorayım.

Saygılar

Function karanlik(a)
Dim kontrol
kontrol = Dir(a)
If kontrol = "" Then
karanlik = "Yok"
Else: karanlik = "Var"
End If
End Function

Aşağıdaki kodları deneyebilirmisiniz?

Sub Button1_Click()
adres = "C:deneme.xls"
kontrol = Dir(adres)
If kontrol = "" Then
MsgBox "Aradığınız dosya yok.", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
Else
MsgBox "Aradığınız dosya var.", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
'....
'.....
End If
End Sub

 

[Levent Menteşoğlu]

........ formulu excel'in kendi formuluymuş gibi her dosyada kullanmamız için ne yapmamız gerekir diye sorayım.......

Formülün bulunduğu dosyayı farklı-kaydetten excel ekletisi(.xla) olarak kaydedin.