Birkaç çalışma kitabını birden kapatma

[yörükbeyi03]

Merhaba

Köprüleme yaptığım birkaç çalışma kitabı var
Ana çalışma kitabını kapatınca diğerleride kapansın istiyorum

Şimdiden teşekkürler

 

[halit3]

Merhaba

Köprüleme yaptığım birkaç çalışma kitabı var
Ana çalışma kitabını kapatınca diğerleride kapansın istiyorum

Şimdiden teşekkürler

Bunu denermisiniz.

Sub auto_close()
Dim wkbk As Workbook
For Each wkbk In Application.Workbooks
If wkbk.Name <> ActiveWorkbook.Name Then
If Windows(wkbk.Name).Visible = True Then
wkbk.Close SaveChanges:=False
End If
End If
Next
End Sub

 

[yörükbeyi03]

Sayın halit3 hocam

kusura bakmayın formülle çalışmayı yeni öğreniyorum

kodla hiç çalımadım,bu kodu nereye yazıcam ve kodlarda çalışma kitabı adı göremedim adları ben mi ilave edicem

emeginize sağlık
saygılar

 

[halit3]

Sayın halit3 hocam

kusura bakmayın formülle çalışmayı yeni öğreniyorum

kodla hiç çalımadım,bu kodu nereye yazıcam ve kodlarda çalışma kitabı adı göremedim adları ben mi ilave edicem

emeginize sağlık
saygılar

2 nolu mesaja dosyanızı ekledim

Bu işlem formüllerle olmaz makrolarla olur buda birazcık excell bilgisi gerektiriyor.

 

[yörükbeyi03]

Sayın halit3 hocam

Gönderdiğiniz çalışam kitabının uygulamasını yaptım kod çalışıyor fakat diğer çalışma kitablarında yaptığım değişiklikleri kaydedip kaydetmiycemi sormuyor hiç işlem yapmamış gibi kapatıyor

saygılar

 

[halit3]

Sayın halit3 hocam

Gönderdiğiniz çalışam kitabının uygulamasını yaptım kod çalışıyor fakat diğer çalışma kitablarında yaptığım değişiklikleri kaydedip kaydetmiycemi sormuyor hiç işlem yapmamış gibi kapatıyor

saygılar

Köprüleme yaptığım birkaç çalışma kitabı var
Ana çalışma kitabını kapatınca diğerleride kapansın istiyorum

1 nolu mesajınızda sadece dosyaların kapanmasını istiyorsunuz.

 

[yörükbeyi03]

Sayın halit3 hocam

Evet ilk anda düşünmemiştim fakat köprüden açtığım çalışma kitaplarını ilk açıldığı şekilde değişiklik yapmadan direkt kapatıyor ve enson çalışma sayfası olmayan excel çalışma kitabı kalıyor,onu da tekrar kapatıyorum.

yani kaydetmeyi unuttuğum çalışma kitaplarıdaki veriler gidecek.

yine emeginiz için teşekkür ederim

 

[halit3]

Sayın halit3 hocam

Evet ilk anda düşünmemiştim fakat köprüden açtığım çalışma kitaplarını ilk açıldığı şekilde değişiklik yapmadan direkt kapatıyor ve enson çalışma sayfası olmayan excel çalışma kitabı kalıyor,onu da tekrar kapatıyorum.

yani kaydetmeyi unuttuğum çalışma kitaplarıdaki veriler gidecek.

yine emeginiz için teşekkür ederim

Sub auto_close()
Dim wkbk As Workbook
For Each wkbk In Application.Workbooks
If wkbk.Name <> ActiveWorkbook.Name Then
If Windows(wkbk.Name).Visible = True Then
a = MsgBox(wkbk.Name & " Dosyasını" & Chr(10) & Chr(10) & _
"Kayıt etmek istiyormusunuz.?", vbYesNo + vbInformation, " Kayıt Penceresi")
If a = vbYes Then
wkbk.Close SaveChanges:=True
Else
wkbk.Close SaveChanges:=False
End If
End If
End If
Next
End Sub

Dosyalar kapatılınca kayıt edip etmiyeceğiniz uyarısı veriyor.

 

