- Katılım
- 6 Eylül 2007
- Mesajlar
- 134
- Excel Vers. ve Dili
- Excel 2003 TR
mahmut_bayram ın vermiş olduğu koda arşiv programından esinlenerek
basit bir rehber uygulaması yapmaya çalıştım
fakat açılışta kayıt esnasında ve çıkışta bazı problemler var
*1 AÇILIŞTA EXCELİN TÜM GÖRÜNÜMÜNÜ GİZLEMESİ İÇİN "Application.Visible = False" KULLANDIM FAKAT AÇILIRKEN DAHA ÖNCEDEN AÇIK OLAN TÜM KİTAPLARI GİZLİYORDU
DAHA SONRA
If Application.Windows.Count = 1 Then
Application.Visible = False
Else
Application.ActiveWindow.Visible = False
End If
BU KODU KULLANARAK SADECE AKTİF ÇALIŞMA KİTABININ KAPANMASINI SAĞLADIM
************************************************************************************
*2
If Application.Windows.Count = 1 Then
Application.Visible = False
Else
Application.ActiveWindow.Visible = False
End If
FAKAT BU SEFERDE FORM ENSON AÇIK OLAN KİTABIN VERİLERİNİ İŞLİYOR
************************************************************************************
*3 KAPATIRKEN KULLANDIĞIM
ActiveWorkbook.Save
If Application.Windows.Count = 1 Then
Application.Quit
Else
Application.ActiveWindow.Close
End If
KODU SAYESİNDE 2 AÇIK EXCEL KİTABINDAN SADECE AKTİF OLANI KAYDEDİP KAPATIYOR FAKAT AÇILIŞTA GİZLEDİĞİM TELEFON REHBERİ ADLI ÇALIŞMA KİTABININ YERİNE DAHA ÖNCE VEYA SONRADAN AÇMIŞ OLDUĞUM KİTABI KAYDEDİP KAPATIYOR
BANA YARDIM EDEBİLECEK BİRİ VARMI ACABA
ŞİMDİDEN YARDIMLARINIZ İÇİN TEŞEKKÜR EDERİM
SELAMETLE
BU ARADA SN: mahmut_bayram 'a BURADAN TEŞEKKÜR ETMEK İSTİYORUM TAMAMEN ONUN ÇALIŞMASINDAN YARARLANDIM
http://www.excel.web.tr/showthread.php?t=26062
basit bir rehber uygulaması yapmaya çalıştım
fakat açılışta kayıt esnasında ve çıkışta bazı problemler var
*1 AÇILIŞTA EXCELİN TÜM GÖRÜNÜMÜNÜ GİZLEMESİ İÇİN "Application.Visible = False" KULLANDIM FAKAT AÇILIRKEN DAHA ÖNCEDEN AÇIK OLAN TÜM KİTAPLARI GİZLİYORDU
DAHA SONRA
If Application.Windows.Count = 1 Then
Application.Visible = False
Else
Application.ActiveWindow.Visible = False
End If
BU KODU KULLANARAK SADECE AKTİF ÇALIŞMA KİTABININ KAPANMASINI SAĞLADIM
************************************************************************************
*2
If Application.Windows.Count = 1 Then
Application.Visible = False
Else
Application.ActiveWindow.Visible = False
End If
FAKAT BU SEFERDE FORM ENSON AÇIK OLAN KİTABIN VERİLERİNİ İŞLİYOR
************************************************************************************
*3 KAPATIRKEN KULLANDIĞIM
ActiveWorkbook.Save
If Application.Windows.Count = 1 Then
Application.Quit
Else
Application.ActiveWindow.Close
End If
KODU SAYESİNDE 2 AÇIK EXCEL KİTABINDAN SADECE AKTİF OLANI KAYDEDİP KAPATIYOR FAKAT AÇILIŞTA GİZLEDİĞİM TELEFON REHBERİ ADLI ÇALIŞMA KİTABININ YERİNE DAHA ÖNCE VEYA SONRADAN AÇMIŞ OLDUĞUM KİTABI KAYDEDİP KAPATIYOR
BANA YARDIM EDEBİLECEK BİRİ VARMI ACABA
ŞİMDİDEN YARDIMLARINIZ İÇİN TEŞEKKÜR EDERİM
SELAMETLE
BU ARADA SN: mahmut_bayram 'a BURADAN TEŞEKKÜR ETMEK İSTİYORUM TAMAMEN ONUN ÇALIŞMASINDAN YARARLANDIM
http://www.excel.web.tr/showthread.php?t=26062