Telefon Rehberİ Adres (kolay Kullanim)

[BirTürk1]

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

 

[BirTürk1]

Eklemeyİ UnutmuŞum

kusurabakmayın dosyayı eklemedim heralde unuttum

 

[BirTürk1]

Çokmu Zor Bİr Soruydu EĞer Yardimci Olunamiyorsa Enazindan 1 Cevap Yazsaydik DeĞİlmİ

 

[mehmett]

Sn BirTürk

Bu bölüm örnek çalışmaların (bitmiş haliyle) sergilendiği ve üyelerle paylaşıldığı bir bölümdür. Sizin burada açtığınız başlık da örnek bir uygulama sanılmış o nedenle cevap gelmemiştir. Sorularınızı Excel soruları bölümlerinde sorunuz.

Bu başlığı Diğer Excel Soruları bölümüne taşıyorum.