Başka dosya açma sorunu

[heft]

Merhaba
Ekran adı altında bir dosyam var bu dosyadan vb (Workbooks.Open Filename=..." komutuyla data dosyasını açtırıyorum ve bu şekilde yllardır çalışıyordum.

Ekran.Userform1 dan data dosyasını açtırdığımda data dosyası sayfa1 bir türlü aktif olmuyor,

Workbooks.Open Filename=.. dan sonra ne kadar
Windows("data.xlsx").Activate
Sheets("sayfa1").Select

yazsamda yinede aktif olmuyor, hata nerede bir türlü bulamadım, yardım edebilir misiniz?

 

[Orion1]

Propertiesten , Userformun showmodel özelliğini FALSE yapın.

 

[heft]

Merhaba
Olmadı, userformdan Workbooks.Open Filename:="C:\data.xlsx" açıldığı anda arka planda kalıyor.
Aşağıdaki kodun bağlı olduğu Listboxa tıkladığım anda userform arka plana geçiyor( sanki kapatmış gibi)
ALT+TAB yaptığımda userformu arka planda görüyorum.

Private Sub ListBox1_Click()
Windows("data.xlsx").Activate
Sheets("data").Select

Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sheets("data").Range("A" & ListBox1.ListIndex + 2).Select
Selection.EntireRow.Select
End If
Next
End Sub

 

[heft]

Merhaba
Yıllardır kulandığım bu yapı nasıl bozulur anlamış değilim, konu hakkında bilgisi olan varmı?
Microsoft farklı güncelleme mi yaptı acaba?

 

[Korhan Ayhan]

Son günierde yaptığınız güncellemeleri tek tek kaldırıp hangisinin bu duruma sebep olduğunu tespit edebilirsiniz.