Belirli Koşula Uyan Satırları Seçme isimli içerikte, verilen kritere uyan tüm satırların nasıl seçileceğini öğreten bir Hazır Makro Kodu yer almaktadır.
Üstteki gibi basit bir tablo oluşturun ve kodu çalıştırın.
Sonuç yukarıdaki gibi olacaktır.
Hazır Kod
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(28 satır)Açıklama
- kriter = "Ali": Bu satır, belirli bir kritere uyan satırları seçmek için kullanılır. Bu örnekte, "Ali" ismini içeren satırlar seçilecektir.
- sonSatir = Cells(Rows.Count, 1).End(xlUp).Row: Bu satır, A sütunundaki son dolu satırın numarasını bulur.
- For i = 1 To sonSatir: Bu döngü, birinci satırdan son satıra kadar olan tüm satırları kontrol eder.
- If Cells(i, 1).Value = kriter Then: A sütunundaki hücre değeri kriterle eşleşiyorsa, satır seçilecektir.
- Union(secimAraligi, Rows(i)): Bu ifade, belirli bir kriterle eşleşen tüm satırları seçmek için kullanılır.
- secimAraligi.Select: Son olarak, kriterle eşleşen satırlar seçilir.
Kullanım
Bir modül ekleyin ve yukarıdaki kodu yapıştırın.Üstteki gibi basit bir tablo oluşturun ve kodu çalıştırın.
Sonuç yukarıdaki gibi olacaktır.
