merhaba arkadaşlar konuyu nereye yazacağımı bilemiyorum. benim şöyle bir sorunum var bilgisayarım\d\hareketler diye bir klasör var bunun içinde 1, 2, 3,4 isimleriyle devam eden .xlsx uzantılı excel dosyaları var. bununla ilgili olarak boş bir sayfa açıp A1 hücresi değer hücresi olsun mesela A1 e 1 yazınca butonla yada formülle bilgisayarım\d\hareketler\1.xlsx dosyası açılsın istiyorum eğer A1 e 2 yazarsam aynı klasördeki 2.xlsx dosyası açılsın. bana yardımcı olabilecek yada bunun için bağlantı verebilecek arkadaşlar şimdiden teşekkürler.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Hücreye yazılan bilgiye göre klasördeki dosyayı açmak
- Konbuyu başlatan YAVERYEN
- Başlangıç tarihi
- Katılım
- 15 Mart 2005
- Mesajlar
- 43,719
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Selamlar,
Aşağıdaki kodu bu işlemi yapmak istediğiniz sayfanın kod bölümüne uygulayınız.
A1 hücresine dosya adını yazıp enter tuşuna bastığınızda kod çalışacaktır.
Aşağıdaki kodu bu işlemi yapmak istediğiniz sayfanın kod bölümüne uygulayınız.
A1 hücresine dosya adını yazıp enter tuşuna bastığınızda kod çalışacaktır.
Kod:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Dir("D:\hareketler\" & Target & ".xlsx") <> "" Then
Workbooks.Open ("D:\hareketler\" & Target & ".xlsx")
Else
MsgBox Target & ".xlsx" & " isimli dosya bulunamadı !", vbCritical
End If
End Sub