Hücre İçeriğindeki Veriye Göre Satırları Seçme

[zehirlee]

Merhaba değerli arkadaşlar,

Aradım ama bununla alakalı bir konuya rastlamadım. Sorum şu olacak,

*Bir çalışma sayfasında verilerim var. Örneğin B sütununda ahmet, mehmet, hasan, hüseyin gibi alt alta birçok benzersiz verilerim var. (benzerli olması önemli değil bunu veri doğrulama ile liste kısmından manuel seçeceğim. Benim istediğim şu ben bu verileri seçtiğimde otomatik o verilerin olduğu satırları seçmesi. Ben max. 2 veri doğrulama seçeceğim. Kısaca her iki seçimi yaptıktan sonra bana bu 2 satırı seçmesi. Bunu yapabilirmiyiz ?

Şimdiden teşekkür ederim.

 

[tugkan]

Merhaba,
Bu istediğiniz işlemi gerçekleştirmek için Excel VBA makrolarını kullanabiliriz. Makro, seçtiğiniz iki farklı veri doğrulama seçeneğini kontrol eder ve bu değerlere sahip satırları otomatik olarak seçer. Aşağıdaki adımları izleyerek bu işlemi gerçekleştirebilirsiniz:

1. Hazırlık
Öncelikle veri doğrulama işlemini çalışma sayfasında gerçekleştirin. Diyelim ki veri doğrulama seçiminiz için hücreler D1 ve D2 hücrelerinde bulunuyor ve B sütununda bulunan veriler üzerinde işlem yapacağız.

2. VBA Kodları

1. Excel’de Alt + F11 tuşlarına basarak VBA editörünü açın.
2. Sol taraftaki proje penceresinden bu çalışmanın olduğu sayfayı seçin ve aşağıdaki kodları yapıştırın:

Sub SatirlariSec()
    Dim ws As Worksheet
    Dim sonSatir As Long
    Dim ilkSecim As String
    Dim ikinciSecim As String
    Dim rng As Range
    Dim secimRng As Range

    ' Çalışma sayfasını ve son satırı belirle
    Set ws = ThisWorkbook.Sheets("Sayfa1") ' Çalışma sayfasının adını buraya yazın
    sonSatir = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' Seçilen değerleri belirle
    ilkSecim = ws.Range("D1").Value
    ikinciSecim = ws.Range("D2").Value
    
    ' B sütunundaki verilerde ilk ve ikinci seçimi arayın
    For Each rng In ws.Range("B2:B" & sonSatir)
        If rng.Value = ilkSecim Or rng.Value = ikinciSecim Then
            If secimRng Is Nothing Then
                Set secimRng = rng
            Else
                Set secimRng = Union(secimRng, rng)
            End If
        End If
    Next rng
    
    ' Seçimlerin olduğu satırları seç
    If Not secimRng Is Nothing Then
        secimRng.EntireRow.Select
    Else
        MsgBox "Seçilen değerler bulunamadı!", vbExclamation
    End If
End Sub

3.Çalışma sayfanızın adını ThisWorkbook.Sheets("Sayfa1") kısmına kendi sayfa adınıza göre güncelleyebilirsiniz.
4.Kodları yapıştırdıktan sonra Alt + Q ile VBA editöründen çıkın.
3. Makroyu Çalıştırma

• Alt + F8 tuşlarına basarak SatirlariSec makrosunu çalıştırın. Bu makro, D1 ve D2 hücrelerinde seçtiğiniz değerlere göre B sütunundaki satırları bulacak ve ilgili satırları otomatik olarak seçecektir.

Artık veri doğrulama hücrelerinize (D1 ve D2) iki farklı değer seçtiğinizde, makroyu çalıştırarak seçtiğiniz değerlere sahip satırları kolayca bulabilirsiniz.

 

[zehirlee]

Çok teşekkür ederim @tugkan hocam.

 

[tugkan]

Rica ederim iyi çalışmalar