View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
Very Basic User Very Basic User is offline
external usenet poster
 
Posts: 53
Default Two variables for Target.Value

Very helpful! Thank you very much!
--
Thank you for your time!
John


"Stefi" wrote:

Replace the If condition:

If Target.Column = 7 And _
Target.Row 4 And _
(Target.Value < "In Progress" Or Target.Value < "Not Started") Then


--
Regards!
Stefi



€˛Very Basic User€¯ ezt Ć*rta:

Below is my code that works for any items identified as "In Progress" what if
I want to follow the same process for both "In Progress" and "Not Started"?
how would I udate the code to include both.

Thanks!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Dest As Range
If Target.Count 1 Then Exit Sub
If IsEmpty(Target.Value) Then Exit Sub
If Target.Column = 7 And _
Target.Row 4 And _
Target.Value < "In Progress" Then
With Sheets("Complete")
Set Dest = .Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Copy Dest
Target.EntireRow.Delete
End If
End Sub

--
Thank you for your time!
John