TheRedCardinal
Board Regular
- Joined
- Jul 11, 2019
- Messages
- 243
- Office Version
- 365
- 2021
- Platform
- Windows
So here's what I want to happen:
As per the title, it isn't working for me.
So I added this line:
Thinking that whatever happened, if I changed a cell on the sheet where this code exists, the next column over would show "Activated" but sadly not.
What have I missed?
- If the user makes a change in column "Q" of the worksheet, activate some code
- If the user enters the words "Checked and OK" then further action needed, if not, then we can exit the checks
- If the text is entered, then find the value in Column B of the same row as was changed
- Find that value in Column A of another worksheet
- Enter 2 values in Columns G and H of that second worksheet
- Enter a value in the cell next to the changed one
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 17 Then
If InStr(1, Target.Offset(0, -14).Value, "Checked and OK") > 0 Then
CellB = ThisWorkbook.Sheets("Invoice Checks").Range("A:A").Find(Target.Value)
If Not CellB Is Nothing Then
CellB.Offset(0, 6) = Target.Value
CellB.Offset(0, 7) = "Yes"
Target.Offset(0, 1) = "Yes"
End If
End If
End If
End Sub
As per the title, it isn't working for me.
So I added this line:
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(0, 1) = "Activated"
Thinking that whatever happened, if I changed a cell on the sheet where this code exists, the next column over would show "Activated" but sadly not.
What have I missed?