a kitabı açılınca b kitabı kayıt yapılarak kapansın

[enes2000eren]

b kitabında bir işlem yapıyorum.sonra a kitabına geçmek istiyorum.user formdan a kitabını açmasını istiyorum.fakat b kitabının kayıt edilerek kapanmasını istiyorum.bu konuda bir yar edebilir misiniz?

 

[mesuttasar]

Command butona şu kodları eklemeniz lazım.

Sub CommandButton1_Click()
    Workbooks.Open Filename:="[COLOR=red][B]C:\Belgelerim[/B][/COLOR]\a.xls"
 
Workbooks("b.xls").Save
Unload me
Workbooks("b.xls").Close
End Sub

Kırmızı ile yazılan yere a dosyasının adresini yazmanız gerekiyor.

 

[enes2000eren]

denedim ama olmuyor
b kitabı kapanmıyor

 

[mesuttasar]

Olması gerekiyor .Ben denedim oldu.

 

[mesuttasar]

a ve b adlı iki dosya oluşturup c dizini altına kopyaladım.B yi açtığınızda userform dan düğmeye klik yaptığınızda B dosyasını kaydedip kapatıyor ve A dosyasını açıyor.

Her iki dosyayı da rar la sıkıştırıp ekliyorum.

 

[enes2000eren]

slm sayın mesuttaşar soru ben tam anlatamadım .bilgisayar yönetimi adlı kitapta çalışıyorum.sonra ekdersler kitabını açmam gerekiyor.ekdersler kitabında işim bitince commandbuttonla ekdersleri kayıt yaparak kapatmak ve bilgisayar yönetimi kitabındaki formu çalışır hale getirmek istiyorum.umarım doğru anlatmışımdır.tş.

 

[mesuttasar]

slm sayın mesuttaşar soru ben tam anlatamadım .bilgisayar yönetimi adlı kitapta çalışıyorum.sonra ekdersler kitabını açmam gerekiyor.ekdersler kitabında işim bitince commandbuttonla ekdersleri kayıt yaparak kapatmak ve bilgisayar yönetimi kitabındaki formu çalışır hale getirmek istiyorum.umarım doğru anlatmışımdır.tş.

Şöyle Yapalım,

1-Öncelikle Her iki dosyanızıda adresi kolay olacak şekilde ya C yada D dizini altına taşıyın veya kopyalayın.

2-Sonra bilgisayar yönetimi adlı dosyanızın adını bilg_yon diye değiştirin. (Arada boşluk olmaması için mutlaka alt çizgiyle oluşturun.)
ekdersler kitabınızn adını değiştirmeyin.

3-bilg_yon kitabınıza bir modül ekleyip aşağıdaki kodları yazın.

Sub Auto_Open()
Userform1.Show
End Sub

4-Şimdi de ekdersler kitabındaki commandbutton_click olayına aynen aşağıdaki kodları yazın.

[LEFT]Sub CommandButton1_Click()
Workbooks.Open Filename:="[COLOR=black][COLOR=red]D[/COLOR]:\bilg_yon[/COLOR].xls"[/LEFT]
 
[LEFT]Workbooks("ekdersler.xls").Save
Unload me
Workbooks("ekdersler.xls").Close
End Sub[/LEFT]

Not: Ben sizin her iki excel çalışma kitabınızı D dizini altına kopyaladığınızı varsayarak yazdım.Siz C dizini altında oluşturduysanız kırmızı harfle yazmış olduğum D yi C olarak değiştirmeniz lazım.

Kolay gelsin.Saygılarımla,

 

[enes2000eren]

mesuttaşar

sayın mesuttaşar.ilkönce yardımlarınınz için tşk.ederim.ama benim sorunum ekdersler kitabını açtıktan sonra bilgisayar yönetimi kitabındaki user formu aktif hale getirmek.bilgisayar yönetimi kitabı zaten açık.ekdersler kitabındaki com.but. nasılbir kod yazmalıyım ki ekdersleri kayıt yapıp kapatsın ve bil.yön. userformunun aktif yapsın.user form aktif nasıl yapılır.tşk.