masa üstü görev çubuğunda aktif olan excel çalışma k

[ahmet79]

görev çubuğunda açık durumda olan yada o anda açık olan tüm excel çalışma kitaplarını bir combobox ta listeleyip comboboxtan seçtiğimiz çalışma kitabını aktif hale getirip ikinci bir comboboxta aktif çalışma kitabı içerisindeki sayfaları listeleyip seçtiğimiz sayfaya gitmek mümkünmüdür?

yardımcı olabilirmisiniz ?

 

[isakarakus]

merhaba,
bu kod ile açık olan dosya listesini oluşturabilirsiniz,
comboboxlara eklenmesini ayarlamadım,

[vb:1:1b11530e79]Sub deneme()
For zz = 1 To Application.Workbooks.Count
k = Application.Workbooks(zz).Name & Chr(13)
Next
MsgBox k
End Sub[/vb:1:1b11530e79]

sayfaların combobox'a listelenmesi konusunda forumda örnek mevcut.
http://www.excel.web.tr/viewtopic.php?t=5171&start=0&postdays=0&postorder=asc&highlight=

 

[ahmet79]

sayın isakarakus vermiş olduğunuz cevabı denedim ancak bu kod sadece üzerinde çalışmış olduğum çalışma kitabının adını verdi benim istemiş olduğum tam olarak

görev çubuğunda açık durumda olan yada o anda açık olan tüm excel çalışma kitaplarını

göstermesi idi

 

[pratikvb]

Sub Mesaj()
Dim Msg As String
Dim x As Integer
For x = 1 To Application.Workbooks.Count
mes = mes & Range("A" & x)
Next x
MsgBox mes
End Sub

 

[Levent Menteşoğlu]

Birde aşağıdaki gibi deneyin. Combobox1e kitap isimlerinin yüklenmesi için userforma aşağıdaki kodları yazın.

[vb:1:f2b559d88a]Private Sub UserForm_Initialize()
For a = 1 To Workbooks.Count
ComboBox1.AddItem Workbooks(a).Name
Next
End Sub
[/vb:1:f2b559d88a]

Combobox2 ye Combobox1 den seçilen kitabın sayfa isimlerinin yüklenmesi içinde combobox1e aşağıdaki kodu yazın.

[vb:1:f2b559d88a]Private Sub ComboBox1_Click()
ComboBox2.Clear
Workbooks(ComboBox1.Value).Activate
For a = 1 To Sheets.Count
ComboBox2.AddItem Sheets(a).Name
Next
End Sub
[/vb:1:f2b559d88a]

 

[ahmet79]

leventm çok teşekkürler istediğim oldu :hey:

 

[pratikvb]

Private Sub UserForm_Initialize()
Dim x As Object
For Each x In Workbooks
ComboBox1.AddItem x.Name
Next x
End Sub