Adresi kontrol etsin dosya yoksa çalışsın.

[atillaciftci]

Bsserver\Repair\PLANLAMA\PROJE DEĞERLENDİRME FORMU
Adresinde Sheet1 in D10 hücresinde yazan ve .xlsm dosyası varsa \\Bsserver\Repair\PLANLAMA\PROJE DEĞERLENDİRME FORMU\proje müh.cont.form.xlsm
dosyasını açmasın yoksa açsın şeklinde düzenleyebilirmiyiz...


Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Proje Değerlendirme formunu da doldurunuz ..."
Workbooks.Open ("\\Bsserver\Repair\PLANLAMA\PROJE DEĞERLENDİRME FORMU\proje müh.cont.form.xlsm")
Windows("MALIYET ANALIZI.xls").Close
End Sub

 

[takin]

Şunu deneyin

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    DosyaYolu = "\\Bsserver\Repair\PLANLAMA\PROJE DEĞERLENDİRME FORMU\" & Sheets("Sheet1").Range("D10") & ".xlsm"
    Kontrol = Dir(DosyaYolu)
    If Kontrol = "" Then
        MsgBox "Proje Değerlendirme formunu da doldurunuz ..."
        Workbooks.Open ("\\Bsserver\Repair\PLANLAMA\PROJE DEĞERLENDİRME FORMU\proje müh.cont.form.xlsm")
        Windows("MALIYET ANALIZI.xls").Close
    End If
End Sub

 

[atillaciftci]

Dosyama uyguladım süper çalışıyor..
Emeğine ve bilgine sağlık..

 

[atillaciftci]

Dün aşağıdaki kod çalışıyordu bugün çalışmıyor çıldıracam yaaa....
Kodun yapmasını istediğim \\Bsserver\Repair\PLANLAMA\PROJE DEGERLENDIRME FORMU\ adresine baksın aşağıdaki kodların bulunduğu ( MALIYET ANALIZI.XLS ) Dosyasının D10 ( D10:I10 Bitişik Hücre ) Hücresinde yazan ve .xlsm uzantısını koysun ve o isimde bir dosya bu adresde varsa dosyayı kapatsın Yoksa eğer \\Bsserver\Repair\PLANLAMA\PROJE DEGERLENDIRME FORMU\proje muh cont form.xlsm dosyasını açsın...

Aşağıdaki kod şu an her kapatışda \\Bsserver\Repair\PLANLAMA\PROJE DEGERLENDIRME FORMU\proje muh cont form.xlsm dosyasını açıyor...


Private Sub Workbook_BeforeClose(Cancel As Boolean)
DosyaYolu = "\\Bsserver\Repair\PLANLAMA\PROJE DEGERLENDIRME FORMU\" & Sheets("Toplam").Range("D10") & ".xlsm"
KONTROL = Dir(DosyaYolu)
If KONTROL = "" Then
MsgBox "Proje Değerlendirme formunu da doldurunuz ..."
Workbooks.Open ("\\Bsserver\Repair\PLANLAMA\PROJE DEGERLENDIRME FORMU\proje muh cont form.xlsm")
Windows("MALIYET ANALIZI.xls").Close
End If
End Sub