Farklı klasördeki kapalıdan veri almak

Believing

Kısa Açıklama

Farklı klasördeki kapalıdan veri almak isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Sayın Uzman arkadaşlar,

Uzman arkadaşların çok değerli desteği ile aynı klasördeki kapalı çalışma kitabından veri alıyordum.
Maalesef KVKK sebebiyle çalışma kitaplarını farklı klasörlere almak zorunda kaldım.
Kapalı kitabın yolu "C:\Users\Believing\Desktop\YENI PROGRAM\MAIN_CONTROL\Database_PERSONEL_LİSTESİ.xlsx" şeklindedir.
Yeni oluşan duruma göre, "H2" hücresindeki seçime göre farklı klasördeki kapalı kitaptan verileri alabilmek için mevcut kodu nasıl revize etmeliyim?

Saygılarımla,
 
Dosya Oluşturup Ek Olarak Mail Göndermek
Web Sitesinden Dinamik Veri Alma

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
@Believing hocam,

Dosya = ThisWorkbook.Path & "\Database_PERSONEL_LİSTESİ.xlsx"

üstteki yolu, aşağıdaki gibi değiştirirseniz belirttiğiniz klasörden verileri alacaktır.

Dosya = "C:\Users\Believing\Desktop\YENI PROGRAM\MAIN_CONTROL\" & Sayfa2.Range("H2") & ".xlsx"
 
Oyla 0 Olumsuz oyla
Admin' Alıntı:
@Believing hocam,

Dosya = ThisWorkbook.Path & "\Database_PERSONEL_LİSTESİ.xlsx"

üstteki yolu, aşağıdaki gibi değiştirirseniz belirttiğiniz klasörden verileri alacaktır.

Dosya = "C:\Users\Believing\Desktop\YENI PROGRAM\MAIN_CONTROL\" & Sayfa2.Range("H2") & ".xlsx"
Genişletmek için tıklayın ...
Günaydın Sayın Admin,

Öncelikle yardımınız için size çok teşekkür ederim.
Dosya yolunu aşağıdaki gibi yaptığımda verilerin tamamını alıyor.
Dosya = "C:\Users\Believing\Desktop\YENI PROGRAM\MAIN_CONTROL\Database_PERSONEL_LİSTESİ.xlsx"
"H2" hücresi seçimine göre "C" sütununa gelen bilgileri filtre ederek almasını nasıl sağlayabilirim?
Listenin tamamının KVKK sebebiyle görünmemesi gereklidir.

Saygılarımla,
 
Oyla 0 Olumsuz oyla
Soruda biraz karışıklık var ya da ben tam anlayamadım.

"C:\Users\Believing\Desktop\YENI PROGRAM\MAIN_CONTROL\"
Üstteki kısım klasörün olduğu yol sabit mi kalacak?

Database_PERSONEL_LİSTESİ.xlsx
Bu dosya adı sabit mi kalacak?

H2 hücresindeki alan ne ile eşleşecek?

Bana bu detayı iletirseniz kodları revize edeyim.
 
Oyla 0 Olumsuz oyla
Sayın Admin,

"H2" hücresindeki seçime ait veri, kapalı kitabın "I3:I" aralığındaki verilerinden oluşmaktadır.
"H2" den seçim yapılınca "I3:I" aralığındaki verileri ait bilgileri filtre ederek almasını sağlamalıyız.
KVKK sebebiyle farklı departmanlara ait verilerin listelenmemesi gereklidir.

Saygılarımla,
 
Oyla 0 Olumsuz oyla
Anladığım kadarıyla YOL ve KİTAP isimlerinde bir değişme olmayacak, H2 hücresindeki ise BÖLÜM kriteri.
MAIN_CONTROL.xlsm isimli dosyanın, Module1 içindeki kodları aşağıdaki gibi değiştirebilirsiniz.

[REACTS=1,2]
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(54 satır)
[/REACTS]

