How to Resolve - Enter the value of cells based on the values of other cells for entire column?

Enter the value of cells based on the values of other cells for entire column

I have this code which i know is close.
It works for individual cells.
I want this for the entire column.
Also Excel is freezing since I added the code to set E5:G5 to "N" if D5 = "Y"
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("D5").Value = "Y" Then
       Range("E5").Value = "N"
       Range("F5").Value = "N"
       Range("G5").Value = "N"
       Else
    If Range("G5").Value = "Y" Then
       Range("D5").Value = "N"
    If Range("E5").Value = "Y" Then
       Range("D5").Value = "N"
        Else
    If Range("F5").Value = "Y" Then
       Range("D5").Value = "N"
        Else
    If Range("G5").Value = "Y" Then
       Range("D5").Value = "N"
        Else
        Range("D5").ClearContents
    End If
    End If
    End If
    End If
    End If
                  
End Sub
 
Thanks!

Solutions to the Problem Enter the value of cells based on the values of other cells for entire column

Download SmartPCFixer to Fix It (Free)

I received an error after entering that code ...

I don't know why you received an error as that code worked fine in my test worksheet.
In any event, the conditions have changed somewhat, so here is a new code snippet,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D:G")) Is Nothing Then
        Application.EnableEvents = False
        For Each c In Target
            yn = UCase(c.Value)
            If Not Intersect(c, Range("D:G")) Is Nothing And yn = "Y" Then
                Range("D" & c.Row & ":G" & c.Row).Value = "N"
                c.Value = yn
            End If
        Next c
        Application.EnableEvents = True
    End If
End Sub

Edit: see response below

Note: It is recommended that you back up your files and folders before attempting this step:

  • Move the mouse cursor over to the upper right side of the screen.
  • A menu will pop up on the left. Click on the "Settings" feature on the menu.
  • On the Settings window, click on the "Change PC settings."
  • Now, left click on the "Update and recovery" feature.
  • For the next step, left click on the "Recovery" feature.
  • There is an option here saying "Refresh your PC without affecting your files." There, left click on the "Get started" button.
  • Now, follow the instructions on the screen to finish the Refresh process.
  • After the Refresh process has finished restart your Windows 8.1 or Windows 8 device.
  • Check again to see if the error Enter the value of cells based on the values of other cells for entire column has been fixed.

If you do not possess the technical expertise required to accomplish this yourself or do not feel comfortable doing so, download and install a powerful automated tool to get the job done.

Recommended Method to Fix the Problem: Enter the value of cells based on the values of other cells for entire column:

How to Fix Enter the value of cells based on the values of other cells for entire column with SmartPCFixer?

1. Click the button to download Error Fixer . Install it on your system.  Open it, and it will perform a scan for your computer. The junk files will be shown in the scan result.

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

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


Related: Download SONY SVE1512H1RB Synaptics PS/2 Port ClickPad driver,Method to Download SONY VGC-LT10E SigmaTel Audio Driver Update v.6.10.5614.0,Way to Download SONY VGN-CS118E/R AV Mode Button Utility v.1.1.01.09140 driver,Method to Download SONY VGN-FW375J/B Alps Pointing Device Driver v.5.7.0.92,Where to Download SONY VGN-NS270J/S Pioneer BD-ROM BDC-TD01 Firmware Update v.1.03,Data Export From Quickbooks To Excel,Date Format In Formula Bar And In The Cell Is Not The Same,Deleted The Snipping Tool,Desktop - Open Program Issues,Desktop Windows Manager Keeps Poping Up & It Reads That There Is A Problem & That Windows Will Check It Out & Send Me An Answer .
Read More: Fast Solution to Error Equivalence between MyListobject Databodyrange and Range object,Troubleshooting:error 0000007A opening the registry key at HKEY_LOCAL_MACHINE, how can i fix it?,Troubleshooting entering a converted amount in a column,How Can You Fix error 1753 there are no more endpoints available from the endpoint mapper,Fast Solution to Error: Error 10-fc12-0241 and f3-f200-0002 in Toshiba Recovery Wizard,does anyone know what the dialog means "System.Media.FontFamily' threw an exception windows is checking for a solution?,Does Log Me In Ignition for my Android with Windows 7 Home Premium?,Download failure for my Blackberry and the process stops during the install,Display settings keep changing when I come back from sleep mode,Downloaded files are not saved
[PR]
by FileSndvol32Exe33 | 2016-10-11 15:43