[yörükbeyi03]

Sayın halit3 hocam

Çok teşekkür ederim bu çalışma benim işimi çok yarayacak

Allah razı olsun

sırf meraktan soruyorum hiç değişiklik yapılmamış çalışma kitabı içinde kayıt edip etmeyeceğimi soruyor,değişiklik yapılmamış çalışma kitabını direk kapatıp,değişiklik yapılanları sorma gibi bir çalışma olabilirmi

şimdiden teşekkürler

 

[halit3]

Sayın halit3 hocam

Çok teşekkür ederim bu çalışma benim işimi çok yarayacak

Allah razı olsun

sırf meraktan soruyorum hiç değişiklik yapılmamış çalışma kitabı içinde kayıt edip etmeyeceğimi soruyor,değişiklik yapılmamış çalışma kitabını direk kapatıp,değişiklik yapılanları sorma gibi bir çalışma olabilirmi

şimdiden teşekkürler

kod

Sub auto_close()
Dim wkbk As Workbook
For Each wkbk In Application.Workbooks
If wkbk.Name <> ActiveWorkbook.Name Then
If Windows(wkbk.Name).Visible = True Then
wkbk.Close
End If
End If
Next
End Sub

 

[yörükbeyi03]

Sayın halit3 hocam

çok teşekkür ederim

saygılar

 

[yörükbeyi03]

Merhaba

Sayın halit3 hocam

Bugün verdiğiniz kodun uygulamasında pc de açık olan bütün çalışma kitaplarını kapattığını farkettim,yalnızca köprüleme yaptığım çalışma kitaplarını ve ana çalışma kitabını kapatan bir uygulama yapılabilirmi

şimdiden teşekkürler

 

[halit3]

A sutünundaki yazılı köprü adı açık olan dosya adı ile aynı olmalı

Sub auto_close()
Dim wkbk As Workbook
For Each wkbk In Application.Workbooks
If wkbk.Name <> ActiveWorkbook.Name Then
If Windows(wkbk.Name).Visible = True Then
For i = r To Cells(Rows.Count, "A").End(3).Row
If wkbk.Name = Cells(i, 1).Value Then
wkbk.Close
End If
Next i
End If
End If
Next
End Sub

 

[yörükbeyi03]

Merhaba Sayın hocam

Run-time error '1004'

Application-defined or object-dedined error

bu hatayı alıyorum

 

[halit3]

Örnek olarak A1 hcresinde deneme.xls yazsın bu dosyanın yeri D:\örnek\deneme.xls olarak kabul edelim.

A1 hücresine tıkladığımız zaman deneme.xls dosyası açılacaktır diğer taraftan kapatır ken sorguyu A sutünunda yapmaktadır. A1 hücresinde denem.xls yazıyorsa dosya kapanacaktır farklı bir şey yazıyorsa dosya kapanmıyacaktır.

Bu yazdıklarımdanda bir şey anlamadıysan örnek dosya köprülerinide oluşturduktan sonra ekle açıklamaya çalışalım.

 

[halit3]

Kodda değişiklik yaptım.
Örnek dosyada klasördeki dosyalara köprü kur düğmesini tıkla açılan pencereden dosyalara ait klasörü seç ve A sutununa gelen dosya ismlerinden bir kaçına tıkla aç ve başka bir klasördende bir dosyayıda aç sonra bu örnek dosyayı kapat ve gözlemle.!

Sub auto_close()
Dim wkbk As Workbook
For Each wkbk In Application.Workbooks
If wkbk.Name <> ActiveWorkbook.Name Then
If Windows(wkbk.Name).Visible = True Then
For i = 1 To Cells(Rows.Count, "A").End(3).Row
If wkbk.Name = Cells(i, 1).Value Then
wkbk.Close
Exit For
End If
Next i
End If
End If
Next
End Sub

 

[yörükbeyi03]

Merhaba sayın hocam

klasör ektedir

saygılar

 

[halit3]

Merhaba sayın hocam

klasör ektedir

saygılar

Dasya isimleri Sayfa2 deki gibi olacak bu isimlere köprü oluştur dene