Userform açılınca diğer excel dosyaları kayboluyor !

[yesilcan]

değerli hocalarım aşağıdaki kodu userformda uyguladım.dosya açılınca otomatik açılıyor.fakat hali hazırdaki açık olan excel dosyaları kayboluyor.neden acaba?

Private Sub UserForm_Initialize()
UserForm2.Width = 900
UserForm2.Height = 900
TextBox1 = Format(Date, "DD.MM.yyyy")
TextBox2 = Format(Time, "hh:mm")
End Sub

 

[Orion1]

Autpen prosedüründe veya workbooks_Open prosederünde excel'i gizlemiş olabilirsiniz.Bu prosedürde application.visible=false satır varsa onu true yapın.
Yoksa aşağıdaki 900 değerlerini küçülterek deneyiniz.

UserForm2.Width = [B]900[/B]
UserForm2.Height = [B]900[/B]

 

[yesilcan]

hocam true yaptım ama gene olmuyor.şimdide gizlemiyor ama diğer açık olan dosyaları açıp işlem yapamıyorum.yeni dosyada açtırmıyor yardımlarınızı rica ediyorum.

Sub Autpen()
Application.Visible = True
UserForm1.Show
Application.Visible = True
End Sub

 

[yesilcan]

hocam birde ;aşağıdaki kodu incelerseniz sizin bana verdiğiniz bir kod hatırlarsanız.burada ilgili stoğu arayıp texbox2'ye yazıyor.peki bulduğu rakam cinsinden değilde kelime ise onu nasıl yazacak.benim tahminim (Format(miktar, "###0") doğrumudur.kodun burasını nasıl değiştiririm.

Sheets("sheet1").Select
miktar = 0
miktar = WorksheetFunction.SumIf(Range("A2:A65536"), deg, Range("B2:B65536"))
UserForm2.TextBox3.Value = Format(miktar, "###0")

 

[yesilcan]

değerli hocalarım soruma yanıt alamadım acaba çözümü varmıdır?
yardımlarınızı esirgemeyeceğinizi düşünüyorum.
saygılarımla.