• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

K

karakrall01

Katılım
2 Mart 2018
Mesajlar
101
Excel Vers. ve Dili
excel 2016
Herkese kolay gelsin, ben 1. Excel çalışmamın userformu ile 2. Başka excel çalışma sayfamın userformunu açmak istiyorum.

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

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?
 
Workbooks("1.xlsm") isimli dosyada formun ShowModal özelliğini False yaparak deneyiniz.
 
Ben denediğimde oluyor. Sizde deneyin bakalım olacak mı?
 

Ekli dosyalar

223188
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
 
Kod tarzı birşey elbette var. Ama gönderdiğiniz resimdeki alandan da dediğim ayar yapılabilir.
 
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
 
İ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 www.excel.web.tr
 
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
 
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.
 
ellinize bilginize sağlık teşekkürler
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst