Değişken İsimli Excel Kitabından Veri Çekme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

yunusemre16

Kullanıcı
Katılım
19 Nis 2022
Mesajlar
55
Merhaba,

Elimde bir makro var ve ben bu makro ile ismi değişken excelden veri çekiyorum. Ama çekebildiğim verileri çoğaltmam gerekiyor, elimde ki makro ile sadece 2 sütundaki verileri çekebiliyorum. Örnek excelde de görebileceğiniz gibi, sadece Tam ve Öğrenci sütunlarına verileri çekebiliyorum, Halk Günü, Davetli, Haftanın Filmi sütunlarına da veri çekebilmem gerekmektedir. Yardımcı olursanız çok sevinirim.


Excelde kullanılan makro;
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(54 satır)
 

Ekli dosyalar

Çözüm
Hocam tekrardan merhabalar,
İstediğiniz dosyaları ekledim. Bazı günler Halk Günü , Davetli , Haftanın Filmi gibi seçenekler olmuyor. O yüzden 2 rapor olarak attım


Merhaba, kendi kodlarınız da "Scripting.Dictionary" kullanılmış ben bu kod yapısını bilmediğim için aşağıdaki kodda görüldüğü gibi ADO döngü kodu kullanarak çözüme ulaştım.

Mevcut kodun yerine aşağıdaki kodu kullanarak test yapınız.



VBA:
İndirmek için giriş yapmanız gerekmektedir.
(9 satır)
Sanırım sadece
Kod:
İndirmek için giriş yapmanız gerekmektedir.
(2 satır)
bu alanda değişiklik yapılması gerekmekte, ama ben malesef yapamadım.
 
Merhaba Feyzullah Hocam, ilginize çok teşekkür ederim. Bir kaç gündür işlerimin yoğunlugundan dolayı giremedim siteye, cevabınızı yeni görüyorum kusura bakmayın.
Cevabınız için de ayriyeten çok teşekkür ederim ama malesef, makroyu çalıştırdığımda aşağıdaki yerde hata alıyorum
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
verdiğiniz düzenleme ile makroyu şu şekilde yazdım;

SQL:
İndirmek için giriş yapmanız gerekmektedir.
(54 satır)
 
Kasa raporu dosyasındaki alan başlıklarının kontrol edilmesinde yarar var. İsimler doğrumu, kaçıncı satırda, nokta virgül vs. karakterler var mı? Vermiş olduğunuz bilgilere göre yazılması gerekeni söyledim. Kasa raporu dosyanızı eklemelisiniz yadadediğim gibi 5.satırda bahsettiğiniz alan başlıklarını kontrol edin.
 
Kasa raporu dosyasındaki alan başlıklarının kontrol edilmesinde yarar var. İsimler doğrumu, kaçıncı satırda, nokta virgül vs. karakterler var mı? Vermiş olduğunuz bilgilere göre yazılması gerekeni söyledim. Kasa raporu dosyanızı eklemelisiniz yadadediğim gibi 5.satırda bahsettiğiniz alan başlıklarını kontrol edin.
Hocam tekrardan merhabalar,


İstediğiniz dosyaları ekledim. Bazı günler Halk Günü , Davetli , Haftanın Filmi gibi seçenekler olmuyor. O yüzden 2 rapor olarak attım
 

Ekli dosyalar

Hocam tekrardan merhabalar,
İstediğiniz dosyaları ekledim. Bazı günler Halk Günü , Davetli , Haftanın Filmi gibi seçenekler olmuyor. O yüzden 2 rapor olarak attım


Merhaba, kendi kodlarınız da "Scripting.Dictionary" kullanılmış ben bu kod yapısını bilmediğim için aşağıdaki kodda görüldüğü gibi ADO döngü kodu kullanarak çözüme ulaştım.

Mevcut kodun yerine aşağıdaki kodu kullanarak test yapınız.



VBA:
İndirmek için giriş yapmanız gerekmektedir.
(37 satır)
 
Çözüm
Hocam, çok ama çok teşekkür ederim. Allah razı olsun. Yine yetiştiniz yardımıma her zaman ki gibi. Yine bir sorum daha olacak. Lütfen kusura bakmayın.

Kullanıcı - Öğrenci - Tam - Halk Günü - Davetli - Haftanın Filmi seçeneklerini

sat = 3: Range("H3").Resize(1, 6) = Array("Kullanıcı", "Öğrenci", "Tam", "Halk Günü", "Davetli", "Haftanın Filmi") bu koddaki H3 yerine A1 yaparak taşıyabildim.

Ama Kullanıcı isimlerini ve Adetleri malesef taşıyamadım. H,4 I4 , J4 , K4 , L4 , M4 hücrelerine yazılıyor malesef. Bunları A2, B2, C2, D2, E2, F2 hücrelerine taşımam mümkünmüdür acaba. Eğer taşıyamazsam da çok büyük bir sorun olmaz benim için. Sadece hangi kodu değişeceğimi merak ettiğim için soruyorum.

Tekrardan size çok teşekkür ederim. Yardımlarınız için
 
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(5 satır)
9,10,11,12,13 yazanları 2,3,4,5,6 diye düzeltin. Bunlar sütun numarası oluyor. A sütünü 1.sütün, B sütünu 2.sütun bu şekilde.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt