kapalı dosyadan veri çekme

[bamteli_27]

merhabalar,
örnek dosyada (icmal) açıklamayı yaptım ama,
a sütununa adını yazdığım kapalı dosyanın sabit olan sayfa1 inden düşeyara formülünü kullanarak veri çekmeye çalışıyorum.
klasör sayısı 70 civarında, dosya sayısı yaklaşık 2000 e yakın olduğu için klasörü manuel değiştirebilirim ancak dosya adını düşeyara formülünün tablo_dizisi ne otomatik olarak belirleyebilirsek çok iyi olacak.
şimdiden teşekkürler..

 

[bamteli_27]

yardımcı olabilecek arkadaşımız var mı acaba
teşekkürler

 

[Korhan Ayhan]

C sütunundaki formüllü hücreleri seçip aşağıdaki kodu çalıştırınız.

Kod formül içindeki dosya isimlerini (xlsx uzantılı) A sütunundaki isimlerle değiştirir.

Option Explicit

Sub Formuldeki_Dosya_Isimlerini_Guncelle()
    Dim Veri As Range, Formul As String
    Dim Bul_A As Integer, Bul_B As Integer
    Dim Eski_Dosya_Adi As String
    
    For Each Veri In Selection.Cells
        If Veri.HasFormula Then
            Formul = Veri.FormulaLocal
            Bul_A = InStr(1, Formul, "[")
            Bul_B = InStr(1, Formul, "]")
            Eski_Dosya_Adi = Replace(Mid(Formul, Bul_A + 1, Bul_B - Bul_A - 1), ".xlsx", "")
            Formul = Replace(Formul, Eski_Dosya_Adi, Veri.Offset(0, -2).Value)
            Veri.FormulaLocal = Formul
        End If
    Next
    
    MsgBox "Formüller güncellenmiştir.", vbInformation
End Sub

 

[bamteli_27]

sayın korhan hocam çok teşekkürler
ellerinize sağlık,