Açık Dosyaya 2 Kapalı Dosyadan Veri Arama/Aktarma,

[gicimi]

Merhaba;

1.Kapalı Dosya,
Desktop\Rapor\Data\Ocak\01.01.2019.xls
Desktop\Rapor\Data\02.01.2019.xls
Desktop\Rapor\Data\03.01.2019.xls
2.Kapalı Dosya,
Desktop\Rapor\Siparis\Ocak2019.xlsx

Açık dosya,
Desktop\Rapor\Test.xlsm

Siparis Kapalı Dosyasında,

A1= Malzeme No Sütunundaki değerleri " Siparis\Ocak Klasörünün içerisindeki "Ocak2019"dosyasında aramasını bulması durumunda,

Referans tarih - C
Sipariş - G
Türü - I
Tanım - L
Bölge - O sütunlarına ait değerleri aktarmasını.

Data\Ocak\ ... dosyalarında ise,


A= Malzeme No Sütunundaki değerleri
Data\Ocak klasörünün içerisindeki Tarih dosyasına göre A sütünunda aramasını ve bulması durumda B sütununda veri var ise,
Test sayfasında bulunan ilgili tarih sütununlarına "1" yazmasını yok ise " " boş bırakmasını istiyorum.



Umarım yapmak istediğimi aktarabilmişimdir. Siz değerli forum üyelerin desteklerini rica ediyorum. Şimdiden destekleriniz için teşekkür ederim. İyi Çalışmalar.

 

[MrExcelMr]

Selamlar,
Excelde böyle şeyler yapılabilirmi. Çok şaşırdım.

 

[gicimi]

@MrExcelMr merhaba;
Evet yapılabiliyor. Üstadlardan yardım bekliyorum. Konuyu takip edebilirsiniz. Cevaplanması sonrasında inceleyebilir siniz.

 

[Haluk]

@gicimi ;

İşin "\Rapor\Siparis\Ocak2019.xlsx" kısmıyla ilgili olarak, ekli dosyayı inceleyebilirsiniz...

.

 

[seckinb]

İlgi çekici bir başlık.

Bu excel dosyaları sabit bir alt klasör yerine
Tüm alt klasörleri tarama gibi bir özellik var mı?

dataWB = ThisWorkbook.Path & "\Rapor\Siparis\Ocak2019.xlsx"

yerine


0001_bla bla
0002_bla bla bla random

diye ilerleyen klasörler var.
bu klasörlerin içindeki excel dosyasından veri almam gerekiyor.

For i = 1 To 10
    For ii = 0 To 6
        Me.Controls("cmbTX" & i).AddItem eskitedavi(ii)
    Next
Next

bunun gibi bir "variable" nasıl hazırlarım?

 

[gicimi]

@Haluk Abi eline sağlık.