Combobox'la açık olan excel dosyaları listeleme ve seçileni aktif yapma

[rothespot]

Merhaba,

Yapmak istediğim macro çalıştırırken combobox'la açık olan excel dosyalarını listelemek, kullanıcının combobox'la seçtiği dosyadan verileri ana dosyaya aktarıp macronun çalışmasını devam ettirmek.

Daha kolay anlaşılması için basit bir macro ekliyorum. Koyu belirtilen satırdaki işlemi combobox'la seçerek gerçekleştirmek istiyorum.

Sub Makro1()
'
' Makro1 Makro
'

'
Range("A1").Select
Windows("Kitap2").Activate
Cells.Select
Selection.Copy
Windows("Kitap1").Activate
Cells.Select
ActiveSheet.Paste
Range("A1").Select
End Sub

Yardım için şimdiden teşekkürler.

 

[rothespot]

Biraz uğraşı sonunda yapabildim, ihtiyacı olan olursa anlatım ekliyorum.

Bir combobox ve iki commandbutton eklenmiş bir userform ekledim.
Userform için;

Option Explicit
 
Private Sub CommandButton1_Click()
    Dosyaadı = Me.ComboBox1.Value
    Unload Me
End Sub
 
Private Sub CommandButton2_Click()
    Stopped = True
    Unload Me
End Sub
 
Private Sub UserForm_Initialize()
    Dim wkb As Workbook
    Me.Label1.Caption = "Açılır listeden dosya seçin"
    With Me.ComboBox1
        For Each wkb In Application.Workbooks
            .AddItem wkb.Name
        Next wkb
    End With
End Sub

Kopyalama işlemini yapacak macro da alttaki gibi oldu;

Option Explicit
 
Public Dosyaadı As String
Public Stopped As Boolean
Sub Makro1()
'
' Makro1 Makro
'

'
    Stopped = False
    UserForm1.Show
    If Stopped Then Exit Sub
    Range("'dosyaadıal'!a1").Value = Dosyaadı
    Windows(Dosyaadı).Activate
    Cells.Select
    Selection.Copy
    Windows("Kitap1.xlsm").Activate
    Sheets("sayfa1").Select
    Cells.Select
    ActiveSheet.Paste
    Range("A1").Select
 End Sub

Bu code açık olan dosya adını bir hücreye yazıp, o hücreyi referans alarak çalışıyor, bu yüzden Range("'dosyaadıal'!a1").Value = Dosyaadı satırındaki sayfa adını değiştirmeniz gerekiyor.

Herkese kolaylıklar.