A.xls den b.xls ya da b.xla daki user formu çağırma

[hsayar]

Ax.xls den b.xls ya da b.xla daki user formu çağırmak mümkün müdür?
B.xls yada b.xla adlı çalışma kitabında bulunacak userformun a1, a2, a3, a4 ...... Ax adlı çalışma kitaplarından çağrılması gerekmektedir. Çalışma tek kullanıcılıdır (ağ yok) aynı anda bir çalışma kitabından çağrılacaktır. zaten iki çalışma kitabından aynı anda çağrılamaıyor değil mi
yardımcı olursanız sevinirim...

 

[Tarkan VURAL]

Selamlar Hüseyin bey,

XXXX.xls dosyanızın içerisinde ExcelVBA adlı bir form olduğunu farzedelim. Yine aynı kitap içinde de Module kısmında bir Autpen prosedürü olduğunu farz edelim. Bu prosedürde ExcelVBA.Show yazdığını da farz edelim.

Herhangi bir kitapta dosya yolu ile dosya adından Autpen makrosunu çağırabilirsiniz.

Workbooks.Open("C:\TarkanVural\EVN.xls").RunAutoMacros xlAutoOpen

Yazdığınızda, diğer kitap açılır ve ilgili ExcelVBA formu çağrılış olur. Sonraki işlemler sizin planlarınıza bağlı.

 

[hsayar]

teşekkürler tarkan bey, aklıma geldi
Benim formumun bulunduğu dosya xla dosyası olduğundan çağrılacak dosyada referencesten ilgili xla yı işaretledim.

ilgili xla'ya
mdlCAGIR

Sub sbVttestcagır(NUMARA)
vatno = NUMARA
vtTEST.Show
End Sub

mdlSABIT

Public vatno

isimlerinde iki modül ve 1 userform ve üzerine bir textbox ile temel yapıyı çözdüm

Private Sub UserForm_Initialize()
TextBox1.Text = vatno
End Sub

veri bulunamadı dediği kodlarıda örnek ax.xls de

.......
    Else
            If intKayNo <= 3 Then
              intKayNo = intKayNo + 1
              GoTo KaynakSec
            Else
              MsgBox VatNo & " Kimlik Numaralı kayıt Bulunamadı.", vbInformation, "Bilgi"       'uyarı ver
              boolIPTAL = True
     
          [B][COLOR=Green]    HSR_TCVGF.sbVttestcagır (VatNo)[/COLOR][/B]
            End If
        End If
.............

şeklinde değiştirince çözdüm gibi detaylara daha sonra bakacağım.