Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: voleclub - 19 Şubat 2011, 23:23:15

Başlık: userform
Gönderen: voleclub - 19 Şubat 2011, 23:23:15

Bir excel dosyası açınca yanlızca userform acılsın ve onun üzerindeki butonlarla diğer excel dosyalarına ulaşmak istiyorum.Bu amaçla yaptığım  bir excel dosyasını acınca userform açılıyor.Userformdaki Seans yazan butona basınca c 'den bir excel sayfasını açmasını istiyorum.Aslında Seans yazan butona basınca sayfa açılıyor ama görünmüyor. Bunu daha sonra başka bir excel dosyasını açınca anlıyorum.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Başlık: Ynt: userform
Gönderen: Hüseyin Çoban - 20 Şubat 2011, 18:52:44

Merhaba, Thisworkbook' daki kodlardan aşağıdaki satırı silerek deneyiniz.

Kod: [Seç]

Application.Visible = False

Kodun Son Hali:

Kod: [Seç]

Private Sub Workbook_open()
UserForm1.Show
End Sub



Başlık: Ynt: userform
Gönderen: voleclub - 20 Şubat 2011, 23:30:58

Hüseyin Bey aşağıdaki kodları buldum.Bu kodlar istediğim gibi ancak küçük bir problem kalıyor. Exceli açınca sadece userform açılmıyor. Altında excel dosyasıda gözüküyor.Benim istediğim Deneme adındaki excel kitanın acınca sadece userform açılsın ve onun üzerindeki seans butonunada basınca masa üstündeki a adındaki excel dosyası acılsın.
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
'MsgBox "Window De-aktif"
UserForm1.Hide
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
'MsgBox "Window aktif"
UserForm1.Show
End Sub


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Başlık: Ynt: userform
Gönderen: Hüseyin Çoban - 21 Şubat 2011, 00:00:12

Aşağıdakı kodları deneyiniz.

Eski kullandığınız kod, ThisWorkbook' a yapıştırın.

Kod: [Seç]

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

Userformun kod bölümüne yapıştırın.

Kod: [Seç]

Private Sub CommandButton1_Click()
Workbooks.Open Filename:="C:\Documents and Settings\maho\Desktop\a.xlsx"
Application.Visible = True
End Sub

Başlık: Ynt: userform
Gönderen: voleclub - 21 Şubat 2011, 00:32:51

Seans butonuna basınca a ve deneme sayfası beraber açılıyor. Sadece a açılma imkanı varmıdır.

Başlık: Ynt: userform
Gönderen: nco_90000 - 13 Kasım 2012, 11:12:05

Peki hocam istediğim bir excel sayfasını açtırdım ama ben bu excel sayfasında alttaki istediğim bir sheet i nasıl açtıracağım.yardımcı olursanız sevinirim.

Başlık: Ynt: userform
Gönderen: Bülent Öztürk - 15 Kasım 2012, 09:56:56

Dosya açan kodun altına şu satırı ekleyin;

Kod: [Seç]

Worksheets("SayfaAdı").select