İki Userform

[hakanbolat]

Mrb Arkadaşlar,İki Kitapda ayrı ayrı userform var kitaplar arası userformları açabilirmiyiz.yani ana userformdan ayrı kitapdaki userformu açabilirmiyiz.

 

[Levent Menteşoğlu]

Açabilirsiniz. Her iki dosyayda kendi userformları açan bir prosedür yazsın ve diğer userformdaki butondan bu prosedürü çalıştırın. Örneğin; kitap2 ye aşağıdaki kodu yazın.

Sub ac()
UserForm1.Show
End Sub

Daha sonrada kitap1 deki userform üzerindeki butona aşağıdaki kodu yazsın.

Private Sub CommandButton1_Click()
Application.Run "Kitap2.xls!ac"
End Sub

 

[hakanbolat]

Leventm Bey ben bu şekilde yazdım,ama açılmadı birde söylemeyi unuttum 2.ci kitap kapalı önce onu açıyorum sonra userformu aç diyorum..

'Ana menü 1.Kitap kodlar..

Private Sub Image14_Click()
On Error Resume Next
durum = MsgBox("NOTLAR (" & aktifyıl.Caption & ") Programı Açılacaktır,Onaylıyormusunuz...", vbInformation + vbYesNo, "Notları Aç... ")
If durum = vbNo Then
Cancel = True
Else:
Unload Me
Workbooks.Open "C:\HKNCARİ\" & aktif.Caption & "\İŞLEMLER\" & "NOTLAR " & aktifyıl.Caption & ".xls"
Sheets("ANA").Select
Application.Run "NOTLAR " & aktifyıl.Caption & ".xls!ac"
Exit Sub
End If
End Sub

2.ci kitapdaki kod

Sub ac()
frmnotlar.Show
End Sub