Klasor getirme.

[senseyak]

Evet oldu Allah razı olsun.

dosya için ad tanımlanıyor ben sonrasına ekledim bi hücreden dosyanın numarasını alıyor ordan bulup açıyor.
aktif kullanmadan kastınızı anlamadım acemiyim malum.

 

[mustafaine1]

Evet oldu Allah razı olsun.

dosya için ad tanımlanıyor ben sonrasına ekledim bi hücreden dosyanın numarasını alıyor ordan bulup açıyor.
aktif kullanmadan kastınızı anlamadım acemiyim malum.

yani inputbox ile dosya adini atasaniz bunun bir ismi olurdu ve o ismi rahatca kullanirdiniz.. simdi hucreden aldiginiz icin diger dosyada bir islem yapacaksaniz kopyalama vs. dosyayi acmak yetmicektir activate diyerek aktiflestirmeniz ve sonrasinda istediginiz islemi yapmaniz gerekmektedir..

 

[senseyak]

valla şuanda istediğim dosyayı açıyor ben üzerinde değişiklik yapıp kaydedebiliyorum yani bu benim işi görüyor dosyaları ağ üzerinden açıyorum.

aranan dosya olmadığında kod hatası vermemesi onun yerine uyarı vermesi için bişey ekleme şansımız varmı?

 

[mustafaine1]

On Error GoTo 10
Workbooks.Open Filename:="C:\olmayan.xlsx"
ThisWorkbook.Activate
10
MsgBox ("dosya yok")

bunu kendinize gore editlersiniz sanirim cozer sorununuzu..

 

[senseyak]

Private Sub CommandButtonHS_Click()
Workbooks.Open Filename:="\\İL-PC\hesap 2011\" & [q7].Value

bunun üzerine onu entegra edemedim açsada açmasada dosya yok diyor verdiğiniz kodla açmadığında dosya yok diyor açıncada diyor.

 

[mustafaine1]

On Error GoTo 10
Workbooks.Open Filename:="\\İL-PC\hesap 2011\" & [q7].Value
ThisWorkbook.Activate
GoTo 11
10
MsgBox ("dosya yok")
11

bu sekilde yaziniz dusunmeden yazdik o kadarini

 

[senseyak]

tamamdır bu iş saolun varolun