Aktif kitabı kapatıp başka kitaptaki userformu açma

[heft]

Merhabalar Herkese,
C:\den\a.xls
C:\den\b.xls dosyalarım var.

a.xls yi actığımda userform1 otomatik açılıyor ve burada Commandbutton1 e tıkladığımda

a.xls dosyasını kapatıp b.xls yi açıp b.xls deki userform1 i açmasını istiyorum.(ancak bu saate kadar bu kadar yol alabildim)

b.xls userform1 in

Private Sub UserForm_Initialize()
For A = 1 To Workbooks.Count
If Workbooks(A).Name = "a.xls" Then GoTo 10
Next
Exit Sub
10
Workbooks("a.xls").Save
Workbooks("a.xls").Close
Application.Run "b.xls!Makro1" 'bu olasılık neden çalışmıyor?
End Sub

son end den App... başlayan satır neden çalışmıyor?
hatam nerede

 

[heft]

Eğer
Application.Run "b.xls!Makro1"
i 10 dan sonra ya alırsam userform kapanana kadar a.xls yi kapatmıyor.

yardım lütfen

 

[Levent Menteşoğlu]

Neden bu kadar zahmet çekiyorsunuz, b.xls dosyasına bir auto_open makrosu yazarak userformu açın.

 

[heft]

Syn Leventm problemimi tam anlatamadım sanırım.
Þöyle,
a.xls açıldığına a.xlsuserform1 açılacak ve burdaki commandbutton1 e tıklandığında a.xls yi kapatıp
b.xls yi ve bununla beraber b.xlsuserform1 açılacak ve burdaki commandbutton1 e tıklandığında b.xls yi kapatıp

a.xls yi açacak
tam olarak derdim bu :agla: :kafa:

dosya yolları:c:\den\a.xls ve c:\den\b.xls

 

[kundakci]

Merhaba
Makronuzun çalışmama nedeni
Hem a.xls dosyasını kapatıyorsunuz sonrada a.xls dosyasındaki dosya aç ve b.xls dosyasındaki makroyu çalıştırmaya çalışıyorsunuz.

 

[Haluk]

Merhaba;

Eki bir ara inceleyiniz...

 

[heft]

Allah razı olsun
Ã?rnek süper
sağolun sn haluk ve diğer tüm arkadaşlara...

 

[heft]

Günaydınlar
Bunları denedim çalışıyor ancak bir süre yada yaptığım bir işlemden dolayı

"Microsoft Excel başka bir uygulamanın OLE işlemini tamamlamasını bekliyor."

Diye bir uyarı alıyorum,

BU NEDEMEK BİLMİYORUM

Neden kaynaklana bilir ?

yardımcı olabili misiniz?Lütfen

 

[kundakci]

Merhaba
birde bu örneği denermisiniz
Xp 2003 te denendi

 

[metinozlu]

Merhaba meraktan soruyorum
a ve b kitaplarında userform1.show gibi bir komut olmadığı halde userform1 nasıl ekrana geliyor.

teşekkürler

 

[mehmett]

Sn metinozlu,

ThisWorbook kod sayfasında şöyle bir kod var;

[vb:1:a96dabb675]Private Sub Workbook_Open()
UserForm1.Show
End Sub[/vb:1:a96dabb675]

 

[metinozlu]

teşekkür

 

[alpturk]

merhaba ben yeniyim de bana userformu çalıştırma buttonunu söylermisiniz?

evet acil cevabınızı bekliyorum