Aynı anda 2 dosyayı yönetme

[torqanum]

2 adet excel dosyam var. Biri diğerinden veri alıyor. birini açtığım zaman diğerinin de otomatik olarak açılmasını ve kapatırken diğerinin de otomatik olarak değişiklikleri kaydettikten sonra kendini kapatmasını sağlayan bir makro rica edebilir miyim?

 

[Orion1]

Kodalar asıl dosyada çalışma sayfası modülüğndedir.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("Diğer_dosya.xls").Close True
ThisWorkbook.Save
Application.Quit
End Sub

Private Sub Workbook_Open()
Workbooks.Open (ThisWorkbook.Path & "\Diğer_dosya.xls")
ThisWorkbook.Activate
End Sub

 

[torqanum]

Allah razı olsun... yalnız "diğer dosya"yı önce kapattığımızda, "asıl dosya"yı kapatırken hata veriyor. araya if komutu ekleyebilir miyiz? "diğer dosya" açık ise ikisini birden kaydedip kapatsın. "diğer dosya" kapalı ise sadece asıl dosyayı kaydedip kapatsın. şimdiden çok teşekkür ederim...

 

[excel_ance]

merhabalar

Kodalar asıl dosyada çalışma sayfası modülüğndedir.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("Diğer_dosya.xls").Close True
ThisWorkbook.Save
Application.Quit
End Sub

Private Sub Workbook_Open()
Workbooks.Open (ThisWorkbook.Path & "\Diğer_dosya.xls")
ThisWorkbook.Activate
End Sub

hocam ellerinize emeklerinize sağlık, siz ve tüm uzman arkadaşlarımız zifiri dehlizlerde bizlere fener gibisiniz. şahsınızda hepinize teşekkür ediyorum.

 

[Orion1]

hocam ellerinize emeklerinize sağlık, siz ve tüm uzman arkadaşlarımız zifiri dehlizlerde bizlere fener gibisiniz. şahsınızda hepinize teşekkür ediyorum.

Rica ederim.
İyi çalışmalar.

 

[torqanum]

Allah razı olsun...