otomatik formul değiştirme

[heft]

Merhaba
dosya adı 1 ve A1 hücresinde
=[3.xls]Sayfa1!$A$1
tanımlı
şunu yapmak istiyorum
b1 hücresine 2 yazarsam formul
=[2.xls]Sayfa1!$A$1
olabilir mi ?

 

[birol_mumcu]

hayır ama link ekleye bilirsin

şimdi aklıma geldi; ad tanımla dan hücreye formül tanımla.
=EĞER(B1=2;[2.xls]Sayfa1!$A$1;0) şeklinde olabilir yanlız formülün veri alacağı2.xls dosya adı değişmememli.

formül 1 ,2,3,4,5,6, yazınca da değişecekse o zaman formüü de değiştirmelisin.

 

[heft]

evet bu bir yöntem ancak bir çok eğer içinde boğuşmak gerekiyor
30-40 adet dosya var
daha basit bir tolu yok mudur?

 

[sinbade]

İstediğiniz gibi B1'e yazdığınız ifadeye göre A1'in formülü değişir... B1'e yazdığınız ifade ile aynı dosya adı mevcut olması gerekiyor. belki kod daha geliştirilebilir.

Sub Makro2()
    If [B1] <> "" Then
    Range("A1").Value = "=" & "[" & [B1] & ".xls" & "]" & "Sayfa1!$A$1"
    End If
End Sub

 

[a.akyurek]

Merhaba
dosya adı 1 ve A1 hücresinde
=[3.xls]Sayfa1!$A$1
tanımlı
şunu yapmak istiyorum
b1 hücresine 2 yazarsam formul
=[2.xls]Sayfa1!$A$1
olabilir mi ?

=DOLAYLI("'["&A1&"]Sayfa1!A1")

Sözkonusu dosyaların açık olması gerekir.

Morefunc.xll yüklenirse...

=INDIRECT.EXT("'["&A1&"]Sayfa1!A1")