Makro ile Açılır liste

[arrow3441]

Merhaba alttaki gibi kodum var B sütununda verileri AN2 hücresine veri doğrulama listesi yapıyor . Benim yapmak istedim personel sayfasındaki B sütunudaki verileri alırken C sütununda ÇALIŞIYOR olanları listeye eklesin

 ss = ThisWorkbook.Sheets("PERSONEL").Cells(Rows.Count, 1).End(xlUp).Row
    ThisWorkbook.Sheets("ÖZET").Range("AN2").Validation.Delete
    ThisWorkbook.Sheets("ÖZET").Range("AN2").Validation.Add xlValidateList, Formula1:="=PERSONEL!B3:B" & ss

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim syfPersonel As Worksheet
    Dim Bak As Long
    Dim Liste As String

    Set syfPersonel = ThisWorkbook.Sheets("PERSONEL")
  
    For Bak = 3 To syfPersonel.Cells(Rows.Count, "B").End(xlUp).Row
        If syfPersonel.Cells(Bak, "C") = "ÇALIŞIYOR" Then
            If Liste = "" Then
                Liste = syfPersonel.Cells(Bak, "B")
            Else
                Liste = Liste & ", " & syfPersonel.Cells(Bak, "B")
            End If
        End If
    Next

    With ThisWorkbook.Sheets("ÖZET").Range("AN2")
        .Validation.Delete
        .Validation.Add xlValidateList, Formula1:=Liste
    End With
End Sub

 

[arrow3441]

Hocam yine süpersiniz elinize sağlık

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.