Gözat: yaptırmak

[efeboral]

ben excell içerisinde mesela dosyanın yolunu verebilöek için veya seçebilmek için sayfanın içine gözat: butonu koymak istiyorum.

Yardımalrınız için şimdiden teşekkürler...

 

[xxrt]

Tam İstediğiniz Gibi Bir Ã?rnek.Dosyayı açmak istemezseniz Aşağıdaki kodları uyarlayın.
Burdaki kodlar:
[vb:1:777abcb50b]Option Explicit
Function BrowseForFolder(Optional OpenAt As Variant) As Variant
Dim ShellApp As Object
Set ShellApp = CreateObject("Shell.Application"). _
BrowseForFolder(0, "Please choose a folder", 0, OpenAt)
On Error Resume Next
BrowseForFolder = ShellApp.self.Path
On Error GoTo 0
Set ShellApp = Nothing
Select Case Mid(BrowseForFolder, 2, 1)
Case Is = ":"
If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid
Case Is = "\"
If Not Left(BrowseForFolder, 1) = "\" Then GoTo Invalid
Case Else
GoTo Invalid
End Select
Exit Function
Invalid:
BrowseForFolder = False
End Function

Sub test1()
Dim result As String
result = BrowseForFolder
Select Case result
Case Is = False
result = "an invalid folder!"
Case Else
End Select
[a1] = result
End Sub[/vb:1:777abcb50b]

 

[efeboral]

Gerçektende tam aradığım şeydi yardımınız için teşekkür ederim.