Gidilecek/Seçilecek Dosya Adını Aktif Dosyadan Belirlemek

[baydeniro]

Merhaba arkadaşlar. Excel'de açık olan dosyalar içinden hangisinin seçilerek gidilmesi ile ilgili dosya adı bilgisi A4 hücresinde tanımlı. Bunu koda nasıl adapte edebiliriz. Aşağıda bir çalışma yaptım ama, maalesef çalımıyor.


Sub YYYY()
Dim namefile As String
namefile = [A4]
Windows(namefile).Activate
End Sub

 

[halit3]

Merhaba arkadaşlar. Excel'de açık olan dosyalar içinden hangisinin seçilerek gidilmesi ile ilgili dosya adı bilgisi A4 hücresinde tanımlı. Bunu koda nasıl adapte edebiliriz. Aşağıda bir çalışma yaptım ama, maalesef çalımıyor.


Sub YYYY()
Dim namefile As String
namefile = [A4]
Windows(namefile).Activate
End Sub

Örnek gidilecek dosya seçimi dosyasına A4 hücresine (SUBE.xlsm) bunu yaz
ve kodu çalıştır.
Kod:

Sub dosyayagit()
Dim wkbk As Workbook
For Each wkbk In Application.Workbooks
If wkbk.Name = Cells(4, "a") Then
Windows(wkbk.Name).Activate
Exit For
End If
Next
End Sub

 

[baydeniro]

Sayın halit3 çok çok teşekkür ederim. Çok çok makbule geçti, çok işime yarayacak bir kod. Allah sizlerden razı olsun, sağlıkcakla kalın.