formül içinde yazan kapalı dosya adını hücreden almak

[regal85]

Selamlar,
konu başlığı karışık gibi ama yapmak istediğim şey, ekteki "örnek" isimli resimde daha basit biçimde anlatayım.

Formüldeki köşeli parantezde yazılı olan 1111.xls kısmını A1 hücresinden almam mümkün müdür? Bunu yazma sebebim ise her ay 1111 dosyası gibi yaklaşık 1000ayrı dosyadan veri çekmem gerekiyor, düşeyara ile tek tek yazmak çok büyük bir yük. Bu sebeple yolun başındayken sizlere danışmak istedim.

Yardımınız için şimdiden teşekkürler
Saygılar

 

[Ömer]

Merhaba,

Dolaylı fonksiyonu ile yazılabilir. Fakat dolaylı fonksiyonu kapalı dosyalarda çalışmaz, her iki dosyada açık olduğunda çalışır. Buda işinize yaramaz sanırım.

Dilerseniz makro yardımıyla veri içeriğini değiştirebilirsiniz.

Sub Degistir()
     
    Dim eski As String, yeni As String, a As Byte
    
    a = InStr(Split(Range("C1").Formula, "[")(1), "]")
    
    eski = Left(Split(Range("C1").Formula, "[")(1), a - 1)
    yeni = Range("A1")
    
    Range("C1:F1").Replace eski, yeni
    
End Sub

.

 

[regal85]

Bahsettiğim 1000 dosyanın her birinde yaklaşık 400 sütunluk veri olduğu için makro yöntemini uygulamak biraz daha yoracak gibi.

Yine de ilgi ve yanıt için teşekkürler Sn Ömer

 

[regal85]

bu konuda yardımcı olabilecek var mıdır?
şimdiden teşekkürler.

 

[Erdem Akdemir]

Bu işlemi makro kullanmadan formülle yapamazsınız.

Formüllerin büyük çoğunluğu kapalı dosyalarda çalışmaz ve verinin yoğunluğu da anlattığınız gibiyse hata verir.

 

[regal85]

Bu gibi yaklaşık 1000 mağaza dosyası olacak. Her ay aynı işlemi yaparak satır veriye dönüştürmek gerçekten zor ve hata yapma ihtimali var.

Sn kuvari,

Makroyla nasıl yapabiliriz? Rica etsem, Ekteki mağaza kodu "3004", "5003" olan mağaza dosyalarını, Veri aktarım dosyasına (Mağaza türlerine göre) nasıl aktarabileceğim konusunda yardım edebilir misiniz?



Teşekkürler

 

[Korhan Ayhan]

Bütün dosyalarınızı ekteki örnek klasörünün içine kopyalayıp deneyiniz.

 

[regal85]

Korhan bey yardımınız için teşekkürler.

Makro konusunda yeni olduğum için yapamamıştım.

Çok teşekkürler tekrar. iyi çalışmalar