Help with vba code

[kalumbair]

Hello All,
I was wondering if anyone could help me with this. I've been trying to figure it out for days now, but just can't. below I have a code which allows me to change the value in a cell with a double click. I can do this in any cell in the worksheet. the problem is, I only want to be able to do this in a specific column and no where else in the worksheet. Any assistance is greatly appreciated.


Best Regards,
Ox


Private Sub Worksheet_BeforeDoubleClick(<wbr style="display: inline-block;">ByVal Target As Range, Cancel As Boolean)
ActiveCell.Select
myVar = InputBox("ENTER THE QUANTITY IN THE SPACE PROVIDED (Include a (-) Sign if the QTY is out Going Stock)", "Enter Quantity")
Dim answer As VbMsgBoxResult
answer = MsgBox("Is the Quantity Entered Correct?", vbYesNo, "Enter QTY")
If answer = vbYes Then
ActiveCell.Value = myVar + ActiveCell.Value
End If
If answer = vbNo Then
myVar = InputBox("Enter the Correct Quantity", "Buy or Sell")
ActiveCell.Value = myVar + ActiveCell.Value
End If
End Sub​

 

[nardagus]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

ActiveCell.Select


[COLOR=#ff0000]If ActiveCell.Column = 4 Then[/COLOR]


    myVar = InputBox("ENTER THE QUANTITY IN THE SPACE PROVIDED (Include a (-) Sign if the QTY is out Going Stock)", "Enter Quantity")
    
    Dim answer As VbMsgBoxResult
    
    answer = MsgBox("Is the Quantity Entered Correct?", vbYesNo, "Enter QTY")
    
    If answer = vbYes Then
        ActiveCell.Value = myVar + ActiveCell.Value
    End If
    
    If answer = vbNo Then
        myVar = InputBox("Enter the Correct Quantity", "Buy or Sell")
    ActiveCell.Value = myVar + ActiveCell.Value
    End If
[COLOR=#ff0000]End If[/COLOR]


End Sub

This should suffice. You didn't mention what column you want to fire the macro, so I picked D, but if you need other just change column number to other in this part:

If ActiveCell.Column = 4 Then

 

[kalumbair]

Nardagus,

That worked like a charm. Thank you for the speedy response.

v/

 

[nardagus]

 

[Fluff]

Another option

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim MyVar As Variant
   If Target.Column <> [COLOR=#ff0000]2[/COLOR] Then Exit Sub
   Cancel = True
   MyVar = InputBox("ENTER THE QUANTITY IN THE SPACE PROVIDED (Include a (-) Sign if the QTY is out Going Stock)", "Enter Quantity")
   If MsgBox("Is the Quantity " & MyVar & " Entered Correct?", vbYesNo, "Enter QTY") = vbYes Then
      Target.Value = MyVar + Target.Value
   Else
      MyVar = InputBox("Enter the Correct Quantity", "Buy or Sell")
      Target.Value = MyVar + Target.Value
   End If
End Sub

I've used column B, change the value in re to suit