[ÇÖZÜLDÜ] Dosya yolunu belirlenen hücreye yazdırmak hk.

[enteresan]

Sevgili excel dostları,
sitenedn bulduğum bir kod sayesinde bir düğmeye tıklayarak dosyalara gözatabiliyorum. Ekte gönderdiğim örnekte de görebileceğiniz gibi.
Burada yapmak istediğim, seçtiğim .xls uzantılı dosya yonunu belirlediğim bir hücreye yazdırmak istiyorum. Mesela düğmeye tıkladığımda masaüstünde bulunan bir .xls uzantılı dosyayı seçtiğimde bu dosyanın yolunu C:\Documents and Settings\User\Desktop\Falanca.xls şeklinde B5 hücresine yazdırmak istiyorum Böyle bir şey mümkün müdür.
Saygılar...

Dosya eklemeyu unuttum. Özür dileyerek aşağıya ekliyorum.
Tekrar saygılar...

 

[Recep İpek]

Kodlarına aşağıdaki satırı ekleyiniz.

Dim dosya
dosya = Application.GetOpenFilename
If dosya = False Then Exit Sub
[b5] = dosya

 

[enteresan]

Kodlarına aşağıdaki satırı ekleyiniz.

Dim dosya
dosya = Application.GetOpenFilename
If dosya = False Then Exit Sub
[b5] = dosya

Teşekkür ederim sayın ripek, Sağolun...