Hücre değeri neyse o dosyayı açma

[Volkan Öztürk]

Arkadaşlar selam.

d2 hücresinde belli bi klasördeki excel dosyasının tam adı yazılı. Bir düğmeye atadığım makro ile o hücrede hangi dosya yazılı ise o dosyayı açmasını istiyorum. Dosya isimleri değişken olduğu için bu gerekli.

Klasör: d:\öztürk\belgelerim\
dosya adının yazılı olduğu hücre d2

Bir kod veya örnek bi sayfa rica ediyorum.
İlginiz için şimdiden teşşekkür ederim

 

[Orion1]

Merhaba.
Aşağıdaki kodu kendi dosyanızın yoluna göre uyarlayınız.

Workbooks.Open ("C:\Evren\" & Range("D2").Value)

 

[Volkan Öztürk]

Sezar muhteşemsin.

Peki her hangi bi terslik durumunda (dosya hasar görmüş olabilir, silinmiş olabilir, adres değişmiş olabilir)(veya kısaca dosyayı bulamadığında) msgboxla uyarı versin. Yani kısaca : İf dosyayıbulamazsan satırı

 

[Orion1]

Merhaba.
Aşağıdaki kodları deneyiniz.
Burada dikkat edilmesi gereken husus d2 hücresinde dosya adının ve uzantısının birlikte yazılı olmasıdır.
İyi çalışmalar

If Dir("C:\Evren\" & Range("D2").Value) <> "" Then
    Workbooks.Open ("C:\Evren\" & Range("D2").Value)
    Else
    MsgBox "Dosya Bulunamdı.Dosya yolu veya Dosya adı yanlış..!!", vbCritical, Application.UserName
End If

 

[Volkan Öztürk]

Arkadaşlar bu konuda bi soru daha sormak istiyorum. Umarım cevap her zamanki gibi fazla gecikmez.

Makroda her hangi bir hata ile karşılaştığında her hangi bi hata mesajı vermeden makroyu tamamlamasını istiyorum. Yani hatayı yoksaysın. Hatadan dolayı işlemi gerçekleştremiyorsa makrodan çıksın.

Hatırladığım kadarıyla "On error goto ......." diye bi şey olması lazımdı. Kesin olarak ne o konuda yardımalrınıza ihtiyacım var. Nokta noktaların geldiği yere öyle bişi yazayım ki direk makrodan çıksın. Eminim ki çok basit.........

 

[bedersu]

sub bitir()

on error goto son:
.
.
.
.
.
.
.
son:
end sub

 

[Volkan Öztürk]

çook teşekkür ederim efendim

 

[frekans]

Workbooks.Open Filename:=[[Kitap1.xls]Sayfa1!B5]

şeklinde hücrede tanımlanan adres yolu ile açılan dosya, yine aynı hücreden tanımlanarak nasıl kapatılır peki?

 

[orgatu]

merhaba bir sütun boyunca 50 kadar hücrede sayısal değerler yazılı. bu değerler birer jpeg dosyasının adlarıdır ve farklı bir klasörün alt klasörlerinde depolanmaktadır. bir buton kullanarak seçilmiş olan dosya adını butonu tıklayarak açabilirmiyiz. buna ilişkin makroyu nasıl kullanacağım. teşekkürler

200 ile başlayanlar başka klasörde 300 ile başlayanlar başka klasördedir.

20011701
30003345
30003350
30003351
30003353
30003357
30003354
30003355
30003356
30003342
20015375
30003316
30003319
30003317
30003318