Checkbox ile dosya kontrol

[mcancel]

Arkadaşlar A1 hücresinde yolu verilen bir dosyanın bulunup bulunmadığını checkbox ile görüntülemek istiyorum. Dosya yolunu formülün içine yazarak bunu yapabiliyorum ama özellikle istediğim, dosya yolunu hücrenin içinden alması. İlgilenen arkadaşlara şimdiden teşekkür ediyorum.

 

[Levent Menteşoğlu]

Örneğin checkbox1'e aşağıdaki gibi bir kod yazabilirsiniz.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Set ara = CreateObject("Scripting.FileSystemObject")
dosya = ara.FileExists([a1])
If dosya = True Then
MsgBox "Bu isimde bir dosya var"
Else
MsgBox "Bu isimde bir dosya yok"
End If
End If
End Sub