Hello again!
I could use a little help with the following
How can I go about combining these 2 events: (If possible)
#1 takes a formula result from one cell, and pastes the value to a different cell
#2 will automatically print when a cell value matches the trigger
#1
#2
Thank you All for your time!
I could use a little help with the following
How can I go about combining these 2 events: (If possible)
#1 takes a formula result from one cell, and pastes the value to a different cell
#2 will automatically print when a cell value matches the trigger
#1
Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5")) Is Nothing Then
If InStr(1, Target, "COLOR", vbTextCompare) Then
Target.Offset(0, 1) = "COLOR"
End If
End If
End Sub
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim targCell As Range
Set targCell = Worksheets(1).Range("B2")
If Not Application.Intersect(Target, targCell) Is Nothing Then
If targCell.Value = COLOR Then
Worksheets(1).PrintOut
End If
End If
End Sub
Last edited by a moderator: