- Katılım
- 2 Mart 2018
- Mesajlar
- 101
- Excel Vers. ve Dili
- excel 2016
- Altın Üyelik Bitiş Tarihi
- 31-01-2024
Herkese kolay gelsin, ben 1. Excel çalışmamın userformu ile 2. Başka excel çalışma sayfamın userformunu açmak istiyorum.
Korhan hocamın paylaşmış olduğu bir kod sayesinde başka excel sayfamı açtırabiliyorum ama sıkıntı şu oluyo diğer açtığım excel sayfası normalde tıklayarak açtığımda userform otomatik açılıyo fakat bu kod aracılığı ile başka excel sayfasını açtırdığımda o sayfanın userformu aktif şekilde çalışmıyo direk excelde bulunan çalışma sayafalarım geliyor bunu nasıl çözebilirim acaba?
Kod:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Set Dosya = Nothing
On Error Resume Next
Set Dosya = Workbooks("1.xlsm")
On Error GoTo 0
If Not Dosya Is Nothing Then
Unload Me
Dosya.Activate
ThisWorkbook.Close 1
Else
Unload Me
Set Dosya = Workbooks.Open(ThisWorkbook.Path & "\1.xlsm")
Dosya.Activate
ThisWorkbook.Close 1
End If
Application.ScreenUpdating = True
End Sub