Wednesday, September 7, 2016

[Solution] Can I use conditional formatting across worksheets to indicate if the same name appears in more than one worksheet?

Can I use conditional formatting across worksheets to indicate if the same name appears in more than one worksheet?

I have a excel work book which has three worksheets.
Each sheet contains a different report.
 
I would like to implement a traffic light system that will show me if an individual appears in each report, e.g if Mr Smith is just on one report it he will show green or if he is in all three reports it will show red.
 
Is there a way of doing this? I imediately thought of conditional formatting but not having much luck on getting a rule in place.
 
Can anyone help?

Keys to the Problem Can I use conditional formatting across worksheets to indicate if the same name appears in more than one worksheet?

Download SmartPCFixer for Free Now

My approach would be:
1) Make a Sheet (Sheet4) like screen capture below using subrountine listed below - note that it names a range as NameTable.
You will need to edit the last referecne in the subrountine that names the table.
 
2) Once the macro is run, on each Sheet select the range of names and use Condtional Formatting with formula such as
=VLOOKUP(A1,NameTable,2)=3 , etc
 
Note I have assume the names in the report are in colunm A - easy to fix.
Sample file 19Mar2013.xlsm can be found at
 https://skydrive.live.com/?cid=162119FF97286948&id=162119FF97286948%21823
 
best wishes
 
 
Sub MakeTable()
    Worksheets("Sheet1").Activate
    CopyCell = "A" & 2
    FirstRow = 2
    LastRow1 = Cells(Rows.Count, "A").End(xlUp).Row
    myrange = "A" & FirstRow & ":A" & LastRow1
    Worksheets("Sheet1").Range(myrange).Copy Destination:=Worksheets("Sheet4").Range(CopyCell)
   
    Worksheets("Sheet2").Activate
    CopyCell = "A" & 2 + LastRow1
    FirstRow = 2
    LastRow2 = Cells(Rows.Count, "A").End(xlUp).Row
    myrange = "A" & FirstRow & ":A" & LastRow2
    Worksheets("Sheet2").Range(myrange).Copy Destination:=Worksheets("Sheet4").Range(CopyCell)
   
   
    Worksheets("Sheet3").Activate
    CopyCell = "A" & 2 + LastRow1 + LastRow2
    FirstRow = 2
    LastRow3 = Cells(Rows.Count, "A").End(xlUp).Row
    myrange = "A" & FirstRow & ":A" & LastRow3
    Worksheets("Sheet3").Range(myrange).Copy Destination:=Worksheets("Sheet4").Range(CopyCell)
   
    Worksheets("Sheet4").Activate
    CopyCell = "C" & 2
    FirstRow = 2
    LastRow4 = Cells(Rows.Count, "A").End(xlUp).Row
    myrange = "A" & FirstRow & ":A" & LastRow4
    Debug.Print myrange
    Worksheets("Sheet4").Range(myrange).Copy Destination:=Worksheets("Sheet4").Range(CopyCell)
   
   
    LastRow = Cells(Rows.Count, "C").End(xlUp).Row
    TableRange = "C2:C" & LastRow
    ActiveSheet.Range(TableRange).RemoveDuplicates Columns:=1, Header:=xlNo
   
    Worksheets("Sheet4").Sort.SortFields.Clear
    Worksheets("Sheet4").Sort.SortFields.Add Key:=Range("C2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet4").Sort
        .SetRange Range(TableRange)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
    LastRowA = Cells(Rows.Count, "A").End(xlUp).Row
    DataRange = "$A$2:$A$" & LastRowA
    MyFormula = "=COUNTIF(" & DataRange & "," & "C2)"
    Debug.Print MyFormula
    LastRowC = Cells(Rows.Count, "C").End(xlUp).Row
    MyDestination = "D2:D" & LastRowC
    Range("D2").Select
    ActiveCell.Formula = MyFormula
    Selection.AutoFill Destination:=Range(MyDestination)
   
    Range("C2:D2").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Names.Add Name:="NameTable", RefersToR1C1:= _
        "=Sheet4!R2C3:R18C4"
End Sub

Boot in Safe Mode:

  • Open Run command as previously described
  • Type MSConfig
  • Click on Boot tab
  • Tick Safe boot in Boot option
  • Select Network
  • Click Apply and OK
  • Reboot your system

Your system will boot in Safe mode with Networking. You may now try and open Windows Store and should not see any errors.

Recommended Method to Repair the Problem: Can I use conditional formatting across worksheets to indicate if the same name appears in more than one worksheet?:

How to Fix Can I use conditional formatting across worksheets to indicate if the same name appears in more than one worksheet? with SmartPCFixer?

1. Download SmartPCFixer. Install it on your computer.

2. After the scan is finished, you can see the errors and problems need to be repaired. Click Fix All.

3. The Fixing part is finished, the speed of your computer will be much higher than before and the errors have been fixed.


Related: How to Download Toshiba Satellite A205-S5833 Supervisor Password Utility v.1.48.0.8C r2 driver,How to Download Toshiba Satellite C675-S7104 Laptop Checkup v.2.0.13.11 driver,How Can I Update & Download Toshiba Satellite L655-S5117 Face Recognition v.3.1.3 driver,Method to Update & Download Toshiba Satellite L845D-SP4328KL Atheros LAN Driver v.2.1.0.5,How to Update & Download Toshiba Satellite R930 Network Device ID Registry Setting Tool v.3.0.32.4 driver,Best Way to Download NVidia GeForce 6100 VGA Driver v.304.51 Certified,How Can You Update & Download NVidia GeForce 9300/nForce 730i VGA Driver v.310.19 Certified,Method to Download NVidia GeForce GT 330M Driver v.340.65,How Can I Update & Download NVidia GeForce GTX 590 Driver v.280.26 WHQL,Method to Download NVidia Tesla C2050 Driver v.319.17,Way to Download RealTek RTL8100C(L) Driver v.5.01,Way to Download RealTek RTL8100E Drivers v.694,Way to Update & Download RealTek RTL8101L Auto Installation Program v.6.110 driver,Method to Update & Download RealTek RTL8111G PXE and RPL ROM code v.2.58 driver,How to Update & Download RealTek RTL8411B(N) Driver v.10.003,Best Way to Update & Download ASUS A53SV nVidia Graphics Driver v.8.17.12.6686,Method to Herunterladen ASUS K75VJ Intel Rapid Storage Technology Treiber v.11.6.0.1030,How Can You Update & Download ASUS CG8580 Intel Chipset Driver v.9.3.0.1019,Method to Update & Download ASUS K41VD Intel INF Update Driver v.9.1.1.1015,Way to Update & Download ASUS Pro70T NB Probe v.3.0.0026 driver
Read More: How to Fix Problem - Can not access Control Panel or Sub Panels?,Can not view web pages using IE 7 Tech Support,How Can You Fix - Can we Save Customized Print Settings to a Document??,[Anwsered] Can receive Windows Mail, but cannot send.....AGAIN!!!!,Tech Support: can't find script engine "VBScript" for script "C\windows\systems32\GfxCUIServiceInstall.vbs",Can I safely remove earlier versions on my pc,Can I rotate a graph so it shows on my page sideways?,Can I safely ignore Office file validation alert message?,Can I send a JPEG file in a PDF form ?,can I review when my computer has been accessed from outside my home?

No comments:

Post a Comment