Create New Sheet - Conditional

[ashani]

Hi,

I'm using the below code so everytime there is value of 20 or -20 than system copies sheet 1 which is fine. What I want is 2 conditions before it creates another sheet so if there is a number of 1, 3 & 5 in D5:D58 and +/- 20 in E5:E58 than it should create a sheet, otherwise shouldn't

Please can somebody guide me ont his.

Thank you

  If Target.CountLarge > 1 Then Exit Sub
  If Target.Value = "" Then Exit Sub
  If Not Intersect(Target, Range("E5:E58")) Is Nothing Then
    If IsNumeric(Target.Value) Then
    If Abs(Target.Value) >= 20 Then

 

[DanteAmor]

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.CountLarge > 1 Then Exit Sub
  If Target.Value = "" Then Exit Sub
  If Not Intersect(Target, Range("E5:E58")) Is Nothing Then
    If IsNumeric(Target.Value) Then
      If Abs(Target.Value) >= 20 Then
        Select Case Cells(Target.Row, "D").Value
          Case 1, 3, 5
            ' copies sheet 1
        End Select
      End If
    End If
  End If
End Sub

 

[ashani]

Works perfectly - thank you so much

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.