How to trigger my two marcos on any type of cell change in column E

Private Sub Worksheet_Change(ByVal Target As Range)                                                                          If Not Intersect(Target, Range(“E2:E50”))                                                                                                            Is Nothing Then Call sbDriverCopy                                                                                                                          End If                                                                                                                                                                                          End Sub                                                                                                                                                                                                                                                                                                                                                                                             Sub sbDriverRotation()                                                                                                                                                   Dim strDataRange, strkeyRange As String                                                                                                           strDataRange = “J1:N50” strkeyRange = “L2:L50”                                                                                         With Sheets(“Sheet1”).Sort .SortFields.Clear .SortFields.Add _                                                             Key:=Range(strkeyRange), _ SortOn:=xlSortOnValues, _                                                                           Order:=xlDescending, _ DataOption:=xlSortNormal .SetRange                                                             Range(strDataRange) .Header = xlYes .MatchCase = False .Orientation =                                       xlTopToBottom .SortMethod = xlPinYin .Apply                                                                                                 End With                                                                                                                                                                                    End Sub                                                                                                                                                                                                                                                                                                                                                                                              Sub sbDriverCopy()                                                                                                                                                            Range(“D1:H50”).Copy Range(“J1”).Select ActiveSheet.PasteSpecial                                              xlPasteValuesAndNumberFormats Application.CutCopyMode = False                                           End Sub

I can not get my marcos to trigger on a change to any cell in Column E. I want to trigger both marcos if and cell in column is is changed updated deleted. Also I have been thinking I probably should combined my two marcos into one for efficiency.

Contributor Asked 13 hours ago in VBA: Macros.
Add Comment
0 Answer(s)
  • Found this useful?

    Please share using the share button above.

    If you found the answer is best answer for your question, Please mark as 'best answer' by clicking on the right tick mark icon at the left side of the answer.

    Found the answer useful and wants to credit the user, then vote the answer (vote up).

  • Your Answer

    By posting your answer, you agree to the privacy policy and terms of service.