Klasör içindeki dosyalara Köprü Kurma

[Mdemir63]

Selamlar

Arkadaşlar Klasör içindeki Ana isimli dosyanın A1 hücresine, klasördeki diğer dosya isimlerini girerek nasıl açtırırım. Yani A1 hücresine dosya ismini girdiğimde girdiğim dosyayı açmasını sağlamayı nasıl yapabilirim?

Saygılar

 

[Mdemir63]

Arkadaşlar ekteki gibi çözdüm.
Makro ile çözümü olursa benim için daha iyi olacak

 

[asi_kral]

Merhaba

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then
If Intersect(Target, Range("A1")) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
Workbooks.Open (ThisWorkbook.Path & "\" & Target & ".xlsx")
End If
Application.EnableEvents = True
End Sub

Sayfanın kod bölümine kopyalayıp dener misiniz?
A1 hücresindeki veriye göre çalışır bulamazsa hata verir?

 

[asi_kral]

Merhaba

Private Sub Worksheet_Change(ByVal Target As Range)
Dim HT
Application.EnableEvents = False
On Error GoTo HT
If Target.Column = 1 Then
If Intersect(Target, Range("A1")) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
Workbooks.Open (ThisWorkbook.Path & "\" & Target & ".xlsx")
Application.EnableEvents = True
Exit Sub
HT: MsgBox Target & ".xlsx Dosyası Bulunamadı"
End If
Application.EnableEvents = True
End Sub

Bu kodu size bilgi verecek. Hata vermeyecek.

 

[Mdemir63]

Selamlar
sayın @asi_kral çok teşekkür ederim.

Saygılar