Excel sayfasını açtığımda sadece userform açılsın

[haso_excel]

Merhaba arkadaşlar,

Hazırladığım bir userformu, ilgili excel sayfası görünmeden gelmesini ve kapandığındada başka bir excel dosyasını kapatmadan kapanmasını nasıl sağlarım. Ekde yapmaya çalıştım ama olmadı yardımcı olur musunuz?
İki açık dosyam varsa bu userformun olduğu dosyayı açtığımda yada kapattığımda diğer excel dosyam bunun açılışı ve kapanışndan etkilenmeyecek.

 

[mancubus]

şöyle bir şey buldum...

' ThisWorkbook module

Private Sub Workbook_Open()

    Application.Visible = False
    'UserForm1.Show
    SMM.Show


End Sub

'UserForm module

Private Sub CommandButton3_Click()

    Application.Visible = True
    Unload SMM
    'Application.Quit
    ActiveWorkbook.Close

End Sub

 

[İhsan Tank]

merhaba
boş bir module

Sub Auto_Open()
On Error Resume Next
Application.Visible = False
UserForm1.Show
End Sub

bu kodu yapıştırınız

 

[haso_excel]

İlginiz için teşekkürler arkadaşlar, fakat bir excel dosyası açıkken bu formu açtığımda her şey tamam, kapat konutu na bastığımda ikinci dosyayı save ediyim mi sorusu ile karşılaşıyorum. Bu soruyu bana sormadan formu kapatmasını sağlamamız lazım. Boş bir excel dosyası açın ve daha sonra benim formumu açıp kapat butonuna bastıktan sonra benim ne demek istediğimi anlayacaksınız

 

[Orion1]

Thisworkbook modülüne:

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

Userformun Qury close olayına.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
If Workbooks.Count = 1 Then
    Application.Quit
    Else
    ThisWorkbook.Close
End If
End Sub

 

[haso_excel]

Teşekkürler işlem tamam

 

[mustafakoker]

haso kardeşim
oluşturduğun form yanlış hesaplama yapıyor
şöyleki
102,04 tl brüt bunun neti 100 tl olması gerekiyor
senin formuna 102,04 yazdığımda
10.204.00 oluyor
stopaj:20.408,00
net tutar:81.632,00
kdv:183.672,00
toplam net:999.992,00

ekli dosyayı incele istersen ne demek istediğimi anlayacaksın

 

[Ergün Güler]

Thisworkbook modülüne:

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

Selam,
Sayın Evren Gizlen hocam,
yukarıda bahsettiğiniz gibi ben de yaptım ancak yine de ilk açılışta en son aktif sayfayı gösterip Anasayfa.show oluyor. Bunu nasıl engelleyebilirim?

Private Sub Workbook_Open()
On Error Resume Next

Application.Visible = False
AnaSayfa.Show
Application.Visible = True

End Sub

 

[haso_excel]

Bende farkındayım. Textbox ın formatında olsa gerek. Yapmaya çalışacağım.

 

[Orion1]

Kodun içine neye istediğiniz sayfayı seçen kodu yazmıyorsunuz*
aşağıdaki kod sayfa1 adlı sayfayı seçer.
eğer auto_close prosedüüne yazarsanız.
O sayfa ile kapanır.
Açılırken de o sayfa seçili gelir.O zmaan tabi open prosedürüne yazamanıza gerek yok.
Tercih sizin.
Aslında bu konuyu sisizn yapabilmeniz lazım.Sizden bekliyorum yapabilmenizi ama nedense bazen çok kolay konuları bu bir miktar ilerlemiş arkadaşlara yapamıyorlaR.
Ya ezbere gidiyorlar.yada copy-paste yapıyorlar.
Kolay gelsin.

sheets("Sayfa1").select

Selam,
Sayın Evren Gizlen hocam,
yukarıda bahsettiğiniz gibi ben de yaptım ancak yine de ilk açılışta en son aktif sayfayı gösterip Anasayfa.show oluyor. Bunu nasıl engelleyebilirim?

Private Sub Workbook_Open()
On Error Resume Next

Application.Visible = False
AnaSayfa.Show
Application.Visible = True

End Sub

 

[Ergün Güler]

Kodun içine neye istediğiniz sayfayı seçen kodu yazmıyorsunuz*
aşağıdaki kod sayfa1 adlı sayfayı seçer.
eğer auto_close prosedüüne yazarsanız.
O sayfa ile kapanır.
Açılırken de o sayfa seçili gelir.O zmaan tabi open prosedürüne yazamanıza gerek yok.
Tercih sizin.
Aslında bu konuyu sisizn yapabilmeniz lazım.Sizden bekliyorum yapabilmenizi ama nedense bazen çok kolay konuları bu bir miktar ilerlemiş arkadaşlara yapamıyorlaR.
Ya ezbere gidiyorlar.yada copy-paste yapıyorlar.
Kolay gelsin.

sheets("Sayfa1").select

Selam Sayın Hocam,
Yanıtınız bana olsa gerek. Sorumu anlatamadığım için özür dilerim.
Ben zaten dosya açılırken herhangi bir sayfa açılsın istemiyorum. dosya açılırken "Anasayfa" adlı Userform'ın açılmasını istiyorum.
Bu yüzden Auto_open veya Workbook_Open prosedürün içine sadece Anasayfa.show yazıyorum. yine de başlangışta çok kısa sürede olsa herhangi bir sayfa görünmesini istemiyorum.

İyi çalışmalar.

 

[baydeniro]

Paylaşım için teşekkürler.