Eklenti hazırlamak.

[kombo]

Selamlar.
Forumda bir iki tane örnek var ama konuyu tam çözümleyemedim.
Bir çalışma kitabını Eklenti Haline getirebilir miyim?
Mesela, Hesap isimli bir klasörüm var. Bu klasörde 30'un üzerinde çalışma kitabı var. Bu çalışma kitaplarını hepsi Düşeyara formülü ile Baz Dosya isimli kitaptan veri alıyor. Baz Dosya isimli kitabı Eklenti haline getirirsem aynı şekilde (Düşeyara ile) veri alabilirmiyim?

 

[Recep İpek]

Baz dosya ve bu dosyadan veri alan bir adet örnek bir dosya eklerseniz bir inceleyelim.

 

[tahsinanarat]

Sonucu bende berakla bekliyorum.

 

[kombo]

Minyatür örnek dosya ekte.

 

[Recep İpek]

Aşağıdaki adımları uygulayın.

>>Baz Dosya'yı açarak Farklı Kaydet ile uzantısını .xla olarak değiştirip

C:\Documents and Settings\"Kendi Kullanıcı Adınız"\Application Data\Microsoft\AddIns

klasörüne kopyalayınız.

(Uzantısını .xla olarak değiştirdiğinizde otomatik olarak bu klasör seçilir.)

Sonra bu dosyayı kapatarak bu dosyadan veri alan herhangi bir dosyayı açınız.

>>Tools(Araçlar)>>Add-Ins(Eklenti)>>Baz Dosya'yı seçip Tamam tuşuna basınız.

>>Formüllerinizi aşağıdaki şekilde değiştirerek kullanabilirsiniz.

=IF(A3="";"";VLOOKUP(A3;[b][color=red]'Baz Dosya.xla'!BAZ[/b][/color];2;0))

 

[kombo]

Sayın ripek
Şu anda deneme şansım yok ama en kısa sürede geri döneceğim (yarın) . Denemelerimde Düşeyara içine 'Baz dosya.xla' yazmak hiç aklıma gelmemişti.

İlginiz için teşekkür ederim.

 

[kombo]

Sayın ripek
Söylediğiniz yöntemi denedim. Fakat kullanmayı düşünmüyorum. Çünkü 42 dosyada binlerce Düşeyara formülüm var. Hepsini değiştirmem bana çok eziyet olacaktı. Onun yerine Baz Dosya kitabını nasıl otomatik açabilirim?

 

[kombo]

Şöyle birşeyi nasıl düzenlerim.

..
Workbooks.Open Filename:= "C:\Documents and Settings\COMPUTER\Desktop\Baz Dosya.xls"
Sheets("SAYFANIN ADI").Select
..

Set s1 ile o anki aktif kitap sayfasını tanımlayıp
Set s2 ye yukardaki komutu yazıp
tekrar s1 ile o an çalıştığım kitaba dönmek gibi.
Bunun makrocası

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

Sub Auto_Open()
MyFile1 = ActiveWorkbook.Name
MyFile2 = "F:\Deneme01.xls"
If Dir(MyFile2) = "" Then
MsgBox MyFile2 & " isimli dosya bulunamadı !", vbCritical
Exit Sub
End If
ChDir "F:\"
Workbooks.Open Filename:=MyFile2
Workbooks(MyFile1).Activate
End Sub

 

[kombo]

Sayın ripek
İlginiz için teşekkür ederim.

 

[turkan1]

rotatif kredi faizi hesaplama ile ilgili bir tabloya htiyacım var.Yardımcı olabilir misiniz?