Kapalı dosyayı Açma Kendi Dosyasını Kapatma

[Turgay1983XX]

merhaba
Üstatlar ben iki adet dosyam var Giriş ve F001 adlı giriş doyasında Frm_KullaniciGirisi adlı Formu Doldurup giriş tuşuna bastıktan sonra Frm_KullaniciGirisi formundaki txt_FirmaKod adlı texboxta yazan firmanın dosyasını açmak. açmayı başarıyorum ama bu seferde giriş adlı dosyam kapanmıyor ve diğer dosya da işlem yapamıyorum. konu hakkında yardım edermisiniz

 

[Turgay1983XX]

merhaba
Üstatlar ben iki adet dosyam var Giriş ve F001 adlı giriş doyasında Frm_KullaniciGirisi adlı Formu Doldurup giriş tuşuna bastıktan sonra Frm_KullaniciGirisi formundaki txt_FirmaKod adlı texboxta yazan firmanın dosyasını açmak. açmayı başarıyorum ama bu seferde giriş adlı dosyam kapanmıyor ve diğer dosya da işlem yapamıyorum. konu hakkında yardım edermisiniz

Ekli dosyayı görüntüle 253762

yapabilecek kimse yok mu

 

[tamer42]

merhaba
Üstatlar ben iki adet dosyam var Giriş ve F001 adlı giriş doyasında Frm_KullaniciGirisi adlı Formu Doldurup giriş tuşuna bastıktan sonra Frm_KullaniciGirisi formundaki txt_FirmaKod adlı texboxta yazan firmanın dosyasını açmak. açmayı başarıyorum ama bu seferde giriş adlı dosyam kapanmıyor ve diğer dosya da işlem yapamıyorum. konu hakkında yardım edermisiniz

Ekli dosyayı görüntüle 253762

aşağıdaki kodu ekler misiniz;

Unload Me
ThisWorkbook.Close False

 

[Turgay1983XX]

aşağıdaki kodu ekler misiniz;

Unload Me
ThisWorkbook.Close False

o kodu yazınca excel kapanıyor ama vba kısmı açık kalıyor bu seferde.
bende F001 dosyasını direk açılışta formdan başlasın yaptım ama yine excel dosya kapanıyor ama vba kısmı kalıyor

 

[Turgay1983XX]

aşağıdaki kodu ekler misiniz;

Unload Me
ThisWorkbook.Close False

aslında benim istediğim F001 excel doyası açılınca Giriş dosyası tümü ile kapansın. hem excel hem de vba kısmı

 

[tamer42]

aslında benim istediğim F001 excel doyası açılınca Giriş dosyası tümü ile kapansın. hem excel hem de vba kısmı

Userform:

Unload Me
CloseAllVBEWindows
ThisWorkbook.Close False

Module:

Public Sub CloseAllVBEWindows()

Dim wk As Workbook
Dim CodeWindow As Variant

Application.VBE.MainWindow.Visible = True

For Each wk In Application.Workbooks
    If wk.Name = ThisWorkbook.Name Then
       For Each CodeWindow In wk.VBProject.VBE.Windows
           If CodeWindow.Visible = True Then CodeWindow.Visible = False
       Next CodeWindow
    End If
Next wk

End Sub

 

[Turgay1983XX]

hocam bunu açılan f001 doyasına mı yoksa giriş dosyasına mı yapayım. girişe yapınca aşağıdaki gibi oldu

 

[tamer42]

Bu kodu Userform altına da yazabilirsiniz

 

[Turgay1983XX]

Maalesef olmadı hocam. mümkün ise siz dosyaya kodlayıp atabilirmisiniz

 

[tamer42]

Maalesef olmadı hocam. mümkün ise siz dosyaya kodlayıp atabilirmisiniz

Siz tam ne yapmaya çalışıyordunuz?
konu dağıldı, maddeler halinde anlatırsanız öyle bakalım,

 

[Turgay1983XX]

Siz tam ne yapmaya çalışıyordunuz?
konu dağıldı, maddeler halinde anlatırsanız öyle bakalım,

Hocam benim iki adet dosyam var. birisi Giriş diye bir dosya bu doysa userform olarak açılıyor.
giriş bilgileri doğru olduğundan giriş başarılı diyor ve firma kodu bulunan dosya açılacak o da user form olarak açılacak ve giriş dosyası kapanacak. ama tam anlamı ile kapanacak. sonra açılan firmada işlem yaptıktan sonra kapatınca da o firma dosyası da kapanacak. işlemlerin hepsi userformda yapılacak.
aynı anda başka exceller ile de işlem yapabileceğim ama .