Bir de naçizane önerim, kodları sanırım başka bir siteden arkadaş yazmış. Eğer kodlarınıza On Error Resume Next eklerseniz, olası hataları yakalayamazsınız.
Ben bu yüzden ilgili kod satırını pasif ettim, size de böyle kullanmanızı tavsiye ederim.
Yok derseniz, o kod satırının başındaki ' işaretini kaldırmanız yeterli olur.

Selamlar,
 
Oyla 0 Olumsuz oyla
Sayın Admim,

Tavsiyeleriniz benim için önemli.
Evet kodlar alıntı olup, bir kısmını Sn. Ömer bey revize etmiştir.
Aşağıdaki dosya yolu değişmeyecektir.
Dosya = "C:\Users\Believing\Desktop\YENI PROGRAM\MAIN_CONTROL\" & Sayfa2.Range("H2") & ".xlsx"
Sadece "H2" hücresine göre "I3:I" aralığındaki veriler filtre edilerek alınacaktır.
Yukarıda revize ettiğiniz 6. konudaki kodları yapıştırınca aşağıdaki alan kırmızı renkli olmaktadır.

Saygılarımla,

Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)





 
Oyla 0 Olumsuz oyla
Dosya = "C:\Users\Believing\Desktop\YENI PROGRAM\MAIN_CONTROL\" & Sayfa2.Range("H2") & ".xlsx"

Bu satırdaki & Sayfa2.Range("H2") & yerine Database_PERSONEL_LİSTESİ yazın.

Ben ilk olarak H2 hücresindeki alanın dosya adı olduğunu sandığım için öyle yazmıştım.
Dosya adı sabitse, ilk mesajımı dikkate almayınız.
 
Oyla 0 Olumsuz oyla
Sayın Admin,

Dosya = "C:\Users\Believing\Desktop\YENI PROGRAM\MAIN_CONTROL\Database_PERSONEL_LİSTESİ.xlsx"
Şeklinde kodu revize ederek listeni tamamını filtre etmeden verileri alabiliyorum.
KVKK nedeniyle kapalıdaki verilerin tamamını değil "H2" ye yazdığım departmana (Koşula) ait verileri kapalı kitaptan ("I3;I" aralığından) "filtre ederek almak istiyorum.

Saygılarımla,
 
Oyla 0 Olumsuz oyla
Sayın Admin,

Sonunda hatamı buldum. Size çok zahmet verdim.
Ellerinize ve emeğinize sağlık, ALLAH sizden, sevdiklerinizden ve sebep olanlardan razı olsun.
Hakkınızı helal ediniz lütfen.

Saygılarımla,
 
Oyla 0 Olumsuz oyla
Estağfurullah, Allah sizlerden de razı olsun.

Kapalı dosyalarda işlem yapacaksanız, en temizi verileri 1. satırda başlık olacak şekilde muhafaza etmek.
Eğer 1. satırda sırf görsellik için boşluk bırakıyorsanız, bunu çok fazla tavsiye etmem.
Aklımdayken geri bildirim olarakta yazayım dedim.

Selamlar, saygılar.
 
Oyla 0 Olumsuz oyla
Sayın Admin,

Bütün departmanlara ait isimleri 1'er kişi eksik olarak listeleniyor.
DATA_PERSONEL isimli sayfanın ilk satırını manuel olarak yazacağım başlık olarak kullanmak istiyorum.
Verileri kapalı sayfadan 3. satırdan itibaren alınmalıdır.
DATA_PERSONEL isimli sayfanın biçimleri korunmalıdır.
Eğer mümkünse isme göre alfabetik sıralamak mümkün müdür?

Saygılarımla,
 
Oyla 0 Olumsuz oyla
S = "select * from [Sheet$A2:CH2999] WHERE F9 = '" & Sayfa2.Range("H2").Value & "' ORDER BY F2, F3"

Üstteki kısımda bulunan A2 kısmını A3 yapmanız yeterli olur.
Eğer verileriniz 2999 satırdan fazlaya ulaşırsa, CH2999 kısmını da arttırmanız gerekir.
 
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