Arama yapacağı dosya ismini hücreden alma

[BengeldimM]

Merhabalar, bütün ürün kodlarını listelediğim bir excel dosyam var. bu dosyanın A sütununda ürün kodları var. bir klasörümde de bu A sütununda yazan bütün kodların ayrı ayrı excel dosyaları var. her excel dosyasının aynı hücrelerinde o ürüne ait bilgiler var. ( her excel dosyasında P35,P36,P37,P38 ) istediğim şu ; Ana dosyamın A1 hücresine herhangi bir ürünün kodunu yazdığımda B1 hücresine o koda ait excel dosyasından P35 hücresindeki bilgi gelsin, C1 e yine aynı dosyadan P36, D1 e P37, E1 e P38. gelsin. A2 hücresinde de hangi kod yazıyorsa yine aynı şekilde o kodu ilgilendiren excel dosyasından bilgileri B2,C2,D2,E2 hücrelerine gelsin.

Aslında şu şekilde bir çalışma yaptım. A1 de yazan ne ise B1 e sonuna .xls olarak yazıyor. sonra DOLAYLI formulu ile B! de yazan dosyadan istediğim bilgiyi getirebiliyorum ancak DOLAYLI formulü ancak ve ancak dosya açıkken geliyor. Ben DÜŞEYARA formulundeki gibi dosyalar kapalıyken bile bu bilgileri almak istiyorum. eğer değişiklik olmuşsa güncelleyeyim mi diye sorsun istiyorum. Ancak DÜŞEYARA formulune şu hücrede ismi yazan dosyayada arama yap şeklinde tanımlıyamıyorum. Umarım derdimi anlatabilmişimdir. Yardımlarınız için şimdiden teşekkürler.

 

[hmtstc]

Hocam bu normal şekilde olmaz. Makro ile olur. Onuda düzenlemeyi bilmiyorsanız dosyanızı verin ayarlayalım kullanın. Değişikliğin onayını da sordururuz sorun yok

 

[BengeldimM]

İlginiz için teşekkürler. Örnek dosyam ekte

İndir excel

Dosyayı indir excel

dosya.co

 

[BengeldimM]

Yardımcı olabilecek bir arkadaş var mı acaba?

 

[hmtstc]

hocam bu fiyat bilgilerinin olduğu dosyaları tek dosya yapmak işinize gelmez mi? gerek var mı 3 5 bilgi için 1 excel arşivlemeye ?
öneri olarak soruyorum ?

bir de P35 değil E34-35-36-37 de geçiyor bilgiler, teyit eder misiniz ?

 

[hmtstc]

Hocam mevcut sayfa yapısı ile verileri getirmek her excel için hem yüklü veri trafiği hem de fazla excel dosyaları demek. P34-P35 erine P2-R2-S2 şeklinde yaparsak daha doğru olur. ama yine söylüyorum, daha kolay yönetilebilir bir tablo için bu detay dosyaların tek dosyada birleşmesi daha kolay olabilir. yine de karar sizin.

 

[BengeldimM]

Bu örnek dosyalar en sade şekilde olsun diye böyle koyduğum dosyalar. normalde çok daha dolu. Ben sadece yapmak istediğimi daha sade gösterebileyim diye bu şekilde sadeleştirdim. Ayrıca malesef her ürüne bir dosya olmak zorunda. Ben soruyu sorarken yanlış sormuşum doğru diyorsunuz bizim bilgileri alacağımız hücreler E sütununda

 

[hmtstc]

merhaba,

linkteki dosya işini görüyor. ben bir buton ile çözdüm bunu. maalesef bilgi eksikliğimden dolayı otomatik doldurmayı yapamadım. ama burda yardım eden olursa ben de öğrenir yardımcı olurum.

Aşağıdaki kodu kullandığımda A5 e bir değer girip entere bastığımda A5 e göre hareket etmesi gerekirken A6 ya göre hareket ediyor. yani bir alt satıra geçiyor. bunu nasıl çözebiliriz ?

Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim KeyCells As Range

' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("A1:A1000000")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

Call calistir

End If
End Sub

maliyet.xlsm dosyasını indir - download

maliyet.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

istemiş olduğunuz dosyayı da linkten indirebilirsiniz.
Maliyetler ve bu diğer excel dosyaları aynı klasörde olduğu düşünülmüştür.
klasörler farklıysa yol tanımlamak gerekir.

iyi günler

 

[Haluk]

Alternatif dosya ektedir...

.

 

[BengeldimM]

Çok teşekkür ederim. Yarın iş yerindeki dosyalarla deneyip sonucu yazacağım. Ellerinize sağlık.

 

[BengeldimM]

hmtstc çok teşekkür ederim. emekleriniz için teşekkürler. eğer eski bilgileri silersem yenileri üzerine yazıyor. silmemişsem üzerine yazmıyor. ayrıca her kod için tek tek seçip düğmeye basmam gerekiyor. çok pratik değil maalesef. Haluk bey Altın üye olmadığım için dosyayı indiremiyorum. Başka bir yerden gönderme imkanınız var mı?

 

[hmtstc]

dosya açılmayacak hocam, mesela bir satıra kod girdiniz, mesela A5 e yazdınız, a5 i mouse ile seçip sonra butona basın.

 

[BengeldimM]

dosya açılmayacak hocam, mesela bir satıra kod girdiniz, mesela A5 e yazdınız, a5 i mouse ile seçip sonra butona basın.

Cevabımı düzenledim. dediğiniz gibi çalışıyor evet.

 

[Haluk]

Dosyanız...

Test.rar

drive.google.com

.

 

[BengeldimM]

İkinize de ayrı ayrı teşekkür ederim. Çok büyük bir dertten kurtardınız. Allah sizden razı olsun.

 

[BengeldimM]

Başınızı ağrıtmazsam son bir soru; Yarın bir gün bu dosyalar aynı yerde çalışmazsa ihtimaline karşı, mesela veriyi çekeceği
klasörün adresi ; D:\murat\maliyet hesaplamaları klasörü olsa kodda nasıl bir değişiklik yapmam gerekir?

 

[Haluk]

Excel dosyasını, verilerin alınacağı klasöre yerleştirip çalıştırmanız yeterli ....

.

 

[BengeldimM]

Tekrar tekrar teşekkürler.