title: Change Value in Adjacent Cell Via Click (VBA right?)
body: <p>This is the first time I have ever really worked with VBA stuff (the code I found is VBA right? :P ) so please forgive my inability to just...understand it by looking at it. :) I have experience with macros and know /some/ of that code is compatible, but I don't know how to write it...only know how to record it then use the bits I know work.</p>
  
  <p>The Puzzle: I have a column which will adjust the weighted values of the row it is in (either makes the values slightly more or less, or leaves them alone), but the weights are entirely subjective so only need to be changed manually usually.</p>
  
  <p>The issue is when needing to change a lot of them at once because it is tons of clicking each cell and changing the value one at a time by "guessing" which weights we need by entering numbers until it "looks good" (like I said subjective), so I found this:</p>
  
  <p><a href="http://www.mrexcel.com/forum/excel-questions/51933-changing-cell-value-clicking-cell.html" rel="nofollow">http://www.mrexcel.com/forum/excel-questions/51933-changing-cell-value-clicking-cell.html</a></p>
  
  <p>Made some tiny changes to the version at the bottom of the page and have this right now:</p>
  
  <pre><code>Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Application.EnableEvents = False
    If Target.Cells.Count = 1 Then
      If Not Intersect(Target, Range("Q3:Q500")) Is Nothing Then
        Select Case Target.Value
        Case ""
          Target.Value = "+"
        Case "+"
          Target.Value = "-"
        Case "-"
          Target.Value = ""
        Case Else
          Target.Value = "+"
        End Select
          ActiveCell.Offset(0, 2).Range("A1").Select
      End If
    End If
    Application.EnableEvents = True
  End Sub
  </code></pre>
  
  <p>Almost perfect, except the range of numbers will be slightly larger than "", +, or -. In fact the range will likely be 0.5 to 1.5 (50% to 150%).</p>
  
  <p>It would be best if they could go up or down. I guess I could just create a huge list of replacements so instead of "", +, or - it would just be the numbers (Case 0.5 > Case 0.6 > Case 0.7 >>> Case 1 > Case 1.1 >>> Etc.) but obviously that would probably be a huge nightmare and /less/ efficient when having to click the cell 10 times to cycle through the numbers.</p>
  
  <p>So there are two things I need to make it work perfectly:</p>
  
  <ol>
  <li>For it to change the NEXT cell over, either to the left or right by one. </li>
  <li>Instead of simple replacements, is it possible for it to do some math?</li>
  </ol>
  
  <p>The idea is that clicking in column P to the left of Q will decrease the weight (by say 0.1), and by clicking in column R to the right of Q it will increase the weight slightly. And if they reach the bottom/top it will go to the other end (0.5 decreased will take the value up to 1.5, vice versa).</p>
  
  <p>I tried tinkering a little with what I know about macros and tried adding the "ActiveCell.Offset(0, 1).Range("A1").Select" bit here and there, which will be nice for the end of the code so I can choose where the cursor is left afterwards...but putting it anywhere earlier...I see the active cell move to P or R before changes are made, but it still changes the original column Q.</p>
  
  <p>I recognize I will need two copies of the code, one for Column R (decreasing) and one for Column P (increasing) but so long as I have at least one side I should be able to make the changes to mirror it. Also I know Data Validation might seem like a simple solution, but having an obscene amount of drop down arrows covering most of the sheet will make it illegible...</p>
  
  <p>Thank you so much to anyone spending any time on helping to solve this puzzle,
  Corinne :)</p>