Using Excel To Generate A List Of Names From Data In Multiple Sheets

[Trevor_McKay]

Hi Everyone,

New guy here but am hoping one of you mastermind could help me out. I'm a new sales guy for a recruiting company and right now I'm filling daily excel sheets with the people I've reached out to and I want to make an automatic sheet of the names I've tried called but couldn't connect to and want to follow up over LinkedIn. Right now I've made a numeric code to outline if I called them and connected, using a very simple method. and have now made an If statement that identifies weather or not I need to send them a LinkedIn connection, but want I want is for every person that has received the designation of needing to be connected, to appear in a single sheet in a single list with their names. I've posted a picture below with my current sheet details and the IF statement i used is this:

"IF(C2=1,"No","Yes")

Let me know if you need more details or a better description and I could download the addon thing so you have access to my sheets!

 

[AhoyNC]

Instead of Daily sheets maybe put it all on one sheet and add a Date column.
Then put the data into an Excel table. Then as you add new names the data will automatically fill in the sheet of names to contact.
See example below.

Sheet with names to contact

Book2
	A
1	Name to Contact
2	Craig Hubley
3	Angela Williams
4	Kabir Sarda
5	Carolene Cruder
6	Jenny Chan
7	Scott Boston
8	Juliane Johansen
9	Patrick Amantea
10	Cobus Van De Venter
Sheet2

Cell Formulas
Range	Formula
A2:A10	A2	=FILTER(Table1[Name],Table1[Contacted]="")
Dynamic array formulas.

Data sheet

Book2
	A	B	C	D	E	F	G	H
1	pH + E + ln	Contacted	Tl?	In-House?	ln JS?	Name	Need to Send Linkedin Connection?	Date
2	E	1				Richard Goulet	No	3/26/2023
3	IN	1				Imran Punjani	No	3/26/2023
4	E	1				Reema Gokhru	No	3/26/2023
5	PH+E					Craig Hubley	Yes	3/26/2023
6	PH+E					Angela Williams	Yes	3/26/2023
7	PH+E					Kabir Sarda	Yes	3/26/2023
8	pH	1	1			Janell Priddey	No	3/26/2023
9	PH+E	1	1			Michael Pack	No	3/26/2023
10	PH+E					Carolene Cruder	Yes	3/27/2023
11	PH+E	1	1			Braydin Brosseau	No	3/27/2023
12	PH+E					Jenny Chan	Yes	3/27/2023
13	PH+E					Scott Boston	Yes	3/27/2023
14	IN					Juliane Johansen	Yes	3/27/2023
15	PH+E					Patrick Amantea	Yes	3/27/2023
16	PH+E					Cobus Van De Venter	Yes	3/27/2023
Sheet1

 

[Logit]

Another method :

Option Explicit

Sub NeedContact()
Dim rFind         As Range
Dim sAdr          As String

  With Sheets("Sheet1").Range("H2:H1000")
    .Select
    Set rFind = .Find(What:="Yes", _
                       After:=.Cells(.Cells.Count), _
                       LookIn:=xlValues, _
                       LookAt:=xlWhole, _
                       SearchOrder:=xlNext, _
                       MatchCase:=True)
    If Not rFind Is Nothing Then
      sAdr = rFind.Address
      Do
        Sheets("Need Contact").Cells(Rows.Count, "A").End(xlUp)(2).Value = rFind.Offset(, -1).Value2
        Set rFind = .FindNext(rFind)
      Loop While rFind.Address <> sAdr
    End If
  End With
  Sheets("Need Contact").Range("A1") = "Names"
   Sheets("Sheet1").Range("A1").Select
End Sub