Label Nesnesine Şartlı Veri Çekme

Bu dosya, sayfadaki verilerin belirli bir şarta göre UserForm üzerindeki Label nesnelerine aktarılmasını örnekler. Şart olarak A sütununda "BEYAZ" yazan satırlar alınır ve bu satırların C sütunundaki değerleri ilk üç Label nesnesine yazılır.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com sayfası: A1:C15 aralığında veri listesi bulunur. A sütunu şartın kontrol edildiği sütundur, C sütunu Label nesnelerine aktarılacak değerleri içerir. Sayfada formül yoktur.
• UserForm1: Label1, Label2 ve Label3 nesnelerini barındıran form.
• Module1: Formu açan makroyu içerir.

Makrolar​

Dosya makro içerir (.xlsm); açarken makroların etkinleştirilmesi gerekir. Makrolar dosya silme veya dış bağlantı gibi işlem yapmaz.

• form (Module1): UserForm1 formunu açar. Makro, Alt+F8 penceresinden çalıştırılır.
• UserForm_Initialize (UserForm1): Form açılırken 1'den 30'a kadar olan satırları tarar. A sütunu "BEYAZ" olan her satırın C sütunundaki değeri sırayla Label1, Label2 ve Label3 nesnelerinin Caption özelliğine yazar. Üçüncü eşleşmeden sonra döngü sona erer.

Label sayısı arttırılırsa listede şarta uyan ve daha önce nesne bulunmadığı için gösterilemeyen kayıtlar da formda listelenebilir. Bunun için forma yeni Label nesneleri eklenir ve kodda üç ile sınırlayan kontrol değeri buna göre değiştirilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile form makrosunu çalıştırın.
3. Açılan formda A sütunu BEYAZ olan ilk üç kaydın C sütunu değerleri Label nesnelerinde görüntülenir.
4. Farklı bir şart veya daha fazla kayıt için Alt+F11 ile VBA düzenleyicisini açın, UserForm1 kodunda "BEYAZ" ifadesini ve Label sayısını değiştirin.