Dosya adına göre veri çekme

[vincevince]

Merhaba arkadaşlar ekteki dosyalarla bir işlem yapmak istiyorum.

Elimde İLLER adında tüm bilgilerin bulunduğu bir adet kaynak dosyam ve daha sonra burdaki illere ait hazır boş bir şablonum olan tek tek illerin olduğu dosyalar oluşturacağım.

Örnek olarak;

İSTANBUL.xls adında bir dosya oluşturduğumda bu dosyanın içerisindeki tablodaki boş yerlere İLLER.xls dosyasındaki GÖREV YERİ İSTANBUL olan kişilerin bilgilerinin otomatik olarak İSTANBUL.XLS tablosuna gelmesi.

Bu şekilde diğer illere aitte dosya oluşturacağım . Ankara , İzmir gibi.
Dosya ismine bakarak otomatik olarak bu bilgileri İLLER dosyasından çekmem mümkün mü?

Yada dosya isminden çekmek zor olursa ben bunu dosya içerisindeki bir yere kendim tek tek yazarakta çekebilirim.

 

[asi_kral]

Merhaba
Bu yapılabilir ancak bir sorum var.
Bu dosyaların hepsi aynı klasör içinde mi olacak_?
Örneğin D:\iller
Böyle mi olacak. İller.xls ve diğerleri yoksa İller.xls bir yerde diğer xlsler başka bir yerde mi olacak_?
Bu şekilde olacaksa bu dosyaların bulunduğu klasör dizinin bilgisini verirseniz kodu yazıp göndereceğim.

 

[vincevince]

Merhaba
Bu yapılabilir ancak bir sorum var.
Bu dosyaların hepsi aynı klasör içinde mi olacak_?
Örneğin D:\iller
Böyle mi olacak. İller.xls ve diğerleri yoksa İller.xls bir yerde diğer xlsler başka bir yerde mi olacak_?
Bu şekilde olacaksa bu dosyaların bulunduğu klasör dizinin bilgisini verirseniz kodu yazıp göndereceğim.

dosyalar herhangi bir yerde olabilir dostum.
Sadece ben kullanmayacağım serverda paylaşıma atacağım. yani dosyanın bulunduğu sürücü klasör yolu sürekli değişebilir. Eğer ona bağlı olmadan yapabilirsek çok iyi olur.

Eğer illaki sabit bir dizinde olması gerekiyorsa şayet sen E:\ şeklinde yapabilirsen ben sonra ilgili kısmı değiştirebilirim.

Şimdiden teşekkür ederim.

 

[Merhum İdris SERDAR]

Merhaba arkadaşlar ekteki dosyalarla bir işlem yapmak istiyorum.

Elimde İLLER adında tüm bilgilerin bulunduğu bir adet kaynak dosyam ve daha sonra burdaki illere ait hazır boş bir şablonum olan tek tek illerin olduğu dosyalar oluşturacağım.

Örnek olarak;

İSTANBUL.xls adında bir dosya oluşturduğumda bu dosyanın içerisindeki tablodaki boş yerlere İLLER.xls dosyasındaki GÖREV YERİ İSTANBUL olan kişilerin bilgilerinin otomatik olarak İSTANBUL.XLS tablosuna gelmesi.

Bu şekilde diğer illere aitte dosya oluşturacağım . Ankara , İzmir gibi.
Dosya ismine bakarak otomatik olarak bu bilgileri İLLER dosyasından çekmem mümkün mü?

Yada dosya isminden çekmek zor olursa ben bunu dosya içerisindeki bir yere kendim tek tek yazarakta çekebilirim.

.

Dosyanız ekte.

Konu için bakınız:

ÖZET TABLOLAR (PİVOT TABLE)


.

 

[BY1907]

Bende benzer bir tablo oluşturmaya çalışıyorum.
Bu işlemin makro yaratmadan yapılması mümkün mü?

 

[vincevince]

@yurttas

dostum teşekkür ederim attığın dosyayı inceledim. Belki tam vakıf olmadığımdan ama kaynak dosyada(İLLER) yaptğım bir değişiklik İL dosyasına yansımıyor otomatik olarak.

Pivot Tablo gerçekten güzel bir özellikmiş öğrendiğim iyi oldu ama benim sistemde çok fazla işime yaramayacak zannedersem. Çünkü şablon benim gönderdiğim gibi olması gerekiyor.

 

[Merhum İdris SERDAR]

@yurttas

dostum teşekkür ederim attığın dosyayı inceledim. Belki tam vakıf olmadığımdan ama kaynak dosyada(İLLER) yaptğım bir değişiklik İL dosyasına yansımıyor otomatik olarak.

Pivot Tablo gerçekten güzel bir özellikmiş öğrendiğim iyi oldu ama benim sistemde çok fazla işime yaramayacak zannedersem. Çünkü şablon benim gönderdiğim gibi olması gerekiyor.

.

Belirttiğim linkteki ilgili konuyu (güncellenen...) incelediniz mi?

Pivot Table'ın olduğu sayfanın kod bölümüne;

Private Sub Worksheet_Activate()
Dim pvt As PivotTable
For Each pvt In ActiveSheet.PivotTables
pvt.PivotCache.Refresh
Next pvt
End Sub

yazın.



.

 

[vincevince]

ok inceliyorum. Pivot Table gerçekten güzel ve bir o kadar da detaylı bir konu teşekkür ederim. Çözmeye çalışacağım.

.

Belirttiğim linkteki ilgili konuyu (güncellenen...) incelediniz mi?

Pivot Table'ın olduğu sayfanın kod bölümüne;

Private Sub Worksheet_Activate()
Dim pvt As PivotTable
For Each pvt In ActiveSheet.PivotTables
pvt.PivotCache.Refresh
Next pvt
End Sub

yazın.



.