Farklı klasördeki kapalıdan veri almak

@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"

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,

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.

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,

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] [/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,

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,

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.

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,

Soru - Farklı klasördeki kapalıdan veri almak linkinde verdiğim kodlar tam istediğinizi yapmakta hocam.





Sonuçlar doğru mudur?

Sayın Admin,

Neyi yanlış yaptığımı bulamıyorum,
Uyguladığını örnek çalışmaları yükleyebilir misiniz?

Saygılarımla,

Revize ettiğim dosya ek'tedir sayın @Believing .

İşlem tamam mıdır @Believing ?

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,

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.

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,

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.