acılan sayfada baska sayfaya geciş

[özmer_mühendislik]

daha oncede bu baslıkla bır konu acmıstım ve saolsun arkadaslar bana baya yardımcı olmuslardı ama bu konu ıle alakalı baska bır sorunum var .
Daha önce böyle bir sorunum yoktu
olay kısaca şöyle;
ben hazırlamıs oldugum useform üzerinden butonlarla baska bir kitabın sayfasına gidiyordum ama ben bu işlemi bir kereye mahsusu yapabılıyorum ıkıncı defa (baska bır butona) yapmaya calıstıgımda acık olan dosyanın tekrar acılması halınde verilerin kaybolacagı uyarısını alıyorum halbukı bu daha once böyle deildi yardımlarınızı beklıyorum

Private Sub CommandButton12_Click()
Workbooks.Open Filename:="C:\Documents and Settings\COMPUTER\Desktop\abc.xls"
Sheets("sayfa1").Select

End Sub

 

[xxcell]

Siz zaten açmış olduğunuz dosyayı tekrar tekrar açma işlemi yaptırıyorsunuz.
Eğer dosyayı birkere açtığınızdan sonra üzerinde değişiklik yapıp tekrar aç (open) derseniz bu sefer dosyayı yeniden açmak isteyecek ve ikaz verecektir.
Sizin yapmanız gereken dosyayı bir kere açtıktan sonra, onun üzerinde işlem yapmak için aktif etmektir.


Workbooks("abc.xls").Activate
Sheets("sheet2").Select


Yada ilgili açık dosyada bir hücreyi değiştirmek için o dosyayı aktif hale getirmeden

Workbooks("x.xls").Sheets("sheet2").Range("a1")

şeklinde değiştirebilirsiniz.

 

[özmer_mühendislik]

ben sanırım sorunumu halledemedim. onun için size (.xla) dosyamı yollayayım siz uygulatabilirseniz cok memnun olurum.. teşekkürler