Aynı Dosya Uzantısından Otomatik Veri Alma

  • Konuyu başlatan Konuyu başlatan selis
  • Başlangıç tarihi Başlangıç tarihi

selis

Kullanıcı
Katkı: %1
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (39 satır). Giriş Yap

Arkadaşlar herkese merhaba, aynı dosya uzantısındaki excelleri ana dosyadaki data sayfasına yapıştırsın altalta istiyorum, ancak bu kod ile ctrl ile seçmem gerekiyor excelleri ben dosya uzantısındaki excelleri otomatik alsın istiyorum, nasıl yapabilirim? Şimdiden teşekkür ederim.
 
Tarihe göre sırala Oylamaya göre sırala
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (34 satır). Giriş Yap

Hocam çok teşekkür ederim, bu konuda farklı olarak bu koda resize(kson-2,12) kısımlarını daha efektif nasıl yapabilirim? Formatta sütun sayısı değişken olduğu için max olarak örneğin A:AA hücresine kadar alsın istiyorum böyle bir şey yapılabilir mi?
 
Oyla 0 Olumsuz oyla
Verinin okunacağı belgede son veri satırının tespiti:
D (sütun no:4) ve F (sütun no: 6) sütunlarına göre kontrol ediliyor
(önceki belgelerden birinde D sütunu tam doluydu, diğerinde F sütunu doluydu o yüzden)
Bunlardan büyük olan hangisiyse ona göre son dolu satır hangisidir kararı verilmiş oluyor.

kson = WorksheetFunction.Max(kitap.ActiveSheet.Cells(Rows.Count, 6).End(3).Row, kitap.ActiveSheet.Cells(Rows.Count, 4).End(3).Row)

kson - 2 >> 2 sayısı verinin okunacağı belgedeki başlık satırı adeti
bu.Cells(busat, 13) >> 13 sayısı verinin okunduğu belgenin adının yazılacağı sütun no (çünkü 12 sütun veri alınıyor, 13'üncüye de bu yazılıyor.
12 sayılarını söylemiştim zaten.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Verinin okunacağı belgede son veri satırının tespiti:
D (sütun no:4) ve F (sütun no: 6) sütunlarına göre kontrol ediliyor
(önceki belgelerden birinde D sütunu tam doluydu, diğerinde F sütunu doluydu o yüzden)
Bunlardan büyük olan hangisiyse ona göre son dolu satır hangisidir kararı verilmiş oluyor.

kson = WorksheetFunction.Max(kitap.ActiveSheet.Cells(Rows.Count, 6).End(3).Row, kitap.ActiveSheet.Cells(Rows.Count, 4).End(3).Row)

kson - 2 >> 2 sayısı verinin okunacağı belgedeki başlık satırı adeti
bu.Cells(busat, 13) >> 13 sayısı verinin okunduğu belgenin adının yazılacağı sütun no (çünkü 12 sütun veri alınıyor, 13'üncüye de bu yazılıyor.
12 sayılarını söylemiştim zaten.
Genişletmek için tıklayın ...
Hocam kodda LİST sayfası değilde aktif sayfa üzerinden kodu calıstırmak istersem ne eklemem gerekir? Çok teşekkür ederim.
 
Oyla 0 Olumsuz oyla
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (35 satır). Giriş Yap

Hocam öncelikle çok uğraştırdım sizi ama kodu yukardaki şekildeki gibi düzenledim, kaç sütun olduğunu bilemediğim için CA ya kadar aldırdım, ancak veriler boş geliyor, sebebi ne olabilir? Teşekkür ederim.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Önce şu UZANTI kelimesini düzeltelim.
Uzantı dosya türünü belirten kısımdır abc.xlsx dosyası xlsx uzantılıdır, abc.txt dosyası txt uzantılıdır ...gibi.
Sonuç olarak anladım ama sizin belirttiğiniz şey uzantı değil, dosyanın bulunduğu KLASÖR/DİZİN/YOL denilebilir.

Her neyse; kod şu haliyle işinizi görür.

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (37 satır). Giriş Yap
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.

Benzer konular Benzer kaynaklar Benzer dosyalar

Geri
Üst