Belirli Koşula Uyan Satırları Seçme

Belirli Koşula Uyan Satırları Seçme, verilen kritere uyan tüm satırların nasıl seçileceğini öğreten bir Hazır Makro Kodu içermektedir.

Hazır Kod: Belirli Koşula Uyan Satırları Seçme

Sub SatirSecme()

    Dim sonSatir As Long
    Dim i As Long
    Dim kriter As String
    Dim secimAraligi As Range
 
    kriter = "Ali"
 
    sonSatir = Cells(Rows.Count, 1).End(xlUp).Row
 
    For i = 1 To sonSatir
        If Cells(i, 1).Value = kriter Then
            If secimAraligi Is Nothing Then
                Set secimAraligi = Rows(i)
            Else
                Set secimAraligi = Union(secimAraligi, Rows(i))
            End If
        End If
    Next i
 
    If Not secimAraligi Is Nothing Then
        secimAraligi.Select
    Else
        MsgBox "Belirtilen kritere uyan satır bulunamadı."
    End If

End Sub

Açıklama

• kriter = "Ali": Bu satır, belirli bir kritere uyan satırları seçmek için kullanılmaktadı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ı bulmaktadır.
• For i = 1 To sonSatir: Bu döngü, birinci satırdan son satıra kadar olan tüm satırları kontrol etmektedir.
• 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ılmaktadır.
• secimAraligi.Select: Son olarak, kriterle eşleşen satırlar seçilmektedir.

Bu kodu Excel VBA'da kullanarak, belirli bir kritere uyan tüm satırları kolayca seçebilirsiniz. Kriteri, istediğiniz başka bir değere göre değiştirebilirsiniz.

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.

Yararlanılması temennisiyle.