My problem is this. The Below code works however.
Private Sub Worksheet_Calculate()
If Range("K3").Value = "TRIG" Then
Range("K3").Value = "TRIGGERED"
End If
If Range("O3").Value = "TODAY" Then
Range("O3").Value = Range("$F$1").Value
End If
If Range("P3").Value = "TODAY" Then
Range("P3").Value = Range("$F$1").Value
Range("T3").Value = Range("S3").Value
End If
If Range("K4").Value = "TRIG" Then
Range("K4").Value = "TRIGGERED"
End If
If Range("O4").Value = "TODAY" Then
Range("O4").Value = Range("$F$1").Value
End If
If Range("P4").Value = "TODAY" Then
Range("P4").Value = Range("$F$1").Value
Range("T4").Value = Range("S4").Value
End If
If Range("K5").Value = "TRIG" Then
Range("K5").Value = "TRIGGERED"
End If
If Range("O5").Value = "TODAY" Then
Range("O5").Value = Range("$F$1").Value
End If
If Range("P5").Value = "TODAY" Then
Range("P5").Value = Range("$F$1").Value
Range("T5").Value = Range("S5").Value
End If
End Sub
what i am trying to do is apply it the the entire table like below
Private Sub Worksheet_Calculate()
If Range("K3:K"& Cells(Rows.Count, "C").End(xlUp).Row).Value = "TRIG" Then
Range("K3:K"& Cells(Rows.Count, "C").End(xlUp).Row)).Value = "TRIGGERED"
End If
If Range("O3:O"& Cells(Rows.Count, "C").End(xlUp).Row).Value = "TODAY" Then
Range("O3:O"& Cells(Rows.Count, "C").End(xlUp).Row).Value = Range("$F$1").Value
End I
If Range("P3:P"& Cells(Rows.Count, "C").End(xlUp).Row).Value = "TODAY" Then
Range("P3:P"& Cells(Rows.Count, "C").End(xlUp).Row).Value = Range("$F$1").Value
Range("T3:T"& Cells(Rows.Count, "C").End(xlUp).Row).Value = Range("S3:S"& Cells(Rows.Count, "C").End(xlUp).Row).Value
End If
End Sub
Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #2 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer
how do i implement it
attach file sosauto.xlsm
Bookmarks