search and display names

[HeRoseInThree]

My company hires few people, yet many apply. That being said, I would like to sort through the list of applicants to determine if they have previously applied as to not waste time on someone that we have chosen not to hire.

I'd like to search their name in a cell (k12) and have it display a cell is the reason we passed.

I have tried a vlookup formula, an index formula as well as find and search respectfully.

Any help would be greatly appreciated!

 

[DanteAmor]

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Address(0, 0) = "H1" Then
    Range("H2:J" & Rows.Count).ClearContents
    If Target.Value = "" Then Exit Sub
    Dim a() As Variant, b As Variant, i As Long, n As Long
    a = Range("A1:C" & Range("B" & Rows.Count).End(xlUp).Row).Value
    ReDim b(1 To UBound(a, 1), 1 To 3)
    n = 1
    For i = 1 To UBound(a)
      If InStr(1, LCase(a(i, 2)), LCase(Target.Value)) > 0 Then
        b(n, 1) = a(i, 1)
        b(n, 2) = a(i, 2)
        b(n, 3) = a(i, 3)
        n = n + 1
      End If
    Next
    Range("H2").Resize(UBound(b), 3).Value = b
  End If
End Sub

 

[HeRoseInThree]

It doesn't display the date that is in column A.

 

[DanteAmor]

varios 17mar2020.xlsm
	A	B	C	D	E	F	G	H	I	J
1	DATE	NAME	TEXT					dam
2	01-mar	jo	1					05/03/2020	dam	5
3	02-mar	jo	2					06/03/2020	dam	6
4	03-mar	jo	3					07/03/2020	dam	7
5	04-mar	jo	4					08/03/2020	dam	8
6	05-mar	dam	5
7	06-mar	dam	6
8	07-mar	dam	7
9	08-mar	dam	8
10	09-mar	dan	9
11	10-mar	dan	10
12	11-mar	dan	11
Hoja4

With that data sample it works.
You write the name in H1 and the data is copied to H2, I2, J2 and down.

You can put your data sample here and also tell what data you are putting in cell H1.

Lastly, did you modify any of the macro?
Did you copy the complete macro?

 

[HeRoseInThree]

I did not modify and I did copy the complete information.

the date doesn't show up.

 

[DanteAmor]

You can put the macro you are using here.
Your images are not complete, I do not see the excel rows.
You could try with the data that I am putting of sample.

 

[HeRoseInThree]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address(0, 0) = "H1" Then
Range("H2:J" & Rows.Count).ClearContents
If Target.Value = "" Then Exit Sub
Dim a() As Variant, b As Variant, i As Long, n As Long
a = Range("A1:C" & Range("B" & Rows.Count).End(xlUp).Row).Value
ReDim b(1 To UBound(a, 1), 1 To 3)
n = 1
For i = 1 To UBound(a)
If InStr(1, LCase(a(i, 2)), LCase(Target.Value)) > 0 Then
b(n, 1) = a(i, 1)
b(n, 2) = a(i, 2)
b(n, 3) = a(i, 3)
n = n + 1
End If
Next
Range("H2").Resize(UBound(b), 3).Value = b
End If
End Sub

 

[DanteAmor]

You replaced the old macro with this new one.
You put the new macro in the sheet events where you want this to happen.
In fact, first delete the old macro and make sure to put the new macro in.

 

[HeRoseInThree]

I right clicked and pasted it. Once I re-read the directions and followed them, it worked quite well.

THANKS for your help!!!

 

[DanteAmor]

Again with pleasure. Thanks for the feedback