select all rows that have identical data in certain column

[karimretina]

Hi,

I use a userform ( ufData) to select all rows that have identical data in certain column ("A") of clients names, this is Based on the change in a combo Box (NameDOBDate) . but unfortunately it displays the first row only .

Private Sub cmbNameDOBDate_Change() 
    Dim IngDataRow As Long 
    IngDataRow = ufdata.cmbNameDOBDate.ListIndex + 2 
    Ttxtbname.Text = Sheets("Archive").Range("AC" & IngDataRow).Value 
    TxtbDOB.text = Sheets("Archive").Range("AD" & IngDataRow).Value  

Thank you in advance