Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Sub Colors() Dim cel As Range, celA As Range, rgA As Range, rgC As Range Application.ScreenUpdating = False Set rgA = Range("A1") 'First cell with names in column A 'Set rgA = Range(Sheets("FRBSample").[A2]) 'First cell with names in column A Set rgA = Range(rgA, Cells(Rows.Count, rgA.Column).End(xlUp)) 'Set rgC = Range(Sheets("FATIMA").[A2]) 'First cell with names in column C Set rgC = Range("CH1") Set rgC = Range(rgC, Cells(Rows.Count, rgC.Column).End(xlUp)) For Each cel In rgC.Cells If cel <> "" Then Set celA = Nothing Set celA = rgA.Find(cel, MatchCase:=False, Lookat:=xlWhole) If Not celA Is Nothing Then cel.Interior.ColorIndex = celA.Interior.ColorIndex End If Next Application.ScreenUpdating = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.