CommandButon ile başka Excel sayfası açma

[ilhanbatu]

Merhaba,

UserForm üzerindeki CommandButonları başka bir Excel dosyasına yönlendirip buradaki sayfaları açmak istiyorum.Ancak bunla ilgili kodlamayı bilmiyorum.
Bu konuda yardımcı olabilirseniz sevinirim.

Örnek olması açısından;
- Ana Excel dosyamdaki UserForm üzerindeki CommandButon1 = A isimli Excel dosyasındaki Sayfa1'e yönlenecek
- Ana Excel dosyamdaki UserForm üzerindeki CommandButon2 = A isimli Excel dosyasındaki Sayfa2'e yönlenecek
- Ana Excel dosyamdaki UserForm üzerindeki CommandButon3 = A isimli Excel dosyasındaki Sayfa3'e yönlenecek
gibi olacak.
Saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz iki dosyayı aynı klasör içine alınız. Aşağıdaki kodu formunuzun kod bölümüne uygulayın. Eğer açılan A dosyasında hücrelere müdahale etmek istiyorsanız formunuzun ShowModal özelliğini False olarak ayarlayın. Kodları çalıştırıp deneyin.

Option Explicit
 
Private Sub CommandButton1_Click()
    Dim Dosya As Workbook
    For Each Dosya In Workbooks
    If Dosya.Name = "A.xls" Then
    Windows("A.xls").Activate
    GoTo Devam
    Else
    Workbooks.Open (ThisWorkbook.Path & "\A.xls")
    GoTo Devam
    End If
    Next
Devam: Sheets("Sayfa1").Select
End Sub
 
Private Sub CommandButton2_Click()
    Dim Dosya As Workbook
    For Each Dosya In Workbooks
    If Dosya.Name = "A.xls" Then
    Windows("A.xls").Activate
    GoTo Devam
    Else
    Workbooks.Open (ThisWorkbook.Path & "\A.xls")
    GoTo Devam
    End If
    Next
Devam: Sheets("Sayfa2").Select
End Sub
 
Private Sub CommandButton3_Click()
    Dim Dosya As Workbook
    For Each Dosya In Workbooks
    If Dosya.Name = "A.xls" Then
    Windows("A.xls").Activate
    GoTo Devam
    Else
    Workbooks.Open (ThisWorkbook.Path & "\A.xls")
    GoTo Devam
    End If
    Next
Devam: Sheets("Sayfa1").Select
End Sub

 

[ilhanbatu]

Çok Teşekkür ederim.
Elinize,Emeğinize sağlık.