Aynı dosya uzantısından otomatik veri alma

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

selis

Kullanıcı
Katılım
17 Mar 2021
Mesajlar
721
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(39 satır)

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.
 
Çoklu Çalışma Sayfalarını PDF Olarak Kaydetme
Excel tavlama benzetimi kod ile
Tarihe göre sırala Oylamaya göre sırala
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(34 satır)

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
12 sütun sayısı.
Kodu başka belgeler için de kullanacaksanız 12 sayısını, sütun adeti kaçsa ona göre değiştirirsiniz.
 
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: 
İndirmek için giriş yapmanız gerekmektedir.
(35 satır)

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.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(37 satır)
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt