CommandButton ile baska Excel dosyasi acmak!

[boss2090]

Iki tane Excel dosyam var.
Birincisinde CommandButton olusturdum. Bu CommandButton ile ikinci Excel dosyanin Sayfa4 acilsin ve ikinci dosyada olusturdugum UserForm1 calissin.
Tesekkürler.

 

[Ömer]

Merhaba,

Önce kapalı olan dosyanın ThisWorbook bölümüne aşağıdaki kodu yazın.

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

Daha sonra oluşturduğunuz CommandButton için aşağıdaki kodları kullanın.

Private Sub CommandButton1_Click()
    Workbooks.Open Filename:="C:\Kitap2.xls"
    Sheets("Sayfa4").Select
End Sub

Açılacak çalışmanın Kitap2 adında ve C klasöründe olduğu düşünülmüştür.

.

 

[boss2090]

Cok tesekkürler Ömer bey, harika oldu ama bir sorun cikti simdi. Ikinci dosya acildi ve UserForm1 calisti . sorun ise su UserForm1 deki CommandButton lar görev yapmiyor simdi.
Normalde Sadece ikinci dosyayi acarsam sorun yok ama birinci dosyadan ikinci dosyayi acinca UserForm1 deki CommandButton lar calismiyor.
Bu konuda yardim edebilirmisiniz.
Simdiden tekrar Tesekkürler.

 

[Ömer]

Bende herhangi bür sorun olmadı. Eki inceleyin. Kitap2 dosyasını C klasörüne çıkartın.

.

 

[boss2090]

tesekkürler ilginiz icin. Sizin gönderdiginiz ekte tamam sorun yok ama bende CommandButton dügmesi ile Sayfalari degistirmek istiyorum yapmiyor.Sebebini bir türlü cözemedim. Acaba Ikinci dosya acilinca birinci dosya otamatik kapansin mi.

 

[Ömer]

tesekkürler ilginiz icin. Sizin gönderdiginiz ekte tamam sorun yok ama bende CommandButton dügmesi ile Sayfalari degistirmek istiyorum yapmiyor.Sebebini bir türlü cözemedim. Acaba Ikinci dosya acilinca birinci dosya otamatik kapansin mi.

Olabilir..

Kitap2 nin ThisWorbook daki kodunu aşağıdaki gibi değiştirin.

Private Sub Workbook_Open()
    With Workbooks("Kitap1.xls") [COLOR=darkgreen]' kapatılacak kitap adı[/COLOR]
        .Save
        .Close
    End With
Sheets("Sayfa4").Select
UserForm1.Show
End Sub

Kitap1 deki kodu da aşağıdaki gibi değiştirin.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
    Workbooks.Open Filename:="C:\Kitap2.xls"
Application.ScreenUpdating = True
End Sub

.

 

[boss2090]

Private Sub Workbook_Open()
With Workbooks("Kitap1.xls") ' kapatılacak kitap adı
.Save
.Close
End With
Sheets("Sayfa4").Select
UserForm1.Show
End Sub
Bu kodu Kitap2 nin ThisWorkbook kod sayfasina yaziyorum ama sürekli hata veriyor. Index dogru yerin disinda gibi..

 

[Ömer]

Dosyayı buton kullanmadan açtığınız için hata veriyordur.

Bu şekilde değiştirin.

Private Sub Workbook_Open()
On Error Resume Next
With Workbooks("Kitap1.xls")
    .Save
    .Close
End With
    Sheets("Sayfa4").Select
    UserForm1.Show
End Sub

 

[boss2090]

cok Tesekkürler Ömer bey.