Overriding a cell value?

NoSparks · #1 04-03-2017, 07:04 AM

Assuming Inv_override is entered after the Transfer macro is run,
and assuming 'override B16' means over write B16,
then you should be able to use the Worksheet_Change event.
Try this in the "Order" sheet module

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

'limit to single cell
If Target.Count > 1 Or Target.address <> "$B$17" Then Exit Sub
' value in b17 has changed to something other than blank
If Target.Value <> "" Then
    With Sheets("Order")
        .Unprotect
        Application.EnableEvents = False
        .Range("B16").Value = Target.Value
        Application.EnableEvents = True
        .Protect
    End With
End If

End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Clear all cell colors within a range starting at cell A8 and change row of active cell to yellow	FUGMAN	Excel Programming	7	02-05-2017 08:37 AM
If value of cell A Matches a value in a Range of cells (column) then add value of cell A to cell C	rick10r	Excel	1	07-05-2016 12:07 PM
Data validation,force cell to be filed with number if respective cell is not empty	nicholes	Excel Programming	0	08-01-2015 09:08 AM
Assign the value of a cell as a cell reference of another cell in Excel 2010 - How to?	bharathkumarst	Excel	7	10-13-2014 10:25 AM
Auto-populate an MS Word table cell with text from a diff cell?	dreamrthts	Word Tables	0	03-20-2009 01:49 PM