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.

Top Contributor Asked on October 30, 2017 in VBA: Macros.
Add Comment
1 Answer(s)

 

Private Sub Worksheet_Calculate()
‘Updateby Extendoffice
Dim Xrg As Range
Set Xrg = ActiveSheet.Range(“E3:E53”)
If Not Intersect(Xrg, ActiveSheet.Range(“E3:E53”)) Is Nothing Then
sbDriverCopy
sbDriverRotation
End If
End Sub
Sub sbClearDriverRotation()
ActiveSheet.Range(“J3:N53”).ClearContents
End Sub
Sub sbDriverCopy()
ActiveSheet.Range(“D3:H53”).Copy
ActiveSheet.Range(“J3”).Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End Sub
Sub sbDriverRotation()

Dim strDataRange, strkeyRange As String
strDataRange = “J3:N53”
strkeyRange = “L3:L53”
With ActiveSheet.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

Top Contributor Answered on October 31, 2017.
Add Comment
  • 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.