Userform’dan Başka Excel Sayfasının Userformunu Açma?

[karakrall01]

Herkese kolay gelsin, ben 1. Excel çalışmamın userformu ile 2. Başka excel çalışma sayfamın userformunu açmak istiyorum.

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

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?

 

[karakrall01]

Konu güncel

 

[Korhan Ayhan]

Workbooks("1.xlsm") isimli dosyada formun ShowModal özelliğini False yaparak deneyiniz.

 

[karakrall01]

Workbooks("1.xlsm") isimli dosyada formun ShowModal özelliğini False yaparak deneyiniz.

Malesef hocam gene olmadı direk excel sayfası açıldı

 

[Korhan Ayhan]

Ben denediğimde oluyor. Sizde deneyin bakalım olacak mı?

 

[karakrall01]

Hocam telefon aracılığı ile gönderiyorum resmi kusura bakmayın bilgisayarın internetinde sıkıntı var. Showmodel kısmı true olarak geldi eklediğiniz dostada ama çalışıyor dediğiniz gibi geçişte userform açılıyo 1.xslm’de ama benim dosyamda olmuyo malesef neden acaba... kod tarzı birşeyi yok değil mi Userform1.show 0 gibi mesela

 

[karakrall01]

Ben denediğimde oluyor. Sizde deneyin bakalım olacak mı?

Korhan hocam visual basic üzerinden çözdüm ben konuyu artık gerek kalmadı söylediğim şekle tekrardan teşekkür ederim ilginiz için.

 

[Korhan Ayhan]

Kod tarzı birşey elbette var. Ama gönderdiğiniz resimdeki alandan da dediğim ayar yapılabilir.

 

[oydemir]

Korhan Ayhan bey
Formda sizin bu kodu buldum. Çalışıyor durumda fakat ben ağda (\\1.1.1.1\a\s\1.xlsm dosyasını açmak istiyorum bunu nasıl yapabilirim.
Birde textbox lardan dosya yolunu yazdırdığımız zaman userformu açabilir miyiz

 

[Korhan Ayhan]

İnceleyiniz..

MAKRO İLE AĞDAN DOSYA AÇMAK

Sub auto_open() Workbooks.Open("D:\2018\ORTAK\3-GEÇİCİ GÖREV YOLLUĞU\YOLLUK İSTATİSTİK_2018.xlsx").Sheets("Anasayfa").Select ActiveCell.Select Windows("GGY-TOPLU_2018-TOPLU BEYAN.xlsm").Activate Range("Y4").Select Application.CutCopyMode = False End Sub D:\2018 YERİNE...

www.excel.web.tr

 

[oydemir]

ilginize Teşekkürler biraz uğraşan sonra çözdüm. İzniniz olursa bir sorum daha olacaktı iki UserForm da aynı anda görebilme şansım olur mu

 

[Korhan Ayhan]

Denemedim ama olabilir gibi...

İki dosyada formların ShowModal kısımlarını FALSE olarak ayarlayın. Sonra formların konumlarını ekran üzerinde çakışmayacak şekilde ayarlayın. Sonra deneme yapın.

 

[oydemir]

ellinize bilginize sağlık teşekkürler